Io dovrei avviare e stoppare il timer per ogni messaggio inviato tramite seriale.
dim var as integer
do
riprova :
var= var+ 1
invio messaggio
avvio il timer ( quando avvio timer, il sw deve rimanere in attesa di una risposta, io so quando l'elettronica risponde, perché la mia variabile ok =1 altrimenti è =0)
if ok = 1 then
timer stop
elseif ok= 0 and timer_Tick = 2000 then
var=var-1
go to riprova
end if
loop Until var= 10