sorry if i worded my post wrong, i am using 2 pic's one to transmit, and one to receive.
it works with a direct link between the two mcu's
and i'm using the good old 16f84a just wanted to start off simple
transmitter code
Code:
include "modedefs.bas"
'transmitter on portb.1
trisb.1=0
transmit_data var byte
restart_counter var byte
restart_counter=0
init:
pause500
lcdout "Serial"
lcdout $fe,$c0, "Transmitter"
pause 1000
main:
for transmit_data=0 to 100
serout2 portb.1,n2400,[$55,$55,$60,transmit_data]
pause 500
lcdout $fe,1
lcdout "Transmitting"
lcdout $fe,$c0,dec3 transmit_data, " "
if transmit_data=100 then restart_timer
next transmit_data
goto main
restart_timer:
pause 500
lcdout $fe,1 ' clear lcd
for restart_counter=0 to 10
lcdout "Data sent"
lcdout $fe,$c0, "restart in10:",dec2 restart_counter," "
pause 500
if restart_counter=10 then main
next restart_counter
goto restart_timer
receiver code
Code:
include "modedefs.bas"
'receiver on portb.0
trisb.0=1
data_received var byte
data_received=0
init:
pause500
lcdout "Serial Data"
lcdout $fe,$c0, "Receiver"
pause 1000
lcdout $fe,1
lcdout "Waiting For"
lcdout $fe,$c0, "Data"
main:
serin2 portb.0,n2400,[wait($60),data_received]
pause 500
lcdout $fe,1 ' clear lcd
lcdout "Receiving Data"
lcdout $fe,$c0,dec3 data_received," "
goto main
Bookmarks