Hioki BT3563 - Page 176

8.8 Sample Programs
170
(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
HIOKI BT3562A981-09