Paso 3: Código de Basic Stamp (BS2-BOE)
' * mil-pez. ASQ
' * Alan Mollick
' * www.alanmollick.com
'***************************************************************************
' {$STAMP BS2}
' {$PBASIC 2.5}
' {COM5 $PORT}
Detector de entrada 0' IR
Solenoide de salida 3 ' 3 - forma
SALIDA DE 4' LED
Solenoide de salida 8 ' 5 - forma
ENTRADA 10' cabeza interruptor de retroalimentación
Principal:
PAUSE 5
Hold:
IF (IN0 = 1) entonces espera ' esperar señal de TV IR
ALTO 4' LED = en
HIGH 3 ' 3 - solenoide forma, cabeza hacia atrás
PAUSE 50
Hold10:
IF (IN10 = 1) entonces Hold10 ' quedarse aquí hasta el interruptor (pin 1) = bajo
PAUSA DE 10
ALTO 8 ' 5 - solenoide forma = en
PAUSE 200
BAJO 8 ' 5 - solenoide forma = off
PAUSA DE 35
BAJA 3 ' 3 - solenoide forma = off
BAJA 4' LED = off
PAUSA DE 25
GOTO principal
'***************************************************************************