A$ = "sens:fres:mode fast": GOSUB envoi
A$ = "sour:curr 60,+I": GOSUB envoi
PRINT "Entrer le nombre de cycles:"; : INPUT nb%
tini = TIMER
FOR i = 1 TO nb%
IF fin = 1 THEN RETURN
PRINT "Cycle no:"; i
A$ = "read?": GOSUB envoi: GOSUB ATTENTEMSG: PRINT "R‚sistance:"; msg$; " Ohm"
NEXT i
tmes = TIMER - tini
PRINT ""
PRINT "Temps de cycle total :"; tmes
PRINT "Temps moyen par mesure :"; tmes / (i - 1)
RETURN
MGR10 A/B/C Indice : J (version 7.0 du logiciel)
96