Stap 2: Schrijven van de Code van de zender
'------------------------------------------------------------
' 08 M Project Board - zender
SYMBOOL TX_PIN = 1
SYMBOOL TXLED_PIN = 2
SYMBOOL TempSend_PIN = 4
SYMBOOL BAUDRATE = N1200
SYMBOOL TmpReading = b1
onderbreken van 2000
belangrijkste:
' Lees temp
readtemp TempSend_PIN, TmpReading ' luiden naar waarde in b1
onderbreken van 150
' LED knipperen
hoge TXLED_PIN
onderbreken van 50
lage TXLED_PIN
Verzenden
onderbreken van 50
SerOut TX_PIN, BAUDRATE, ("UUUUUUUUUUUUUUUUUUUUU")
onderbreken van 20
Als TmpReading > 127 vervolgens ' negatief aantal
laat TmpReading = TmpReading - 128' neg waarde aanpassen
B2 = "-"
Anders ' positieve
B2 = ""
Eind als
serout TX_PIN, BAUDRATE, ("TP", b2, TmpReading, "x")
SerTxD (#TmpReading)
' nap 6
GOSUB Wait1Minute
goto belangrijkste
Wait1Minute:
' kloksnelheid afslaan
Poke $8F, % 01100000 ' klok instellen tot 31kHz ~ 19bps
' Brown uit detectie uitschakelen
DisableBod
slapen 4 ' in veelvouden van 2.3
' alles terug
EnableBod
Poke $8F, % 01100000 ' klok ingesteld op 4MHz 2400bps
TERUGKEER
Einde
'------------------------------------------------------------
De sub-procedure Wait1Minute maakt gebruik van een paar technieken te verlagen van het energieverbruik.
