Paso 2: Escribir el código del transmisor
'------------------------------------------------------------
Junta de proyecto ' 08 M - transmisor
SÍMBOLO TX_PIN = 1
SÍMBOLO TXLED_PIN = 2
SÍMBOLO TempSend_PIN = 4
SÍMBOLO VELOCIDAD EN BAUDIOS = N1200
SÍMBOLO TmpReading = b1
PAUSE 2000
principal:
' temp leer
readtemp TempSend_PIN, TmpReading ' leer el valor en b1
pausa de 150
' parpadea LED
TXLED_PIN alta
pausa de 50
TXLED_PIN baja
Enviar
pausa de 50
SerOut TX_PIN, velocidad de transmisión, ("UUUUUUUUUUUUUUUUUUUUU")
pausa de 20
Si TmpReading > 127 entonces ' número de negativos
que TmpReading = TmpReading - 128' ajustar valor neg
B2 = "-"
Otro ' positivo
B2 = ""
Terminar si
serout TX_PIN, velocidad de transmisión, ("TP", b2, TmpReading, "x")
SerTxD (#TmpReading)
' Siesta 6
GOSUB Wait1Minute
Goto principal
Wait1Minute:
' baje la velocidad del reloj
Poke $8F, % 01100000 ' ajustar el reloj a 31kHz ~ 19bps
' Desactivar el marrón a la detección
DisableBod
dormir 4 ' en múltiplos de 2,3
' cambiar todo nuevo
EnableBod
Poke $8F, % 01100000 ' ajustar el reloj a 4MHz 2400bps
VOLVER
Final
'------------------------------------------------------------
El procedimiento de sub Wait1Minute utiliza algunas técnicas para reducir el consumo de energía.
