Stap 3: Basic Stamp (BS2-BOE) broncode
' * mil-pez. BS2
' * Alan Mollick
' * www.alanmollick.com
'***************************************************************************
' {$STAMP BS2}
' {$PBASIC 2.5}
' {$PORT COM5}
INGANG 0' IR detector
UITGANG 3 ' 3 - weg magneetventiel
OUTPUT 4' LED
UITVOER 8 ' 5 - weg magneetventiel
INGANG van 10' hoofd omhoog feedback schakelaar
Hoofdpodium:
PAUZE 5
Hold:
IF (IN0 = 1) dan Hold ' wachten op TV IR signaal
HOGE 4' LED = op
HOGE 3 ' 3 - weg magneetventiel op, hoofd trok zich terug
PAUZE 50
Hold10:
IF (IN10 = 1) vervolgens Hold10 ' hier blijven tot schakelaar (pin 1) = laag
PAUZE 10
HOGE 8 ' 5 - weg magneetventiel = op
PAUZE 200
LAGE 8 ' 5 - weg magneetventiel = off
PAUZE 35
LAGE 3 ' 3 - weg magneetventiel = off
LAGE 4' LED = off
PAUZE 25
GOTO Main
'***************************************************************************