Hioki 3541 - Page 163

157
8.8 Sample Programs
(5) Set Measurement State
Sets up the measurement setting state.
'Function: Resistance Measurement
'Range: 200 mΩ
'Sampling: SLOW2
'Triggering: Internal
'Comparator: ON, HI/LO Mode, Beeper HL, Upper Threshold 200000, Lower Threshold 100000
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 '3541 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 RES", NLend) 'Select Resistance function
Call Send(pad, gpibad, ":RES:RANG 200E-3", NLend) 'Select 200 mΩ range
Call Send(pad, gpibad, ":SAMP:RATE SLOW2", NLend) 'Select SLOW2 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:MODE HL", NLend) 'From here on, comparator settings
Call Send(pad, gpibad, ":CALC:LIM:BEEP HL", NLend)
Call Send(pad, gpibad, ":CALC:LIM:UPP 200000", NLend)
Call Send(pad, gpibad, ":CALC:LIM:LOW 100000", NLend)
Call Send(pad, gpibad, ":CALC:LIM:STAT ON", NLend) 'Comparator ON
Call ibonl(pad, 0)
End Sub