Étape 2: Écrire le Code de l’émetteur
'------------------------------------------------------------
' 08 M projet Conseil - émetteur
SYMBOLE TX_PIN = 1
SYMBOLE TXLED_PIN = 2
SYMBOLE TempSend_PIN = 4
SYMBOLE BAUDRATE = N1200
SYMBOLE TmpReading = b1
faire une pause 2000
principal :
« lecture de temp
readtemp TempSend_PIN, TmpReading ' lire la valeur en b1
faire une pause 150
"clignotement LED
haute TXLED_PIN
faire une pause 50
TXLED_PIN faible
Envoyer
faire une pause 50
SerOut TX_PIN, BAUDRATE, ("UUUUUUUUUUUUUUUUUUUUU")
pause de 20
Si TmpReading > 127 puis ' numéro de négatif
Let TmpReading = TmpReading - 128' ajuster la valeur neg
B2 = "-"
Else ' positif
B2 = ""
Fin si
serout TX_PIN, BAUDRATE, (« TP », b2, TmpReading, « x »)
SerTxD (#TmpReading)
« 6 la sieste
GOSUB Wait1Minute
Goto principal
Wait1Minute :
« baissez la vitesse d’horloge
poke $8F, % 01100000 "régler l’horloge à 31khz ~ 19 bits/s
« Désactiver Brown sur détection
DisableBod
dormir 4 ' en multiple de 2.3
« tout remodifier
EnableBod
poke $8F, % 01100000 "régler l’horloge à 4MHz 2400bps
RETOUR
Fin
'------------------------------------------------------------
La procédure sub Wait1Minute utilise quelques techniques pour réduire la consommation d’énergie.