MGR10 A/B/C - Revision : I (for 7.0 software revision)
97
IF LEFT$(A$, 1) <> "*" THEN 'commande type "query"
GOSUB ATTENTEMSG
ELSE
GOSUB ATTENTEMSG 'commande type "common query"
END IF
PRINT "r‚sultat de mesure="; msg$
END IF
GOSUB ATTENTEXON
GOTO LOOP1
SORTIE:
COM(port%) ON
CLS
RETURN
'-----------------------------------------------------------------------------
AUTO:
CLS
AUTORUN = 1
PRINT "- TEST IDENTIFICATION -"
GOSUB IDN
PRINT : PRINT "- TEST CONFIGURATION -"
GOSUB CONFIG
AUTORUN = 0
RETURN
'-----------------------------------------------------------------------------
IDN:
IF AUTORUN = 0 THEN CLS
COM(port%) ON
A$ = "*idn?"
GOSUB envoi
GOSUB ATTENTEMSG 'commande type "common query"
PRINT "R‚sultat de l'identification :"; msg$
A$ = "*tst?"
GOSUB envoi
GOSUB ATTENTEMSG 'commande type "common query"
PRINT "R‚sultat de l'autotest :"; msg$
RETURN
'-----------------------------------------------------------------------------
CONFIG:
IF AUTORUN = 0 THEN CLS
COM(port%) ON
A$ = "disp:brig off": GOSUB envoi
A$ = "disp:brig on": GOSUB envoi
A$ = "syst:vers?": GOSUB envoi: GOSUB ATTENTEMSG: PRINT "Status SCPI : "; msg$
A$ = "syst:date?": GOSUB envoi: GOSUB ATTENTEMSG: PRINT "Date systŠme : "; msg$
A$ = "syst:time?": GOSUB envoi: GOSUB ATTENTEMSG: PRINT "Heure systŠme: "; msg$
PRINT : PRINT "Fin du test "
RETURN
'-----------------------------------------------------------------------------
MESURE:
COM(port%) ON
IF AUTORUN = 1 THEN nb% = 1: GOTO meg1
CLS
meg1:
A$ = "init:cont off": GOSUB envoi
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%
Содержание MGR10
Страница 1: ...SEFELEC REFERENCE PENT0060 Operating manual MGR10 English...
Страница 25: ...MGR10 A B C Revision I for 7 0 software revision 25...
Страница 68: ...MGR10 A B C Revision I for 7 0 software revision 68 autorange AUTO OFF AUTO1 AUTO2...
Страница 92: ...MGR10 A B C Revision I for 7 0 software revision 92 RS 232 Interface Commands SYSTem LOCal REMote...