NOTICE TECHNIQUE D'UTILISATION
9560 IF gami > 2E-11 THEN gam$ = "GM09" ELSE gam$ = "GM10"
9600 PRINT gam$
9610 mes$ = gam$: GOSUB 300
9620 RETURN
'
' Speed measurement in Megohm:
' NOD: NO Display ,the new code to cancel the display during
'
the measure.
'Sans passage en decharge
'
9700 CLS
9708 mes$ = "MGO,SOH+0.000E+06,TMA000,VIR,NOD": GOSUB 300
9709 GOSUB 9400: tim0 = TIMER
9710 fin = 0: i = 0
9714 i = i + 1
9720 tim1 = TIMER
9740 mes$ = "MES": GOSUB 300
9743 mes$ = "ISO": MESRET = 0: GOSUB 300: GOSUB 320
9744 sign$ = MID$(val$, 4, 1): ' <:the value is lower than the displayed resistance
'
>:the value is higher than the displayed resistance
'
+:the value is the measured resistance
9750 resi = VAL(MID$(val$, 5, 10))
9760 IF resi >= (VAL(lim$) * 1000000!) THEN resul$ = " G O O D "
9770 IF resi < (VAL(lim$) * 1000000!) THEN resul$ = " B A D !"
9780 tim2 = TIMER - tim1
9790 IF i = 100 THEN PRINT "Time for 100 measures:"; TIMER - tim0
9800 PRINT i, sign$; resi; "ohms", resul$
9810 IF fin = 0 THEN 9714
9812 PRINT "End of test !!"
9814 PRINT "Total time ="; TIMER - tim0; " secondes for:"; i; " points"
9816 PRINT "Average time ="; (TIMER - tim0) / i; " secondes"
9817 mes$ = "DCH": GOSUB 300
9820 RETURN
' Check of the voltage rising
'
13000 ' CLS
13002 mes$ = "MGO": GOSUB 300
13010 PRINT "Test voltage ("; volt$; "):";
13020 INPUT rep$
13030 IF LEN(rep$) = 0 THEN rep$ = volt$ ELSE volt$ = rep$
13040 ten% = VAL(rep$): GOSUB 400:
13042 FOR i = 1 TO 10
13050 mes$ = "MES": GOSUB 300:
13055 t1 = TIMER
13060 mes$ = "TES": MESRET = 0: GOSUB 300: GOSUB 320:
13070 te1% = VAL(RIGHT$(val$, 10))
13072 PRINT te1%
13090 t2 = TIMER:
13100 mes$ = "DCH": GOSUB 300:
13110 PRINT "Temps : "; t2 - t1
13112 NEXT i
13120 RETURN
'
' relecture de øC et %HR
'
13200 CLS : fin = 0: PRINT "Appuyer sur F10 pour arr‚ter"
13201 mes$ = "NOD": GOSUB 300: t3 = 1: GOSUB 600
13202 mes$ = "OPT110,MGO,MES": GOSUB 300
13210 mes$ = "TCF": MESRET = 0: GOSUB 300: GOSUB 320
13220 PRINT val$
13230 mes$ = "HUM": MESRET = 0: GOSUB 300: GOSUB 320
13240 PRINT val$
13250 IF fin = 0 THEN 13210
13252 mes$ = "DCH": GOSUB 300
13255 mes$ = "DIS": GOSUB 300: t3 = 1: GOSUB 600
13260 PRINT "Fin de test": RETURN
Sefelec
' sending the voltage
' going in to mmeasurement
' reading the voltage
' measuring test time
' discharge
94
M1501x