Hioki RM3542 - Page 158

9.9 Sample Programs
152
 External Trigger Measurement 1
Measure and import according to external triggering of the RM3542 (F4 [MANU] key or TRIG signal input),
and save measurements in a text file.
Private Sub MeasureTrigSubRS()
Dim recvstr As String 'Receiving char string
Dim i As Integer
MSComm1.Settings = "9600,n,8,1" 'Comm port setting
MSComm1.PortOpen = True 'Open a port
Open App.Path & "\data.csv" For Output As #1 'Open a text file for saving
MSComm1.Output = ":TRIG:SOUR EXT" & vbCrLf 'Select external triggering
MSComm1.Output = ":INIT:CONT OFF" & vbCrLf 'Continuous measurement OFF
For i = 1 To 10
MSComm1.Output = ":READ?" & vbCrLf 'Send ":READ?" to measure and import the measurement
recvstr = "" 'From here on, continue receiving until an LF code occurs
While Right(recvstr, 1) <> Chr(10)
recvstr = recvstr + MSComm1.Input
DoEvents
'Input a trigger signal to the TRIG input pin of the EXT I/O
connector.
Wend
recvstr = Left(recvstr, Len(recvstr) - 2) 'Delete the terminator (CR+LF)
Print #1, Str(i) & "," & recvstr 'Write to the file
Next
Close #1
MSComm1.PortOpen = False
End Sub