Hioki BT3562-01 - Page 170

8.8 Sample Programs
166
(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 'BT3562-01, BT3563-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