Hioki RM3542-50, Инструкция по эксплуатации

Страница: 175 / 234

9.9 Sample Programs
169
9
 Set Measurement Conditions
Sets the measurement conditions.
'Setting measurement conditions
'Setting instrument measurement conditions
' Function: Resistance Measurement
'Range: 1
Ω
' Sampling: FAST
' Trigger: External trigger
' Comparator enabled, REF% mode, reference value 1
Ω , tol1.0% to -1.5%, beeper sounds when High or Low
Private Sub SettingsSubRS()
MSComm1.Settings = "9600,n,8,1"
' Communication 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 trigger
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