Trådlös temperatursensor (2 / 4 steg)
Steg 2: Skriva sändaren koden
'------------------------------------------------------------
' 08 M projektstyrelse - sändare
SYMBOL TX_PIN = 1
SYMBOL TXLED_PIN = 2
SYMBOL TempSend_PIN = 4
SYMBOL BAUDVÄRDE = N1200
SYMBOL TmpReading = b1
Pausa 2000
viktigaste:
"Läs temp
readtemp TempSend_PIN, TmpReading ' läsa värdet i b1
Pausa 150
"blinkar LED
hög TXLED_PIN
Pausa 50
låg TXLED_PIN
Skicka
Pausa 50
SerOut TX_PIN, BAUDRATE, ("pluggar")
Pausa 20
om TmpReading > 127 sedan "negativa tal
Låt TmpReading = TmpReading - 128' justera neg värde
B2 = "-"
Annat "positiva
B2 = ""
Slut om
serout TX_PIN, BAUDRATE, ("TP", b2, TmpReading, "x")
SerTxD (#TmpReading)
"tupplur 6
GOSUB Wait1Minute
gå till största
Wait1Minute:
"Sänk klockfrekvens
Poke $8F, % 01100000 ' ställa in klockan till 31kHz ~ 19bps
"Inaktivera brun ut upptäckt
DisableBod
sova 4 "i multiplar av 2.3
"ändra allt tillbaka
EnableBod
Poke $8F, % 01100000 ' ställa in klockan 4 MHz 2400bps
RETURNERA
Slutet
'------------------------------------------------------------
Wait1Minute sub-procedur använder några tekniker för att sänka strömförbrukningen.