Hioki BT3562-01 - Page 165

8.8 Sample Programs
161
8
Chapter 8 RS-232C/GP-IB Interfaces
(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 SettingsSubRS()
MSComm1.Settings = "9600,n,8,1" 'Comm port setting
MSComm1.PortOpen = True 'Open a port
MSComm1.Output = ":FUNC RV" & vbCrLf 'Select ΩV mode
MSComm1.Output = ":RES:RANG 300E-3" & vbCrLf 'Select 300 mΩ range
MSComm1.Output = ":SAMP:RATE SLOW" & vbCrLf 'Select SLOW sampling
MSComm1.Output = ":TRIG:SOUR IMM" & vbCrLf 'Select internal triggering
MSComm1.Output = ":INIT:CONT ON" & vbCrLf 'Continuous measurement ON
MSComm1.Output = ":CALC:LIM:BEEP HL" & vbCrLf 'From here on, comparator settings
MSComm1.Output = ":CALC:LIM:RES:MODE HL" & vbCrLf
MSComm1.Output = ":CALC:LIM:RES:UPP 20000" & vbCrLf
MSComm1.Output = ":CALC:LIM:RES:LOW 10000" & vbCrLf
MSComm1.Output = ":CALC:LIM:VOLT:MODE REF" & vbCrLf
MSComm1.Output = ":CALC:LIM:VOLT:REF 150000" & vbCrLf
MSComm1.Output = ":CALC:LIM:VOLT:PERC 0.1" & vbCrLf
MSComm1.Output = ":CALC:LIM:STAT ON" & vbCrLf 'Comparator ON
MSComm1.PortOpen = False
End Sub