Étape 5: logiciels
Le fabricant des micro-contrôleurs timbre de la parallaxe fournit un très bon et gratuit éditeur de windows. Juste vers le bas de la charge de l’éditeur et avec la coupe de texte suivants et collé dedans. Vous aurez avec un simple RS232 ou USB au câble à 4 broches (construire vous-même ou acheter du site de parallaxe) communiquer avec des étrangers bientôt.
Un fichier de texte de ce programme de base (S.BS2) est également inclus.
-----------------------------------------------------------------------------------------------------------------------------------
'
"M-J-T & oeil-ouverture-gauche-droite-fermeture & coeur-THROB, drapeau-FLICKER
'
« Analyse de gauche à droite
'
« 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 |
' `---------------@
J’AI VAR NIB
NIB VAR ROUGE
NIB VAR BLU
PTR VAR NIB
LOP VAR NIB
DAT VAR NIB(15)
TABLEAU 1 DONNÉES (1)
GRAISSE VAR OCTETS
MOT DE TEMPS VAR
DIRS =-1 ' toutes les sorties
LOP = 3 ' FAIRE QUATRE
LU 0, J’AI : BRANCHE I, [DRAPEAU, COEUR, YEUX, MJT, FINI]
'========================= FLAG ==============================
DRAPEAU
ÉCRITURE 0,1 ' EEPROM = 0 NEXT = 1
TEMPS = 9000
« 12345 12345 montrent LED
' BBBBBgggggRRRRR pendant
POUR LES LIPIDES = 0 À 80 ' RED/WHT/BLU
SORTIES = % 1111111111011111 : PAUSE 4
SORTIES = % 1011110111111111 : PAUSE 4
SORTIES = % 1011111111111111 : PAUSE 4
SORTIES = % 1101111111111111 : PAUSE 4
PROCHAINE
GOTO LOOP_F
LOOP_F
FOR I = 1 À 4
« 12345 12345 CONDUIRE 15 LEDS
' BBBBBgggggRRRRR colonne par colonne
SORTIES = % 0001111111111111
SORTIES = % 0011111111111110 : GOSUB P
SORTIES = % 1001111111111110 : GOSUB P
SORTIES = % 0101111111111110 : GOSUB P
SORTIES = % 1110111101111110 : GOSUB P
SORTIES = % 1110111111111100 : GOSUB P
PROCHAINE
FOR I = 1 À 3
« 12345 12345 CONDUIRE 15 LEDS
' BBBBBgggggRRRRR colonne par colonne
SORTIES = % 1010111111111101
SORTIES = % 1010111111111110 : GOSUB P
SORTIES = % 1111110101111110 : GOSUB P
SORTIES = % 1111111111010100 : GOSUB P
PROCHAINE
TEMPS = temps-1:IF temps > 1 THEN LOOP_F
LOP = LOP-LOP 1:IF = 0 THEN FINI
'========================= HEART ==============================
COEUR
ÉCRITURE 0,2 ' EEPROM = 1 NEXT = 2
TEMPS = 9000
'~~~~~~~~~~~~~~~~~~~~Clock
' :
« 12345 12345 : Voir la LED
« BBBBBgggggRRRRR : au cours de
SORTIES = % 1001111111100111' attente
PAUSE de 900 ' réinitialiser le Scanner à la colonne 1
SORTIES = % 1111111111111110
DAT(0) = 0 ' SÉQUENCE THROB BLEU
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): ROUGE = 5-BLU
FOR I = 0 TO RED 12345 12345
' BBBBBgggggRRRRR BBBBBgggggRRRRR
SORTIES = % 1111111111100110 : OUTS = OUTS : OUTS = % 1111111111100111
SORTIES = % 1111111111000010 : OUTS = OUTS : OUTS = % 1111111111000011
SORTIES = % 1111111111000000 : OUTS = OUTS : OUTS = % 1111111111100001
SORTIES = % 1111111111100000 : OUTS = OUTS : OUTS = % 1111111111100001
SORTIES = % 1111111111000000 : OUTS = OUTS : OUTS = % 1111111111000011
SORTIES = % 1111111111000010 : OUTS = OUTS : OUTS = % 1111111111100111
SORTIES = % 1111111111100110 : OUTS = OUTS : OUTS = % 1111111111111111
PROCHAINE
TEMPS = TEMPS-1
FOR I = 0 TO BLU 12345 12345
' BBBBBgggggRRRRR BBBBBgggggRRRRR
SORTIES = % 1001111111111110 : OUTS = OUTS : OUTS = % 1001111111111111
SORTIES = % 0000111111111110 : OUTS = OUTS : OUTS = % 0000111111111111
SORTIES = % 0000011111111110 : OUTS = OUTS : OUTS = % 1000011111111111
SORTIES = % 1000011111111110 : OUTS = OUTS : OUTS = % 1000011111111111
SORTIES = % 0000011111111110 : OUTS = OUTS : OUTS = % 0000111111111111
SORTIES = % 0000111111111110 : OUTS = OUTS : OUTS = % 1001111111111111
SORTIES = % 1001111111111110 : OUTS = OUTS : OUTS = % 1111111111111111
PROCHAINE
IF temps > 1 THEN LOOP_H
LOP = LOP-LOP 1:IF = 0 THEN FINI
'========================= EYE ==============================
ŒIL
ÉCRITURE 0,3 ' EEPROM = 2 NEXT = 3
TEMPS = 9000
« REGARDS d’oeil gauche & droite
'
'~~~~~~~~~~~~~~~~~~~~Clock
' :
« 12345 12345 : Voir la LED
« BBBBBgggggRRRRR : au cours de
SORTIES = % 1111111011110111' attente
PAUSE de 900 ' réinitialiser le Scanner à la colonne 1
PTR = 0 ' SPCLCRCPS 0123456789
GRAS = 200
LOOP_E
GRAS = gras-1:IF FAT > 0 THEN E_BALL
GRAS = 35:PTR = PTR + 1:IF PTR < 9 puis E_BALL
PTR = 0
E_BALL
TEMPS = temps-1:IF temps < 2 puis EYE_TEST
DIRECTION GÉNÉRALE DE LA PTR, [SHUT, PEEK, CENTRE, GAUCHE, CENTRE, DROITE, CENTRE, PEEK, ARRÊT]
CENTRE ' 12345 12345 12345
' BBBBBgggggRRRRR BBBBBgggggRRRRR
DSPL GOSUB ' Leader
GOSUB DSPM ' intermédiaire
DSPE GOSUB ' Ender
' BBBBBgggggRRRRR BBBBBgggggRRRRR
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
HAUTE 0:LOW 0
GOSUB ÉLÈVE
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
0:LOW HAUTE 0:GOTO LOOP_E
DROIT ' BBBBgggggRRRRR BBBBBgggggRRRRR
DSPL GOSUB ' Leader
GOSUB DSPM ' intermédiaire
SORTIES = % 1111101110011101 : PAUSE 1:LOW 0
SORTIES = % 1111110001100011 : PAUSE 1:LOW 0
' BBBBBgggggRRRRR BBBBBgggggRRRRR
GOSUB DARK3
GOSUB ÉLÈVE
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
GOTO LOOP_E
GAUCHE ' BBBBBgggggRRRRR BBBBBgggggRRRRR
SORTIES = % 1111110001100011 : PAUSE 1:LOW 0
SORTIES = % 1111101110011101 : PAUSE 1:LOW 0
GOSUB DSPM ' intermédiaire
DSPE GOSUB ' Ender
' OUT = % 1111111111111110
' BBBBBgggggRRRRR BBBBBgggggRRRRR
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
GOSUB ÉLÈVE
GOSUB DARK3
GOTO LOOP_E
DSPL
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111110101101011 : PAUSE 1:LOW 0
RETOUR
DSPM
SORTIES = % 1111101110011101 : PAUSE 1:LOW 0
SORTIES = % 1111101110011101 : PAUSE 1:LOW 0
SORTIES = % 1111101110011101 : PAUSE 1:LOW 0
RETOUR
DSPE
SORTIES = % 1111110101101011 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
RETOUR
PUPILLE
SORTIES = % 1000111111111111 : PAUSE 0:OUTS = % 1101111111111110 : PAUSE 1
SORTIES = % 1000111011111111 : PAUSE 0:OUTS = % 1000111111111110 : PAUSE 1
SORTIES = % 1000111111111111 : PAUSE 0:OUTS = % 1101111111111110 : PAUSE 1
RETOUR
DARK3
SORTIES = % 1111111111111111 : FAIBLE 0
HAUTE 0:LOW 0
HAUTE 0:LOW 0
RETOUR
COUP D’OEIL
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111110101101011 : PAUSE 1:LOW 0
SORTIES = % 1111110101101011 : PAUSE 1:LOW 0
SORTIES = % 1111110101101011 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111111111111111 : PAUSE 1:LOW 0
SORTIES = % 1111111111111111 : PAUSE 1:LOW 0
SORTIES = % 1101111111111111 : PAUSE 0:OUTS = % 1101111111111110 : PAUSE 1
SORTIES = % 1101111111111111 : PAUSE 0:OUTS = % 1101111011111110 : PAUSE 1
SORTIES = % 1101111111111111 : PAUSE 0:OUTS = % 1101111111111110 : PAUSE 1
SORTIES = % 1111111111111111 : PAUSE 1:LOW 0
SORTIES = % 1111111111111111 : PAUSE 1:LOW 0
GOTO LOOP_E
FERMER
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:LOW 0
SORTIES = % 1111111011110111 : PAUSE 1:OUTS = % 1111111111111110
GOTO LOOP_E
EYE_TEST
LOP = LOP-LOP 1:IF = 0 THEN FINI
"=== Hommes bijoux & TOY ===
MJT
ÉCRITURE 0,4 ' EEPROM = 3 NEXT = 4
POUR LES LIPIDES = 0 À 80
SORTIES = % 1110111101111111 : PAUSE 4
SORTIES = % 1110111111111111 : PAUSE 4
SORTIES = % 1111111110111101 : PAUSE 4
SORTIES = % 1111111111110111 : PAUSE 4
PROCHAINE
TEMPS = 2
LOOP_T
GRAS = 1 À LA FOIS SUIS
' BBBBBgggggRRRRR BBBBBgggggRRRRR
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
SORTIES = % 1111111111000111 : pause 1:OUTS = % 1111111111111000 : faire une pause 1
SORTIES = % 1111111111101111 : pause 1:OUTS = % 1111111111111110
SORTIES = % 1111111111110111 : pause 1:OUTS = % 1111111111111110
SORTIES = % 1111111111101111 : pause 1:OUTS = % 1111111111111110
SORTIES = % 1111111111000111 : pause 1:OUTS = % 1111111111111000 : faire une pause 1
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
pause 1:NEXT
GRAS = 1 À LA FOIS ' J
' BBBBBgggggRRRRR BBBBBgggggRRRRR
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
SORTIES = % 1100111001111111 : pause 1:OUTS = % 1100111111111110 : faire une pause 1
SORTIES = % 0111001110111111 : pause 1:OUTS = % 0111011111111110 : faire une pause 1
SORTIES = % 0111001110111111 : pause 1:OUTS = % 0111011111111110 : faire une pause 1
SORTIES = % 0111101111111111 : pause 1:OUTS = % 1011110111111110 : faire une pause 1
SORTIES = % 1101111011111110 : pause 1:OUTS = % 1110111101111110 : faire une pause 1
SORTIES = % 0011111111111110 : pause 1:OUTS = % 1100111111111110 : faire une pause 1
SORTIES = % 0111101111111111 : pause 1:OUTS = % 0111111111111110 : faire une pause 1
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
pause 1:NEXT
"goto JJ
GRAS = 1 À LA FOIS ' T
' BBBBBgggggRRRRR BBBBBgggggRRRRR
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
SORTIES = % 1111101111111111 : pause 1:OUTS = % 1111111111011110 : faire une pause 1
SORTIES = % 1111101111111111 : pause 1:OUTS = % 1111111111011110 : faire une pause 1
SORTIES = % 1111101111111111 : pause 1:OUTS = % 1111111111011110 : faire une pause 1
SORTIES = % 1111110011111110 : pause 1:OUTS = % 1111111111100110 : faire une pause 1
SORTIES = % 1111111100111110 : pause 1:OUTS = % 1111111111111000 : faire une pause 1
SORTIES = % 1111101111111111 : pause 1:OUTS = % 1111111111011110 : faire une pause 1
SORTIES = % 1111101111111111 : pause 1:OUTS = % 1111111111011110 : faire une pause 1
SORTIES = % 1111111111111111 : OUTS = % 1111111111111110
PROCHAINE
GRAS = 1 HEURE
PAUSE 14:NEXT
TEMPS = TIME + 2 temps < 80 puis LOOP_T
LOP = LOP-LOP 1:IF = 0 THEN FINI
DRAPEAU DE GOTO
P:RETURN
'==================== FINISHED ==============
FINI
SORTIES = % 1111111111111111
ÉCRITURE 0,0 ' EEPROM = 3 NEXT = 1
FIN