Metrix OX 800 Notice De Fonctionnement page 44

140
150
160
180
190
191
200
209
210
220
230
329
330
340
350
359
360
370
380
389
390
400
410
419
420
430
440
450
460
ParPeakPeakOn = &H31
ComExpX10 = &H6B
ParExpX1 = &H30
ParEot = &H4
'Setting Serial port COM1
"9600 bauds, 8 bits, 1 stop bit, no parity
OPEN "COM1:9600,N,8,1,RS,CS,DS,CD" FOR RANDOM AS #1
'Vertical Mode : CH1
numfunct = ComMdeVertical
parameter = ParMdeVertChl
GOSUB 1000
Range CH1 calibre 10 mV/Div
numfunct = ComAttChi
parameter= ParAtt10mV
GOSUB 1000
Time Base 200us/Div
numfunct = ComBdt
parameter = ParBdt200us
GOSUB 1000
'Coupling CH1 DC
numfunct = ComCplChl
parameter = ParCplDc
GOSUB 1000
'Trigger Source CH1
numfunct = ComSrcTrg
parameter= ParSrcTrgCch1
GOSUB 1000
'Trigger Coupling : DC
numfunct = ComFltTrg
parameter = ParFltTrgDe
GOSUB 1000
'Trigger Mode Peak to peak
numfunct = ComPeakPeak
parameter = ParPeakPeakOn
GOSUB 1000
"Expl0 : Off
numfunct = ComExpX10
parameter = ParExpX1l
GOSUB 1000
CLOSE #1
END
999 'Sending Command on COM1
1000 comm$ = CHR$(numfunct} + CHR$(parameter) + CHR$(ParEot)
1010 PRINT #1, commandes;
1020 RETURN
OX 800
ai