RF and Manchester

[Pesticida]

Hi,
I open a new thread while nobody answered my old thread :-).
Did someone have a working Manchester code Encoder and Decoder ?
This what I find in forum dont work.


Regard Pesti.

[sougata]

Hi there,

Could you please elaborate. I have worked with Manchester Encoding schemes but not with PBP really.

Regards

Sougata

[BigWumpus]

Please give me some informations:

How many Bytes do you want to transfer ?
Are the receiver an Transmitter PICs ?

[Pesticida]

Hi,
Thanks people,yes the receiver is a pic and the transmitter is a pic,I have PIC16f870 and a UAA3201T.
For the moment I want to send from 1 to 5 byte no more, just for tests when this work then i can do more.
I attached the receiver to PortA.0 and I want to Decode the data for example 1 or more byte and then on PortA.1 send the data encoded to the transmitter.
I need a working manchester code ?!
And my second question is Are the binary data from receiver from left to right to be read or from right to left(I know that when I read binary data i starting from right 1,2,4,8,16,32 and so on) and to send did I send from left or right.
I write this little example to test if this work:

Main:
Manchesterword = %1001101001010110

For CounterA=0 to 7
If ManchesterWord.15=0 then
MyData=0
endif
If ManchesterWord.15=1 then

MyData=1
endif

ManchesterWord=ManchesterWord<<2

hserout[bin MyData]
next

pause 2000

goto main

Thanks people for the help.

Regard Pesti.

[Melanie]

Try searching the forum... code examples in this thread...

http://www.picbasic.co.uk/forum/showthread.php?t=198

[Pesticida]

Hi Melanie,
I have just tryed this code but dont work,I'm tryed with this example just to see if this work:
Define LOADER_USED 1


Include "modedefs.bas" ' Mode definitions for Serout
ADCON1=7
define osc 4

DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG 207 ' 1200 Bauds
DEFINE HSER_CLOERR 1

''''''''''''''''''''''''''''''''''''''''''''''''De coder'''''''''''''''''''''''''''''''''''''''''
Main:
ManchesterWord = %1010101001010101


ErrorFlag=0
For CounterA=0 to 7
If ManchesterWord.1=0 then
MyData.7=0
If ManchesterWord.0=0 then ErrorFlag=1
else
MyData.7=1
If ManchesterWord.0=1 then ErrorFlag=1
endif
ManchesterWord=ManchesterWord>>2
If CounterA<7 then MyData=MyData>1
next
hserout [Mydata]
pause 2000
goto Main

I become all the time 255255255255127127...... and so on.

Regard Pesti.