Paso 5: SOFTWARE
Paralaje el fabricante de los microcontroladores Stamp proporciona una muy buena y libre editor de windows. Sólo carga el editor de abajo y con el siguiente texto cortado y pegado en él. Usted será con un simple USB o RS232 con cable de 4 pines (construirlo tú mismo o comprar desde el sitio de Parallax) comunicándose con extraterrestres pronto.
También se incluye un archivo de texto de este programa básico (S.BS2).
-----------------------------------------------------------------------------------------------------------------------------------
'
' Bandera-parpadeo y ROMPECORAZONES y APERTURA-CIERRE ocular derecha izquierda y M-J-T
'
' Analiza de izquierda a derecha
'
«1 2 3 4 5 6 7
' .---------------.
1 | o o o o o o o |
2 | o o o o o o o |
3 | o o o o o o o |
4 | o o o o o o o |
5 | o o o o o o o |
' `---------------@
I VAR NIB
ROJO VAR NIB
BLU VAR NIB
PTR VAR NIB
LOP VAR NIB
VAR NIB(15) DE DAT
CUADRO 1 DATOS (1)
GRASA VAR BYTE
TIEMPO VAR WORD
DIRS =-1 ' todas las salidas
LOP = 3 ' HACER CUALQUIER CUATRO
LEER 0, I: RAMA I, [BANDERA, CORAZÓN, OJO, MJT, FINI]
'========================= FLAG ==============================
BANDERA
ESCRITURA 0,1 ' EEPROM = 0 = DESPUÉS 1
TIEMPO = 9000
' 12345 12345 salón LED
' BBBBBgggggRRRRR durante
GRASAS = 0 A 80 ' RED/WHT/BLU
OUTS = % 1111111111011111: PAUSA 4
OUTS = % 1011110111111111: PAUSA 4
OUTS = % 1011111111111111: PAUSA 4
OUTS = % 1101111111111111: PAUSA 4
SIGUIENTE
GOTO LOOP_F
LOOP_F
PARA I = 1 A 4
' 12345 12345 UNIDAD DE 15 LEDS
' BBBBBgggggRRRRR COLLUMN por COLLUMN
OUTS = % 0001111111111111
OUTS = % 0011111111111110: GOSUB P
OUTS = % 1001111111111110: GOSUB P
OUTS = % 0101111111111110: GOSUB P
OUTS = % 1110111101111110: GOSUB P
OUTS = % 1110111111111100: GOSUB P
SIGUIENTE
PARA I = 1 A 3
' 12345 12345 UNIDAD DE 15 LEDS
' BBBBBgggggRRRRR COLLUMN por COLLUMN
OUTS = % 1010111111111101
OUTS = % 1010111111111110: GOSUB P
OUTS = % 1111110101111110: GOSUB P
OUTS = % 1111111111010100: GOSUB P
SIGUIENTE
TIEMPO = tiempo-1:IF tiempo > 1 THEN LOOP_F
LOP = LOP-LOP 1:IF = 0 THEN FINI
'========================= HEART ==============================
CORAZÓN
ESCRITURA 0,2 ' EEPROM = 1 AL = 2
TIEMPO = 9000
'~~~~~~~~~~~~~~~~~~~~Clock
' :
' 12345 12345: salón LED
' BBBBBgggggRRRRR: durante
OUTS = % 1001111111100111' esperar
PAUSA 900 ' restablecer Scanner Collumn 1
OUTS = % 1111111111111110
DAT(0) = 0 ' SECUENCIA LATIDO AZUL
DAT(1) = 0
DAT(2) = 1
DAT(3) = 1
DAT(4) = 2
DAT(5) = 3
DAT(6) = 4
DAT(7) = 5
DAT(8) = 5
DAT(9) = 5
DAT (10) = 4
DAT (11) = 3
DAT (11) = 2
DAT (12) = 1
DAT (13) = 1
DAT (14) = 0
DAT (15) = 0
LOOP_H
PTR = PTR + 1:BLU = DAT (PTR): ROJO = 5-BLU
PARA I = 0 TO ROJO 12345 12345
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111100110: SALIDAS = SALIDAS: SALIDAS = % 1111111111100111
OUTS = % 1111111111000010: SALIDAS = SALIDAS: SALIDAS = % 1111111111000011
OUTS = % 1111111111000000: SALIDAS = SALIDAS: SALIDAS = % 1111111111100001
OUTS = % 1111111111100000: SALIDAS = SALIDAS: SALIDAS = % 1111111111100001
OUTS = % 1111111111000000: SALIDAS = SALIDAS: SALIDAS = % 1111111111000011
OUTS = % 1111111111000010: SALIDAS = SALIDAS: SALIDAS = % 1111111111100111
OUTS = % 1111111111100110: SALIDAS = SALIDAS: SALIDAS = % 1111111111111111
SIGUIENTE
TIEMPO = TIEMPO-1
PARA I = 0 TO BLU 12345 12345
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1001111111111110: SALIDAS = SALIDAS: SALIDAS = % 1001111111111111
OUTS = % 0000111111111110: SALIDAS = SALIDAS: SALIDAS = % 0000111111111111
OUTS = % 0000011111111110: SALIDAS = SALIDAS: SALIDAS = % 1000011111111111
OUTS = % 1000011111111110: SALIDAS = SALIDAS: SALIDAS = % 1000011111111111
OUTS = % 0000011111111110: SALIDAS = SALIDAS: SALIDAS = % 0000111111111111
OUTS = % 0000111111111110: SALIDAS = SALIDAS: SALIDAS = % 1001111111111111
OUTS = % 1001111111111110: SALIDAS = SALIDAS: SALIDAS = % 1111111111111111
SIGUIENTE
IF hora > 1 THEN LOOP_H
LOP = LOP-LOP 1:IF = 0 THEN FINI
'========================= EYE ==============================
OJO
ESCRITURA 0,3 ' EEPROM = 2 LUEGO = 3
TIEMPO = 9000
' Miradas de ojos izquierdo y derecho
'
'~~~~~~~~~~~~~~~~~~~~Clock
' :
' 12345 12345: salón LED
' BBBBBgggggRRRRR: durante
OUTS = % 1111111011110111' esperar
PAUSA 900 ' restablecer Scanner Collumn 1
PTR = 0 ' SPCLCRCPS 0123456789
GRASA = 200
LOOP_E
GRASA = grasa-1:IF grasa > 0 THEN E_BALL
GRASA = 35:PTR = PTR + PTR 1:IF < 9 entonces E_BALL
PTR = 0
E_BALL
TIEMPO = tiempo-1:IF tiempo < 2 entonces EYE_TEST
RAMA PTR [CIERRE, PEEK, CENTRO, IZQUIERDA, CENTRO, DERECHA, CENTRO, PEEK, CERRADO]
CENTRO ' 12345 12345 12345
' BBBBBgggggRRRRR BBBBBgggggRRRRR
GOSUB DSPL ' líder
GOSUB DSPM ' medio
GOSUB DSPE ' Ender
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
ALTA 0:LOW 0
GOSUB PUPILA
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
0:LOW ALTO 0:GOTO LOOP_E
DERECHO ' BBBBgggggRRRRR BBBBBgggggRRRRR
GOSUB DSPL ' líder
GOSUB DSPM ' medio
OUTS = % 1111101110011101: PAUSA 1:LOW 0
OUTS = % 1111110001100011: PAUSA 1:LOW 0
' BBBBBgggggRRRRR BBBBBgggggRRRRR
GOSUB DARK3
GOSUB PUPILA
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
GOTO LOOP_E
IZQUIERDA ' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111110001100011: PAUSA 1:LOW 0
OUTS = % 1111101110011101: PAUSA 1:LOW 0
GOSUB DSPM ' medio
GOSUB DSPE ' Ender
' OUTS = % 1111111111111110
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
GOSUB PUPILA
GOSUB DARK3
GOTO LOOP_E
DSPL
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111110101101011: PAUSA 1:LOW 0
VOLVER
DSPM
OUTS = % 1111101110011101: PAUSA 1:LOW 0
OUTS = % 1111101110011101: PAUSA 1:LOW 0
OUTS = % 1111101110011101: PAUSA 1:LOW 0
VOLVER
DSPE
OUTS = % 1111110101101011: PAUSA 1:LOW 0
OUTS = % 1111111011110111: PAUSA 1:LOW 0
VOLVER
PUPILA
OUTS = % 1000111111111111: 0:OUTS PAUSA = % 1101111111111110: PAUSA 1
OUTS = % 1000111011111111: 0:OUTS PAUSA = % 1000111111111110: PAUSA 1
OUTS = % 1000111111111111: 0:OUTS PAUSA = % 1101111111111110: PAUSA 1
VOLVER
DARK3
OUTS = % 1111111111111111: BAJO 0
ALTA 0:LOW 0
ALTA 0:LOW 0
VOLVER
PEEK
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111110101101011: PAUSA 1:LOW 0
OUTS = % 1111110101101011: PAUSA 1:LOW 0
OUTS = % 1111110101101011: PAUSA 1:LOW 0
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111111111111111: PAUSA 1:LOW 0
OUTS = % 1111111111111111: PAUSA 1:LOW 0
OUTS = % 1101111111111111: 0:OUTS PAUSA = % 1101111111111110: PAUSA 1
OUTS = % 1101111111111111: 0:OUTS PAUSA = % 1101111011111110: PAUSA 1
OUTS = % 1101111111111111: 0:OUTS PAUSA = % 1101111111111110: PAUSA 1
OUTS = % 1111111111111111: PAUSA 1:LOW 0
OUTS = % 1111111111111111: PAUSA 1:LOW 0
GOTO LOOP_E
CERRAR
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111111011110111: PAUSA 1:LOW 0
OUTS = % 1111111011110111: 1:OUTS PAUSA = % 1111111111111110
GOTO LOOP_E
EYE_TEST
LOP = LOP-LOP 1:IF = 0 THEN FINI
' === Joyería y juguetes de hombres ===
MJT
ESCRITURA 0,4 ' EEPROM = 3 LUEGO = 4
GRASAS = 0 A 80
OUTS = % 1110111101111111: PAUSA 4
OUTS = % 1110111111111111: PAUSA 4
OUTS = % 1111111110111101: PAUSA 4
OUTS = % 1111111111110111: PAUSA 4
SIGUIENTE
TIEMPO = 2
LOOP_T
GRASA = 1 HORA ESTOY
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
OUTS = % 1111111111000111: pausa 1:OUTS = % 1111111111111000: pausa 1
OUTS = % 1111111111101111: pausa 1:OUTS = % 1111111111111110
OUTS = % 1111111111110111: pausa 1:OUTS = % 1111111111111110
OUTS = % 1111111111101111: pausa 1:OUTS = % 1111111111111110
OUTS = % 1111111111000111: pausa 1:OUTS = % 1111111111111000: pausa 1
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
pausa 1:NEXT
GRASA = 1 TIEMPO ' J
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
OUTS = % 1100111001111111: pausa 1:OUTS = % 1100111111111110: pausa 1
OUTS = % 0111001110111111: pausa 1:OUTS = % 0111011111111110: pausa 1
OUTS = % 0111001110111111: pausa 1:OUTS = % 0111011111111110: pausa 1
OUTS = % 0111101111111111: pausa 1:OUTS = % 1011110111111110: pausa 1
OUTS = % 1101111011111110: pausa 1:OUTS = % 1110111101111110: pausa 1
OUTS = % 0011111111111110: pausa 1:OUTS = % 1100111111111110: pausa 1
OUTS = % 0111101111111111: pausa 1:OUTS = % 0111111111111110: pausa 1
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
pausa 1:NEXT
' goto JJ
GRASA = 1 TIEMPO ' T
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111110011111110: pausa 1:OUTS = % 1111111111100110: pausa 1
OUTS = % 1111111100111110: pausa 1:OUTS = % 1111111111111000: pausa 1
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111111111111111: SALIDAS = % 1111111111111110
SIGUIENTE
GRASA = 1 TIEMPO
PAUSA 14:NEXT
TIEMPO = tiempo + 2 tiempo < 80 entonces LOOP_T
LOP = LOP-LOP 1:IF = 0 THEN FINI
GOTO BANDERA
P:RETURN
'==================== FINISHED ==============
FINI
OUTS = % 1111111111111111
ESCRITURA 0,0 ' EEPROM = 3 SIGUIENTE = 1
FINAL
