Hioki 3541 - Page 158

8.8 Sample Programs
152
(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 SettingsSubRS()
MSComm1.Settings = "9600,n,8,1" 'Comm port setting
MSComm1.PortOpen = True 'Open a port
MSComm1.Output = ":FUNC RES" & vbCrLf 'Select Resistance function
MSComm1.Output = ":RES:RANG 200E-3" & vbCrLf 'Select 200 mΩ range
MSComm1.Output = ":SAMP:RATE SLOW2" & vbCrLf 'Select SLOW2 sampling
MSComm1.Output = ":TRIG:SOUR IMM" & vbCrLf 'Select internal triggering
MSComm1.Output = ":INIT:CONT ON" & vbCrLf 'Continuous measurement ON
MSComm1.Output = ":CALC:LIM:MODE HL" & vbCrLf 'From here on, comparator settings
MSComm1.Output = ":CALC:LIM:BEEP HL" & vbCrLf
MSComm1.Output = ":CALC:LIM:UPP 200000" & vbCrLf
MSComm1.Output = ":CALC:LIM:LOW 100000" & vbCrLf
MSComm1.Output = ":CALC:LIM:STAT ON" & vbCrLf 'Comparator ON
MSComm1.PortOpen = False
End Sub