Étape 5: Code
Tapez le code suivant ci-dessous."{$STAMP BS2}
"{$PBASIC 2,5}
BROCHE TX 0
#SELECT $STAMP
#CASE BS2
T19K2 CON 32
#ENDSELECT
LcdBkSpc CON $08 "déplacer le curseur gauche
LcdRt CON $09 "déplacer le curseur droit
LcdLF CON $ 0 a "déplacer le curseur vers le bas de 1 ligne
LcdCls CON $0c ' clear LCD (utilisation PAUSE 5 après)
LcdCR CON $0D ' move pos 0 de ligne suivante
LcdBLon CON $11 "rétro-éclairage sur
LcdBLoff CON $12 « rétro-éclairage éteint
LcdOff CON $15 ' LCD éteint
LcdOn1 CON $16 ' LCD ; curseur hors, blink hors
LcdOn2 CON $17 ' LCD ; curseur éteint, clignote sur
LcdOn3 CON $18 ' LCD ; curseur sur, blindfgdfk off
LcdOn4 CON $19 "LCD ; curseur sur, clin sur
LcdLine1 CON $80 ' passer à la ligne 1, colonne 0
LcdLine2 CON $94 ' passer à la ligne 2, colonne 0
charIn VAR Byte ' entrée de l’utilisateur
Baud mot VAR ' en bauds pour LCD série
' --- --- -----------
S0 PIN 3' A
S1 PIN 15' B
LA GOUPILLE 6' C
BORNE LED 4 SERAIENT
S2 PIN 8' E
S3 PIN 5' F
' -----[ Constants ]-------------------------------------------------------
« Définir les périodes de décompte pour chaque couleur. Régler ces lectures un peu moins
« 255 pour une feuille de papier blanc.
pRED CON 13 ' période rouge.
pGREEN CON 12 ' période de lecture vert.
pBLUE CON 11 ' période bleue.
' -----[ Variables ]-------------------------------------------------------
Mot de VAR rouge ' lecture de couleur rouge.
Mot du VAR vert ' Green lecture de couleur.
Mot de VAR bleu ' Blue lecture de couleur.
HAUTE S0 ' débit de sortie Maximum.
HIGH S1 ' "
LED haute "LED s’allume.
Baud = T19K2
principal :
FAIRE
SEROUT TX, baud, [LcdBLon]
PAUSE DE 500
GOSUB couleur "obtenir les données de couleur et de sortie de débogage.
DEBUG « R », DEC3 ROUGE
DEBUG « G », DEC3 VERT
DEBUG « B », DEC3 BLEU
DÉBOGAGE DE CR
SEROUT TX, baud, [« R », DEC3 rouge] ' envoyer char/num à LCD
SEROUT TX, baud, [« G », DEC3 vert]
SEROUT TX, baud, [« B », DEC3 bleu]
PAUSE DE 500
FIN
BOUCLE
FIN
' -----[ Initialization ]--------------------------------------------------
HAUTE S0 ' débit de sortie Maximum.
HIGH S1 ' "
LED haute "LED s’allume.
' -----[ Program Code ]----------------------------------------------------
« Couleur : lire toutes les composantes de trois couleurs.
Couleur:
FAIBLE S2 ' aborder la sortie rouge.
S3 BASSE
COUNT OUT, pRED, rouge "lire le composant rouge.
S3 haute ' aborder la sortie bleue.
COUNT OUT, pBLUE, BLUE ' lire la composante bleue.
S2 haute ' aborder la sortie verte.
COUNT OUT, pGREEN, GREEN ' lire la composante verte.
RETOUR