Hioki RM3542-50, Instruction Manual

Page: 174 / 234

9.9 Sample Programs
168
 External Trigger Measurement 2
Import according to the external triggering of the instrument (F4 [MANU] key or TRIG signal input), and save
the measurements in a text file.
(The instrument imports the most recent measurement at the trigger input timing in the continuous measure-
ment state.)
Private Sub MeasureTrig2SubRS()
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 to save
MSComm1.Output = ":TRIG:SOUR IMM" & vbCrLf ' Select internal trigger
MSComm1.Output = ":INIT:CONT ON" & vbCrLf ' Continuous measurement ON
'Clear confirmation of Ext. I/O TRIG input
MSComm1.Output = ":IO:IN?" & vbCrLf
recvstr = ""
While Right(recvstr, 1) <> Chr(10)
recvstr = r MSComm1.Input
DoEvents
Wend
For i = 1 To 10
'Wait for Ext. I/O TRIG input
Do While 1
MSComm1.Output = ":IO:IN?" & vbCrLf
recvstr = ""
While Right(recvstr, 1) <> Chr(10)
recvstr = r MSComm1.Input
DoEvents
Wend
If Left(recvstr, 1) = "1" Then Exit Do
DoEvents
Loop
MSComm1.Output = ":FETCH?" & vbCrLf
' Send ":FETCH?" to import the most recent mea-
surement
recvstr = ""
' From here on, continue receiving until an LF code is
reached
While Right(recvstr, 1) <> Chr(10)
recvstr = r MSComm1.Input
DoEvents
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