Treppenlicht

Hi alle

ich kann jede hilfe gebrauchen auch vieleicht mit den anklemmen der Ports,aber wie soll nun das im ganzen aussehen ? bekomme einiege Befehle zugeworfen und kann wiklich nicht viel mit anfangen :-s wie der zusammenhang dan nun sein sol. mit zeit und "shl"(schieb nach links) :-k

Zitat:

---

Wenn es nur um das Programm geht dann sollte "nene" sagen mit welchen Basicprogrammen er schon Erfahrung hat.

---

Das war schon so gemeint, je mehr Du sagst wie weit Du bist, desto genauer kann Dir geholfen werden.
Hast Du einen Programmentwurf?, eine Testroutine aus der Du das Programm entwickeln möchtest? Hast Du die Befehlsliste schon einmal ganz durchgelesen?
Wie soll der Aufbau erfolgen.
Du siehtst ja, viele wollen helfen.
Manfred

Ok,
Du brauchst ne LED, 'nen Vorwiderstand 1kOhm (ist hell genug)
nen Taster, bischen Litze (ich nehm immer alte Floppykabel)
und 'nen Lötkolben.
Dann lötest Du den Vorwiderstand in Reihe an die LED.
welche Seite der LED ist in diesem Fall wurscht.
An den Ein-Taster lötest Du 2 Litzen (Drähte).

bin gleich wieder da.

Die LED lötest Du jetzt an Port1:
Bei der Kathode der LED, das ist der Pin, der an Minus kommt,
sollte der Anschlußdraht im Auslieferzustand ein bischen kürzer sein,
zudem sollte am LED-Gehäuse die Verdickung unten an der Seite abgeflacht sein. Hoffe, das ist verständlich.
Diese Seite jedenfalls sollte an Minus gelötet werden.
Der andere Anschluß der LED, die Anode, kommt an Port1.
An einer Seite der LED hängt natürlich noch der Widerstand dazwischen.
Wenn Ihr soweit seit, könnten wir die schon mal zum blinken bringen.

Schiebe noch kurz das Progrämmchen hinterher:

DEFINE led PORT[1]
led = 1
#anfang
TOG led
PAUSE25
GOTO anfang

Fragt ruhig, wenn was unklar ist.

ok, sehr hilfreich mit der lötanleitung, aber das programm ist ohne taster oder schalter, die LED blinkt immer nur.
wie mus das aussehen wen ich den taster dazu einbinde möschte wie port(taster) 1 = Port (led) 2 ?

und die frage wie weit ich bin mit den program ! nicht weiter als ihr hier seht :cry:

so lötung duchgefürt und es blinkt, O:) O:) wie nu mit dem schalter !!!

O.K. , weiter gehts:
Ein Kabel vom Taster an Port 9 klemmen, anderes an Masse.
Nochmal Vorsicht, wie oben schon gesagt:
Der Port, besser der ganze Byteport sollte jetzt nur noch als Eingang genutzt werden.
Die Pullups werden dann enabled, falls Dir das jetzt schon was sagt.
Auf Deutsch: Mittels Zuschaltung der internen Widerstände liegt am Eingang
"high" an. Mit dem ein-getasteten Taster legst Du "low" an den Eingang.
Es fließt dann ein geringer sogenannter "Querstrom" über den internen
Widerstand nach Masse Iq=5V/10000Ohm.
Codeschnipsel kommt gleich.

Hab gerade mit Erschrecken festgestellt, daß
wohl nur die "große" CC1 interne Widerstände hat.
Bei der Unit-M muß man die wohl extern nachrüsten.
Nehme erst mal an, Du hast die Große.

Define zaeler Byte
Define led Port[1]
Define tast Port[9]
led = 0
Deact tast
#anfang
If tast = 1 then gosub warten
Goto anfang

#warten
led = 1
For zaeler = 0 to 60
Pause 50
Next zaeler
led = 0
Return


Ich bin mir nicht so sicher, ob in Zeile 7 (If tast...) 'ne 0 oder
'ne 1 stehen muß (vielleicht negative Logik). Mußte ausprobieren.
Pause 50 heißt: 50x20Millisek. = 1. Sekunde,
das ganze 60x macht eine Minute Licht an für Dein Puppenhaus.
Ich denke mal so pfundst's.

Nachtrag:
hab meine CC angeschmissen und mal eben probiert:
In Zeile 7 muß es heißen: if tast=0 then gosub warten
und das Licht ist natürlich 61 Sekunden an und nicht 60.
Mich macht das beim CC-Basic sowieso irre, daß
die bei den Ports bei eins anfangen zu zählen,
wenn du mal mit logischen Verknüpfungen
angeschlossene Logic-IC ansteuern wirst, wirst Du
das auch merken.

Hab auch gerade mal nachgeblättert und gesehen, daß
Du doch die "Unit Typ M" hast. Hier solltest Du am Taster/Portpin
den Pullupwiderstand nachrüsten, ansonsten schaltest Du mit dem Taster
Masse nach Masse und dat is ungeschickt.