PIC to PIC TX RX and PIC to PC COM RX ..a little help please

[mackrackit]

I think the modules you are using are the same as Bruce sells, the RWS/TWS ones?
What are you using for an antenna and how long is it? Should be around 6.5 inches. Ground plane? Anything around that could be causing interference? A picture of the setup might help.

Can you post the code that is sorta working? At this point it could be a number of things. We have to rule out hardware or software.

Now try to tighten things up a bit.

TRAIN  VAR BYTE
train =  $B3
SYNK VAR BYTE
SYNK = $7E

SEROUT2 PORT??, BAUD?,[TRAIN, SYNK, DEC 23]

SYNK VAR BYTE
SYNK = $7E
MYVAR  VAR BYTE

SERIN2  PORT??, BAUD?, [WAIT(SYNK), DEC MYVAR]

[Dennis]

Dave :-)

It's working like a charm :-)....I think, just getting an

extra character on every second line :-)
Range is awesome in the house, reaches all distant corners

--will do range tests tomorrow and feedback to you.

Here's the OLD code

Which worked but wasn't too accurate

TX CODE

TRAIN	VAR BYTE
TRAIN=$55


hSEROUT [TRAIN,TRAIN,TRAIN,TRAIN,TRAIN,"9",dec 3,$d,$a]

RX code

HSERIN [WAIT("9"),DEC NET]

 HSERout ["I Recived this number ",DEC NET,$d,$a] 'net var 

value should show in hyperterminal

Heres the NEW TX code
USING HSER

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous 

receive
DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0
DEFINE HSER_SPBRG 207 ' 2400 Baud @ 32MHz, 0.17%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically

test:
TRAIN  VAR BYTE
 train =  $B3
 SYNK VAR BYTE
 SYNK = $7E

hserout [TRAIN,SYNK,DEC 23]
goto test

and the RX code:

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous 

receive
DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0
DEFINE HSER_SPBRG 207 ' 2400 Baud @ 32MHz, 0.17%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically

test:

high led

hserin [WAIT(SYNK), DEC net]


toggle LED
HSERout ["I Recived this number ",DEC NET,$d,$a] 'net var 

value should show in hyperterminal

goto test

Here's my receiver output from MCS serial tool window

I Recived this number 2
I Recived this number 23
I Recived this number 2
I Recived this number 23
I Recived this number 2
I Recived this number 23

As you can see I'm receiving DEC 2 and 23.
Where is the number 2 coming from ?
Eerie ?

Now all I need to do is akind of checksum for example, if

the number 23 is received 3 times then it's a VALID TX.

Any more optimizations or tweaks I should try ?

Thanks a million

Kind regards

(From a very happy:-))
Dennis

[mackrackit]

COOL!!!!

Probably the easiest thing to do for this app would be a simple check.

hserin [WAIT(SYNK), DEC net]
IF net = 23 THEN ...

Or build a checksum... but try the above first, keep it simple.

[aratti]

Dennis, you should remove the DEC command from the HSEROUT see the code below.

A0 var BYTE

A0=23
'hserout [TRAIN,SYNK,DEC 23]
hserout [TRAIN,SYNK, A0]

Al.

[Dennis]

Hi Al

How are you?

Thanks for the tip will definitely try it :-)

Kind regards

Dennis