Sefelec M1501P Notice D'utilisation page 53

NOTICE TECHNIQUE D'UTILISATION
534 GOSUB 8400: 'decodage du status byte
540 PRINT "srq!!!!:"; stp%
550 RETURN
'
' boucle de tempo: t3=valeur en secondes tempo
'
600 t = TIMER
610 WHILE t <> 0: t2 = TIMER: IF t2 - t >= t3 THEN t = 0
620 WEND
630 RETURN
'
' traitement de l'envoi de codes un par un
'
1000 CLS
1010 GOSUB 200: 'off des keys
1020 PRINT "Entrer le code ... envoyer en MAJUSCULES (return = sortie):";
1030 LINE INPUT cod$
1032 IF LEN(cod$) = 0 THEN 1060
1040 mes$ = cod$: GOSUB 300
1050 GOTO 1020
1060 CLS : GOSUB 120: RETURN
'
' cycles de mesures
'
7000 CLS
7010 GOSUB 7100
7020 GOTO 7020
'
7100 GOSUB 200: ' off des keys
7110 KEY 1, "MEGOHM"
7120 KEY 2, "PICO"
7122 KEY 3, "SRQ"
7124 KEY 4, "MESDCH"
7126 KEY 5, "ACQUI"
7128 KEY 6, "MEMO"
7129 KEY 7, "VITESS"
7130 KEY 8, "RETOUR"
7131 KEY 9, "øC/HR "
7132 KEY 10, "STOP"
7140 ON KEY(1) GOSUB 7220
7142 ON KEY(2) GOSUB 7520
7152 ON KEY(3) GOSUB 10000
7154 ON KEY(4) GOSUB 9000
7156 ON KEY(5) GOSUB 12000
7158 ON KEY(6) GOSUB 8500
7159 ON KEY(7) GOSUB 9700
7160 ON KEY(8) GOSUB 7200
7161 ON KEY(9) GOSUB 13200
7162 ON KEY(10) GOSUB 9300
7170 kmax = 9: GOSUB 250: KEY(10) ON: ' on des keys
7180 RETURN
'
' touche de retour
'
7200 CLS
7210 GOSUB 120: RETURN
'
' touche MEGOHM
'
7220 CLS : GOSUB 7250
7230 mes$ = "MGO": GOSUB 300
7240 GOTO 7240
7250 GOSUB 200: 'off des keys
7260 KEY 1, "CYCLE"
7270 KEY 2, "ARRET"
7280 KEY 8, "RETOUR"
7290 ON KEY(1) GOSUB 7340
7300 ON KEY(2) GOSUB 7900
7310 ON KEY(8) GOSUB 7200
7320 kmax = 2: GOSUB 250: KEY(8) ON: ' on des keys
7330 RETURN
'
' cycle de mesure en megohm
'
7340 CLS : LOCATE 5: PRINT " D‚part du cycle de test en megohmmetre"
7345 PRINT : PRINT "Si vous voulez modifier les param‚tres du test revenir a la touche CODE"
7350 PRINT "ATTENTION ce programme utilise le timer du M1500P"
7352 PRINT "Entrer le temps de test (001->999)";
7355 INPUT tim$: IF LEN(tim$) = 0 THEN 7360
7356 IF LEN(tim$) <> 3 THEN 7350
7358 mes$ = "TMA" + tim$: GOSUB 300
7360 num = 1: endcy = 1
7362 GOSUB 8300: 'test de la boucle de securite
7365 'LOCATE 11: PRINT " Cycle num‚ro :"; num: PRINT
7380 fin = 1
7385 mes$ = "MES": GOSUB 300': t3 = 1.5: GOSUB 600
7390 'PRINT " Attente de la fin de la mesure...."
7391 'mes$ = "TES": GOSUB 300: GOSUB 320
7392 'PRINT "Valeur de la tension:"; (VAL(MID$(val$, 4, 10))); " Volts"; val$
7395 'IF fin = 0 THEN 7405
7400 'GOTO 7395
7405 'mes$ = "ISO": GOSUB 300: GOSUB 320
7406 'PRINT "Valeur r‚sistance d'isolement:"; (VAL(MID$(val$, 4, 10)) / 1000000!); " Mohms"; val$
7410 mes$ = "DEL": GOSUB 300 ': LOCATE 17: PRINT "Fin de la mesure"
7411 mes$ = "DCH": GOSUB 300 ': LOCATE 17: PRINT "Fin de la mesure"
7415 IF endcy = 0 THEN 7425
7420 num = num + 1: GOTO 7365
7425 mes$ = "TMA000": GOSUB 300: CLS : GOSUB 7250: RETURN
'
' touche PICO
'
7520 CLS : GOSUB 7550
7530 mes$ = "PIC": GOSUB 300
Sefelec
53
M1501x