Hioki RM3542 - Page 165

9.9 Sample Programs
159
9
 Set Measurement State
Sets up the measurement setting state.
'Measurement Setting Configuration
'Configures instrument settings for measurement
'Function: Resistance Measurement
'Range: 1
'Sampling: FAST
'Triggering: External trigger
'Comparator enabled, REF% mode, reference value 1
, tolerance +1.0% / –1.5%, beep upon Hi or Lo
Private Sub SettingsSub()
Dim pad As Integer 'Controller Address
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 'RM3542 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 1E+0", NLend) 'Select 1000 m range
Call Send(pad, gpibad, ":SPEE FAST", NLend) 'Select FAST sampling
Call Send(pad, gpibad, ":TRIG:SOUR EXT", NLend) 'Select external triggering
Call Send(pad, gpibad, ":INIT:CONT ON", NLend) 'Continuous measurement ON
Call Send(pad, gpibad, ":CALC:LIM:MODE REF", NLend) 'From here on, comparator settings
Call Send(pad, gpibad, ":CALC:LIM:BEEP HL", NLend)
Call Send(pad, gpibad, ":CALC:LIM:REF 1E+0", NLend)
Call Send(pad, gpibad, ":CALC:LIM:PERC 1.0, -1.5", NLend)
Call Send(pad, gpibad, ":CALC:LIM:STAT ON", NLend) 'Comparator ON
Call ibonl(pad, 0)
End Sub