transceiver 433 MHz

[Ioannis]

Sorry but no!

You lack basic knowledge of the lanquage syntax.

I am sorry to say that, but you must read the PBP manual and test the commands before doing this.

Just to help you going, arrays are accessed by their element position, e.g. TX_Donnee = Compteur is wrong and should be TX_Donnee[Compteur] = Compteur.

Ioannis

[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