Obra interactiva diseñada por: Felipe Silva - Javier Aguirre R.
Contacto: jaragu@gmail.com

Ver Video

Componentes:

Microcontrolador Basic Stamp II
Sensor Infrarrojo
Leds rojo
Servomotor
Audífono
Resistencias
Mecanismo de Sombrilla
Flor de cartón

Código

' {$STAMP BS2}
' {$PBASIC 2.5}

x VAR Byte

c:

DEBUG ? IN15

IF IN15 = 0 THEN led

'IF IN15 = 1 THEN alarm
'IF IN15 = 0 THEN son3

GOTO c

led:
HIGH 2
PAUSE 10
GOSUB derecha
GOSUB izquierda
FREQOUT 9, 500, 4186 'do
FREQOUT 9, 500, 4698 're
FREQOUT 9, 500, 5274 'mi

LOW 2
PAUSE 10

derecha:
FOR x = 1 TO 255
PULSOUT 6, 500
PAUSE 10
NEXT
RETURN

izquierda:
FOR x = 1 TO 255
PULSOUT 6, 1000
PAUSE 10
NEXT
RETURN

Instalación

Toma una flor, no te la niego,

Con mi brazo te la extiendo,

Con mi luz te la entrego

Con mis sonidos, olor llevo,

Déjame solo poder entregar...

Una más a quien quiero.