Eaton MGR10 Serie Manuel D'utilisation page 95

PRINT "Entrer les codes ... envoyer au MGR10 (RETURN pour sortir)"
LOOP1:
PRINT "A$="; : LINE INPUT A$
IF LEN(A$) = 0 THEN GOTO SORTIE ELSE GOSUB envoi
IF RIGHT$(A$, 1) = "?" THEN
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
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
:"; msg$
MGR10 A/B/C Indice : J (version 7.0 du logiciel) 95