Stap 5: Stap 4
4. nu moet u uw code schrijven in basic stamp om deze te testen van uw apparaat en zorg ervoor dat de werking. Gebruik de onderstaande code en vervangen van de linker constante variabele voor uw eigen. (in een fel verlichte ruimte, de spreker na moet komen op ongeveer 5 seconden).' {$STAMP BS2}
' {$PBASIC 2.5}
timeleft VAR Word
leftconstant CON 4000
PAUZE 5000
DOEN
GOSUB read_p
GOSUB alarm
LOOP
read_p:
HOGE 5
ONDERBREKEN 3
RCTIME 5, 1, timeleft
TERUGKEER
alarm:
IF (timeleft < leftconstant) vervolgens
DOEN
FREQOUT 4, 2000, 4000
LOOP
ENDIF
PAUZE 20
TERUGKEER