Sefelec M1501P Notice D'utilisation page 92

NOTICE TECHNIQUE D'UTILISATION M1501x
7340 CLS : LOCATE 5: PRINT " D‚part du cycle de test en megohmmetre"
7342 t3 = 1: GOSUB 600'mes$ = "NOD": GOSUB 300: t3 = 1: GOSUB 600
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,TES": MESRET = 0: GOSUB 300: GOSUB 320 'mes$ = "MES": GOSUB 300
7390 LOCATE 13: PRINT " Attente de la fin de la mesure...."
7391 't3 = .1: GOSUB 600: mes$ = "TES": MESRET = 0: GOSUB 300
7392 'GOSUB 320
7394 PRINT "Valeur de la tension:"; (VAL(MID$(val$, 4, 10))); " Volts "
7395 IF fin = 0 THEN 7405
7400 GOTO 7395
7405 t3 = .1: GOSUB 600: mes$ = "ISO": MESRET = 0: GOSUB 300: GOSUB 320
7406 PRINT "Valeur r‚sistance d'isolement:"; (VAL(MID$(val$, 4, 10)) / 1000000!); " Mohms "
7410 t3 = .1: GOSUB 600: mes$ = "DCH": GOSUB 300: LOCATE 17: PRINT "Fin de la mesure"': t3 = .5: GOSUB 600
7411 t3 = .1: GOSUB 600 'PRINT " XONREC="; XONREC: t3 = .2: GOSUB 600
7415 IF endcy = 0 THEN 7425
7420 num = num + 1: GOTO 7365
7425 mes$ = "TMA000": GOSUB 300
7430 'mes$ = "DIS": GOSUB 300: t3 = 1: GOSUB 600
7435 GOSUB 7250: RETURN
'
' touche PICO
'
7520 GOSUB 200: LOCATE 9, 30: PRINT "ATTENTE du Xon": mes$ = "PIC": GOSUB 300
7530 CLS : GOSUB 7550
7540 GOTO 7540
7550 GOSUB 200: 'off des keys
7560 KEY 1, "CYCLE"
7570 KEY 2, "ARRET"
7580 KEY 8, "RETOUR"
7590 ON KEY(1) GOSUB 7640
7600 ON KEY(2) GOSUB 7900
7610 ON KEY(8) GOSUB 7200
7620 kmax = 2: GOSUB 250: KEY(8) ON: ' on des keys
7630 RETURN
'
' cycle de mesure en pico
'
7640 CLS : LOCATE 5: PRINT " D‚part du cycle de test en picoamp‚rem‚tre"
7642 t3 = 1: GOSUB 600 'mes$ = "NOD": GOSUB 300: t3 = 1: GOSUB 600
7645 PRINT : PRINT "Si vous voulez modifier les param‚tres du test revenir a la touche CODE"
7650 PRINT "ATTENTION ce programme utilise le timer du M1500P"
7652 PRINT "Entrer le temps de test (001->999)";
7655 INPUT tim$: IF LEN(tim$) = 0 THEN 7660
7656 IF LEN(tim$) <> 3 THEN 7650
7658 mes$ = "TMA" + tim$: GOSUB 300
7660 num = 1: endcy = 1
7662 GOSUB 8300: 'test de la boucle de securite
7665 LOCATE 11: PRINT " Cycle num‚ro :"; num: PRINT
7680 fin = 1
7685 mes$ = "MES,TES": MESRET = 0: GOSUB 300: GOSUB 320
7690 LOCATE 13: PRINT " Attente de la fin de la mesure...."
7691 'mes$ = "TES": MESRET = 0: GOSUB 300: GOSUB 320
7692 PRINT "Valeur de la tension:"; (VAL(MID$(val$, 4, 10))); " Volts "
7695 IF fin = 0 THEN 7705
7700 GOTO 7695
7705 t3 = .1: GOSUB 600: mes$ = "COU": MESRET = 0: GOSUB 300: GOSUB 320
7706 PRINT "Valeur du courant:"; (VAL(MID$(val$, 4, 10))); " amp‚res "
7710 t3 = .1: GOSUB 600: mes$ = "DCH": GOSUB 300: PRINT "Fin de la mesure"
7712 t3 = .1: GOSUB 600
7715 IF endcy = 0 THEN 7725
7720 num = num + 1: GOTO 7665
7725 mes$ = "TMA000": GOSUB 300
7730 'mes$ = "DIS": GOSUB 300: t3 = 1: GOSUB 600
7735 GOSUB 7550: RETURN
'
'
'
' demande d'arret du cycle
7900 endcy = 0
7910 LOCATE 20: PRINT "Demande d'arret prise en compte"
7920 RETURN
'
' touche de status
'
8000 fin = 0: num = 0
8002 PRINT "Appuyer sur F8 pour sortir"
8004 GOSUB 8100: 'touche f8
8005 t2 = TIMER
8010 mes$ = "STA": MESRET = 0: GOSUB 300: GOSUB 320
8012 elapse = TIMER - t2
8020 LOCATE 5
8022 num = num + 1
8030 PRINT "Status de l'appareil:"; val$; " retour no:"; num; " temps IEEE:"; elapse
8040 IF fin = 0 THEN 8005
8050 CLS : GOSUB 7100
8060 RETURN
8100 GOSUB 200
8110 KEY 8, "RETOUR"
8120 ON KEY(8) GOSUB 8140
8130 KEY(8) ON
8132 RETURN
8140 fin = 1: RETURN
'
' test de la boucle de s‚curit‚
'
Sefelec
92