EL objeto de este proyecto es avanzar en el estudio de los microcontroladores pic, en esta ocasión le daremos impulso a la comunicación con los famosos modulos RX y Tx en mi caso los módulos trabajan a 433mhz, gracias a los cuales podré impulsar un proyecto que me solicitaron, transferencia de temperatura de termopares por radiofrecuencia, para tema de secado.
include "modedefs.bas"
botona var portb.0
botonb var portb.3
high portb.4
pause 1000
low portb.4
pause 1000
high portb.4
pause 1000
low portb.4
pause 1000
loop:
if botona=0 then goto led_on
if botonb=0 then goto led_off
serout portb.2,n2400,[$FF,$FF,"OK","C"]
goto loop
led_on:
serout portb.2,n2400,[$FF,$FF,"OK","A"]
goto loop
led_off:
serout portb.2,n2400,[$FF,$FF,"OK","B"]
goto loop
end
include "modedefs.bas"
datos var byte
led_rojo var portb.0
led_verde var portb.2
high portb.3
pause 1000
low portb.3
pause 1000
high portb.3
pause 1000
low portb.3
pause 1000
Loop:
serin portb.1,n2400,["OK"],datos
If datos="A" then ledrojo
if datos="B" then ledverde
if datos="C" then lednada
goto Loop
ledrojo:
High led_rojo
low led_verde
goto Loop
ledverde:
low led_rojo
high led_verde
goto Loop
lednada:
low led_verde
low led_rojo
goto loop
end
Como pueden ver se trata de un sencillo circuito de control por radiofrecuencia con módulos rx/tx a 433 mhz y dos pic 16f628a, el modulo transmisor emite las letra A al pulsar un botón para encender un led o si pulsa el otro botón transmite la letra B para encender otro led, sino se pulsa ninguna tecla solo transmite la letra C dejando viva la comunicación.
PREGUNTAS Y SUGERENCIAS.
Para cualquier pregunta puedes realizármela al correo joliva68@ono.com master@picpc.es