transmitter receiver help

[Deorge M]

Hello
I am a new user in picbasic and would want help
I found this code for 16F84 but communication transmitter receiver is not good

Thanks

Transmitter

DEFINE OSC 4
DEFINE BUTTON_PAUSE 50

TRISA=%11110
TRISB=%11110000
PORTA=0
PORTB=0


VERICI VAR Byte
VERICI=0
Index VAR Byte
X VAR Byte
b1 var Byte
b2 var Byte
b3 var Byte
b4 var Byte
PAUSE 500


START:
Button PORTA.1,0,255,0,b1,1,ch1
Button PORTA.2,0,255,0,b2,1,ch2
Button PORTA.3,0,255,0,b3,1,ch3
Button PORTA.4,0,255,0,b4,1,ch4
GoTo START


ch1:
VERICI=10
GoTo GONDER

ch2:
VERICI=20
GoTo GONDER

ch3:
VERICI=30
GoTo GONDER

ch4:
VERICI=40
GoTo GONDER


GONDER:
SerOut PORTA.0,396,[REP$AA\5,REP$00\5,REP$FF\5]
SEROUT2 PORTA.0,396,["I","S","K","O",VERICI]
GoTo START


receiver


DEFINE OSC 4
TRISA=0011
TRISB=%11110000
PORTA=0
PORTB=0

dekths VAR BYTE
Index VAR BYTE
aa1 var word
x VAR BYTE
aa2 var word
aa3 var word
dekths=0
aa1=300
aa2=300
aa3=500

PAUSE 500

START:
SERIN2 PORTA.0,396,[WAIT("ISKO"),dekths]


if PORTA.1=1 then poa1
if PORTA.1=0 then poao

poao:
IF dekths=10 THEN
high PORTB.0
PAUSE aa2
low PORTB.0
PAUSE aa3
ENDIF

IF dekths=20 THEN
high PORTB.1
PAUSE aa2
low PORTB.1
PAUSE aa3
ENDIF

IF dekths=30 THEN
high PORTB.2
PAUSE aa2
low PORTB.2
PAUSE aa3
ENDIF

IF dekths=40 THEN
high PORTB.3
PAUSE aa2
low PORTB.3
PAUSE aa3
ENDIF

GOTO START


poa1:
IF dekths=10 THEN
TOGGLE PORTB.0
PAUSE aa1
ENDIF

IF dekths=20 THEN
TOGGLE PORTB.1
PAUSE aa1
ENDIF

IF dekths=30 THEN
TOGGLE PORTB.2
PAUSE aa1
ENDIF

IF dekths=40 THEN
TOGGLE PORTB.3
PAUSE aa1
ENDIF

GOTO START
END

[sakis st]

Try it

SerOut PORTA.0,396,[REP$AA\5,REP$00\5,REP$FF\5]
pause 200 <----------------------------------------
SEROUT2 PORTA.0,396,["I","S","K","O",VERICI]
pause 200 <----------------------------------------

[Deorge M]

It is better but Lost a bytes

thanks

[dhouston]

See http://davehouston.org/RFTipsTricks.htm for an explanation of why using $55 or $AA for synchronization is not the best way to do this.

[Deorge M]

Hi dhouston
Please give me an example in picbasic

[Pedro Pinto]

Hi dhouston
Please give me an example in picbasic


Me too.
Thank You

Regards
Pedro

[dhouston]

Please give me an example in picbasic
Follow the links on the referenced webpage.

Me too.You,too.

Note: The SerOut2/SerIn2 example has not been tested - I'm too busy with a project of my own right now.

[Deorge M]

Note: The SerOut2/SerIn2 example has not been tested - I'm too busy with a project of my own right now

any help ;