this my working serial com project : ( I'm test it )
transmitter :
@ device XT_osc
INCLUDE "modedefs.bas"
baslangicdatasi var byte
TRISB=%01000000
PORTB=0
baslangicdatasi=65
gonder:
PAUSE 1000
SEROUT PORTB.7,N2400,["protocol",baslangicdatasi] ' SEND BEFORE "protocol" AFTER SEND baslangicdatasi
son:
END
receiver :
INCLUDE "modedefs.bas"
TRISA=%00000000
TRISB=%00000011
B0 var byte
B1 var byte
B3 var byte
B0=0
PORTA=0
B3=2
LOW PORTB.3
LOW PORTA.2
HIGH PORTA.0
start:
B0=0
' IF PORTB.0=0 THEN bekle
' GOTO start
bekle:
SERIN PORTB.1, N2400, ["protocol"],B0 ' wait "protocol" after write receive baslangicdatasi and insert in B0
IF B0=65 then kontrol
GOTO bekle
kontrol:
IF B3=2 then ac
IF B3=1 then kapat
GOTO kontrol
Bookmarks