Codeschloss programmieren in Basic Stamp 1 (Parallax Stamp 1 Project Board)

[mikrokreismeister (Gast)]

Ich möchte mit dem Parallax Project Board in Basic Stamp 1 ein 
Codeschloss so programmieren, dass die Diode auf dem Bord grün leuchtet, 
wenn ich den richtigen Code des Codeschlosses eingebe. Bei falscher Zahl 
soll die rote Diode leuchten. Ich habe Schwierigkeiten beim Stecken der 
Komponenten und bei der Programmierung.

Hier mein Programmierversuch:

' {$STAMP BS1}

Anfang:

IF PIN4 = 1 THEN Gruen

IF PIN5 = 1 THEN Rot

IF PIN7 = 1 THEN Rot

Rot:

HIGH 6

PAUSE 10000

LOW 6

GOTO Anfang

Gruen:

HIGH 3

PAUSE 2000

LOW 3

GOTO Weiter

Weiter:

IF PIN4 = 1 THEN Rot

IF PIN5 = 1 THEN Gruen

IF PIN7 = 1 THEN Rot

IF PIN4 = 1 THEN Rot

IF PIN5= 1 THEN Rot

IF PIN7 = 1 THEN Gruen

END

Ein Foto vom Board und der aktuellen Steckung habe ich beigefügt. Kann 
mir jemand helfen?

[Hä? (Gast)]

Kein Schaltbild, keine Ahnung was die Tastatur ausgibt.

Das Programm macht keinen Sinn.....

Bitte überlege nochmal.

[Peter D. (peda)]

Auch in Basic braucht man erstmal Funktionen, um Tasten einzulesen, zu 
entprellen und die Flanke des Drückens zu erkennen.
Schau mal ins Basic-Manual, ob es dafür Lib-Funktionen gibt. Ansonsten 
muß man sie selber schreiben.

Auch in Basic sollte man den Code nicht einfach so runterschreiben, 
sondern die einzelnen Aufgaben in Unterfunktionen aufteilen (Gosub, 
Return). Das erleichtert erheblich das Verstehen und die Fehlersuche.