Hioki RM3542 - Page 160

9.9 Sample Programs
154
 Set Measurement State
Sets up the measurement setting state.
'Measurement Setting Configuration
'Configures instrument settings for measurement
'Function: Resistance Measurement
'Range: 1
'Sampling: FAST
'Trigger: External trigger
'Comparator enabled, REF% mode, reference value 1 , tolerance +1.0% / –1.5%, beep upon Hi or Lo
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 1E+0" & vbCrLf 'Select 1000 m range
MSComm1.Output = ":SPEE FAST" & vbCrLf 'Select FAST sampling
MSComm1.Output = ":TRIG:SOUR EXT" & vbCrLf 'Select external triggering
MSComm1.Output = ":INIT:CONT ON" & vbCrLf 'Continuous measurement ON
MSComm1.Output = ":CALC:LIM:MODE REF" & vbCrLf 'From here on, comparator settings
MSComm1.Output = ":CALC:LIM:BEEP HL" & vbCrLf
MSComm1.Output = ":CALC:LIM:REF 1E+0" & vbCrLf
MSComm1.Output = ":CALC:LIM:PERC 1.0, -1.5" & vbCrLf
MSComm1.Output = ":CALC:LIM:STAT ON" & vbCrLf 'Comparator ON
MSComm1.PortOpen = False
End Sub