transceiver 433 MHz

[Bruce]

You might want to verify your send/receive data rates as well.

[jonas2]

Hello

Thank you for your help, I'll try this way?


j var byte
datac Var Byte '
TX_Donnee Var Byte[24] ' Donnee emission
ID Var Byte ' emission IDentificateur
RX_Donnee Var Byte[24] ' Donnee reception



Loop: ' emission

ID=32 ' l'ID

For J = 0 to 23 '
TX_Donnee[J] = datac ' Transfert de datac vers TX_Donnee

Serout2 PortA.0,B2400,["#OK",ID,TX_Donnee] ' envoie l'ID suivie des donnees
Pause 100 '
Next J
Goto Loop



Loop1: ' reception


Serin2 PortA.1,B4800,[wait ("#OK"),ID,RX_Donnee] ' attend reception l'ID suivie des donnees

if ID=32 THEN

For j = 0 to 23 '
datac[J] = RX_Donnee ' Transfert de datac vers TX_Donnee
next j

Goto Loop1 ' boucle

[Ioannis]

No, you receive loop is wrong in the logic.

Try this for the receive part:

j=0

While j<24' reception
  
    Serin2 PortA.1,B4800,[wait ("#OK"),ID,RX_Donnee] ' attend reception l'ID suivie des donnees
	
    if ID=32 THEN
        datac[J] = RX_Donnee           ' Transfert de datac vers TX_Donnee
        j=j+1
     endif
Wend					                        ' boucle

[jonas2]

hello

thank you for your help