Hioki 3561, Руководство пользователя

Страница: 162 / 190

7.8 Sample Programs
156
(5) Set Measurement State
Sets up the measurement setting state.
'Function:
Ω
V
'Range: 300 m
Ω
'Sampling: SLOW
'Triggering: Internal
'Comparator: ON, Beeper HL,
Resistance High/Low mode, Upper threshold 20000 (200.00 m
Ω
), Lower threshold 10000 (100.00 m
Ω
)
Voltage REF/%, Reference value 150000 (15.0000 V), toTolerance 0.1%
Private Sub SettingsSub()
Dim pad As Integer
'Controller access
Dim gpibad As Integer 'Device Address
Dim timeout As Integer 'Timeout period
Dim ud As Integer 'State (unused)
pad = 0 'Board Address 0
gpibad = 1 '3561 (3561-01) Address 1
timeout = T10s 'Timeout about 10s
Call ibfind("gpib0", 0) 'Initialize GP-IB
Call ibdev(pad, gpibad, 0, timeout, 1, 0, ud)
Call SendIFC(pad)
Call Send(pad, gpibad, ":FUNC RV", NLend) 'Select
Ω
V mode
Call Send(pad, gpibad, ":RES:RANG 300E-3", NLend) 'Select 300 m
Ω
range
Call Send(pad, gpibad, ":SAMP:RATE SLOW", NLend) 'Select SLOW sampling
Call Send(pad, gpibad, ":TRIG:SOUR IMM", NLend) 'Select internal triggering
Call Send(pad, gpibad, ":INIT:CONT OFF", NLend) 'Continuous measurement OFF
Call Send(pad, gpibad, ":CALC:LIM:BEEP HL", NLend) 'From here on, comparator settings
Call Send(pad, gpibad, ":CALC:LIM:RES:MODE HL", NLend)
Call Send(pad, gpibad, ":CALC:LIM:RES:UPP 20000", NLend)
Call Send(pad, gpibad, ":CALC:LIM:RES:LOW 10000", NLend)
Call Send(pad, gpibad, ":CALC:LIM:VOLT:MODE REF", NLend)
Call Send(pad, gpibad, ":CALC:LIM:VOLT:REF 150000", NLend)
Call Send(pad, gpibad, ":CALC:LIM:VOLT:PERC 0.1", NLend)
Call Send(pad, gpibad, ":CALC:LIM:STAT ON", NLend)
'Comparator ON
Call ibonl(pad, 0)
End Sub