Table des Matières
Publicité
NOTICE TECHNIQUE D'UTILISATION
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"
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: CLS : 'test de la boucle de securite
7665 PRINT " Cycle num‚ro :"; num: PRINT
7680 fin = 1
7685 mes$ = "MES": GOSUB 300
7690 PRINT " Attente de la fin de la mesure...."
7691 mes$ = "TES": GOSUB 300: GOSUB 320
7692 PRINT "Valeur de la tension:"; (VAL(MID$(val$, 4, 10))); " Volts "; val$
7695 IF fin = 0 THEN 7705
7700 GOTO 7695
7705 mes$ = "COU": GOSUB 300: GOSUB 320
7706 PRINT "Valeur du courant:"; (VAL(MID$(val$, 4, 10))); " amp‚res "; val$
7710 mes$ = "DCH": GOSUB 300: PRINT "Fin de la mesure"
7712 't3 = .4: GOSUB 600
7715 IF endcy = 0 THEN 7725
7720 num = num + 1: GOTO 7665
7725 mes$ = "TMA000": GOSUB 300: GOSUB 7550: RETURN
'
'
'
' demande d'arret du cycle
7900 endcy = 0: fin = 0
7910 LOCATE 22: 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": 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‚
'
8300 mes$ = "STA": GOSUB 300: GOSUB 320
8310 IF (VAL(MID$(val$, 4, 2)) AND 1) = 0 THEN 8330
8320 LOCATE 10, 10: PRINT "Boucle de s‚curit‚ ouverte !!!": GOTO 8300
8330 LOCATE 10, 10: PRINT "Boucle de s‚curit‚ ferm‚e !!!"
8340 RETURN
'
' decodage du status byte pour SRQ
'
8400 IF stp% = 212 THEN fin = 0
8410 IF stp% = 211 THEN break = 0
8420 IF stp% = 213 THEN rise = 0
8430 IF stp% = 192 THEN ready = 1
8432 IF stp% = 194 THEN ready = 1
8433 IF stp% = 193 THEN ready = 1
8440 RETURN
'
' Relecture des m‚moires de stockages
'
8500 mes$ = "DTP": GOSUB 300: GOSUB 320
8510 nbrmax = VAL(MID$(val$, 2, 3))
8520 IF nbrmax = 0 GOTO 8900
8522 mes$ = "DTR001." + MID$(val$, 2, 3): PRINT mes$: GOSUB 300
8524 tm0 = TIMER
8530 FOR i = 1 TO nbrmax
8540 GOSUB 320
8550 PRINT i; val$
8560 NEXT
8562 tm1 = TIMER: PRINT "Temps de relecture:"; tm1 - tm0
8564 PRINT "Temps moyen par valeur :"; (tm1 - tm0) / nbrmax
8570 RETURN
8900 PRINT "Pas de valeur en m‚moire !!!!!!"
8910 RETURN
'
' Speed measurement in Megohm:
' NOD: NO Display ,the new code to cancel the display during
'
the measure.
Sefelec
54
M1501x
Publicité
Table des Matières
