Publicité
NOTICE TECHNIQUE D'UTILISATION DE LA SERIE MG - SEFELEC
'Exemple de cycle pour DMG50 ou DMG500
CYCLE:
PRINT "Nombre de cycles : "; : INPUT nb
COM(1) ON
FOR j = 1 TO nb
PRINT : PRINT "Cycle nø"; j
A$ = "REM:SRQ": GOSUB ENVOI
A$ = "CONF:DISP ON:FILT NOR:QUIT": GOSUB ENVOI
A$ = "MEG:PAR 0:DCV 500:HLIM 1.0E+9:LLIM 10.0E+3:HTIM 5:QUIT": GOSUB ENVOI
A$ = "HIP:PAR 0:TIME AUT:HTIM 5:RTIM 1:FTIM 2": GOSUB ENVOI
A$ = "ACV 1000:HLIM 1.0E-3:LLIM 1.0E-5:DET I:QUIT": GOSUB ENVOI
A$ = "HIP:MEAS": GOSUB ENVOI
WHILE srq = 0: WEND: srq = 0
A$ = "MEAS?": GOSUB ENVOI
GOSUB ATTENTEXON
GOSUB ATTENTEMSG
PRINT "Résultat de mesure :"; msg$
A$ = "STOP:QUIT": GOSUB ENVOI
A$ = "MEG:MEAS": GOSUB ENVOI
WHILE srq = 0: WEND: srq = 0
A$ = "MEAS?": GOSUB ENVOI
GOSUB ATTENTEXON
GOSUB ATTENTEMSG
PRINT "Résultat de mesure :"; msg$
A$ = "STOP:QUIT": GOSUB ENVOI
NEXT j
WHILE INKEY$ = "": WEND
CLS
RETURN
'Exemple de cycle de séquence pour SMG50 ou SMG50
CYCLESEQUENCE:
PRINT "Nombre de cycles : "; : INPUT nb
COM(1) ON
FOR j = 1 TO nb
PRINT : PRINT "Cycle n°"; j
A$ = "REM:SRQ": GOSUB ENVOI
A$ = "CONF:DISP ON:FILT NOR:QUIT": GOSUB ENVOI
A$ = "MEG:PAR 0:DCV 500:HLIM 1.0E+9:LLIM 10.0E+3:HTIM 5:QUIT": GOSUB ENVOI
A$ = "HIP:PAR 2:TIME AUT:HTIM 5:RTIM 1:FTIM 2": GOSUB ENVOI
A$ = "ACV 1000:HLIM 1.0E-3:LLIM 1.0E-5:DET I:QUIT": GOSUB ENVOI
A$ = "GND:PAR 1:DCV 6:LLIM 50.0E-3:HLIM 1.0E-1:DCC 5.0E+0": GOSUB ENVOI
A$ = "TIME AUT:HTIM 1:RTIM 0:FTIM 0:QUIT": GOSUB ENVOI
A$ = "SEQ: PAR 0:(G1,M0,R2,M0,VO,VO,VO,VO):QUIT"
A$ = "SEQ:PAR 0:MEAS": GOSUB ENVOI
WHILE srq = 0: WEND: srq = 0
A$ = "MEAS?": GOSUB ENVOI
GOSUB ATTENTEXON
GOSUB ATTENTEMSG
PRINT "Résultat de la mesure :"; msg$
A$ = "STOP": GOSUB ENVOI
NEXT j
A$ = "QUIT": GOSUB ENVOI
WHILE INKEY$ = "": WEND
CLS
RETURN
Page : 104
SERIE MG Version :
R
Publicité
