Hello

Thank you for your help, what do you think of this program?

Compteur Var Byte '
TX_Donnee Var Byte[24] ' Donnee emission
RC_ID Var Byte ' emission IDentificateur
RX_Donnee Var Byte[24] ' Donnee reception


Loop: ' emission

For Compteur = 0 to 23 ' donnee
TX_Donnee = Compteur ' Transfert de Compteur vers TX_Donnee
Serout2 PortA.0,B2400,["#OK",RC_ID,TX_Donnee] ' envoie l'ID suivie des donnnees

Pause 100 '
Next
Goto Loop



Loop1: ' reception


Serin2 PortA.1,B4800,[wait ("#OK"),RC_ID,RX_Donnee] ' attend reception l'ID
if ID=32 THEN




Goto Loop1 ' boucle