433mhz

[mpardinho]

i use 2 circuits

1 - 16F628
1 - Transmiter

2 - 16F628
2 - Receive

1 - code - Transmit


INCLUDE "modedefs.bas"

Transmissor_Saida VAR PORTA.2 '

Dados var byte
Sincronismo var byte
Codigo_Teste var byte

CMCON = 7 ' PortA = digital I/O
VRCON = 0 ' Voltage reference disabled
OPTION_REG.7 = 0 ' Enable PORTB pull-ups

codigo_Teste = "©"
Sincronismo = "®"

Inicio:
pause 100

for dados = 33 to 255
serout Transmissor_Saida, T2400, [codigo_Teste, sincronismo, dados, codigo_Teste]
PAUSE 1
next
serout Transmissor_Saida, T2400, ["END", 13, 10]
goto inicio

end



2 - code - Receive


INCLUDE "modedefs.bas"

Serial_Entrada VAR PORTA.3 ' 2 Pic Rx -> 9 Max 232 Tx Marron
Serial_Saida VAR PORTA.2 ' 1 Pic Tx -> 10 Max 232 Rx Laranja
Receptor_Entrada VAR PORTA.1 ' 1 Pic Rx -> 9 Receptor data

Dados var byte
Sincronismo var byte
Codigo_Teste var byte

CMCON = 7 ' PortA = digital I/O
VRCON = 0 ' Voltage reference disabled
OPTION_REG.7 = 0 ' Enable PORTB pull-ups

codigo_Teste = "©"
Sincronismo = "®"

serout serial_saida, T2400, ["Inicio", 13, 10]

Inicio:

'SERIN serial_entrada, T2400, [CODIGO_TESTE, SINCRONISMO], DAdos
'SERIN receptor_entrada, T2400, [CODIGO_TESTE, SINCRONISMO], DAdos

SERIN receptor_entrada, T2400, DAdos
SEROUT SERIAL_SAIDA, T2400, [DAdos, 13, 10]

gOTO inicio


my problem is than in receive,
Dados = "["
i not receive "[", "]", A
in hyperterminal i receivce 10 caracter "["


i use this code for test http://www.rentron.com/Stamp_RF.htm

[sayzer]

I am no expert but,

1. You send three variables : T1, T2, and A.

Then you have one variable, DAdos, in your receiver to receive them.
You should have three variables in receiver.

2. You use T2400 in your sender.
But you have T1200 in your receiver.



---------------------------------

[HenrikOlsson]

Hi,
Well, according to your code you are sending at 2400baud and recieving at 1200. That will not work....

Also, on your reciever, you are telling SERIN to recieve one byte (DAdos). If you are sending three bytes you need to tell SERIN to recieve 3 bytes.


DAdos var byte
Temp1 var byte
Temp2 var byte

SERIN SER_IN, T1200, DAdos, Temp1, Temp2
SEROUT SER_OUT, T1200, DAdos, Temp1, Temp2, 10, 13

'....and so on


You can also try:


DEFINE CHAR_PACING 1000 'Serout character pacing in us

Perhaps that will help.

/Henrik Olsson.

[skimask]

i use 2 circuits

1 - 16F628
1 - Transmiter

2 - 16F628
2 - Receive

1 - code - Transmit
T1 = "["
T2 = "]"

start:
For A = 1 to 10
SEROUT SERIAL_OUT, T2400, [T1, T2, A]
next
goto start

2 - code - Receive

start:
SERIN SER_IN, T1200, DAdos
SEROUT SER_OUT, T1200, [DAdos, 13, 10]
goto start


my problem is than in receive,
Dados = "["
i not receive "[", "]", A
in hyperterminal i receivce 10 caracter "["


i use this code for test http://www.rentron.com/Stamp_RF.htm



You send 3 numbers and only receive one...how's that going to work?
You send at 2400, receive at 1200...how's that going to work?
Also, I don't see anything set up to synchronize the receiver, nothing relating to manchester encoding your data, and I could go on.
Read thru the example at Rentron's site a bit more before you start in again.
JDG

[mpardinho]

pardon....both are T2400.. rewrite post...my real code

i will try DEFINE CHAR_PACING 1000 and post the results

many thanks brothers

[sayzer]

Don't scare him skimask!

Not having that much experience is not a crime nor is making mistakes.


-----------------------------

[skimask]

Don't scare him skimask!

Not having that much experience is not a crime nor is making mistakes.


-----------------------------


No scaring going on here. Just pointing out the blatently obvious...again.
JDG