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