Publicité
168
8.8 Programmes d'échantillonnage
(4) Mesure par déclenchement externe 2
Mesurez et importez conformément au déclenchement externe de l'appareil (touche
EXT I/O TRIG) et sauvegardez des mesures dans un fichier texte.
(L'appareil importe la mesure la plus récente avec la temporisation d'entrée de déclenchement avec l'état de
mesure continue)
Private Sub MeasureTrig2SubRS()
Dim recvstr As String
Dim i As Integer
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
Open App.Path & "\data.csv" For Output As #1
MSComm1.Output = ":TRIG:SOUR IMM" & vbCrLf
MSComm1.Output = ":INIT:CONT ON" & vbCrLf
'Clear confirmation of External I/O TRIG input
MSComm1.Output = ":IO:IN?" & vbCrLf
recvstr = ""
While Right(recvstr, 1) <> Chr(10)
recvstr = recvstr + MSComm1.Input
DoEvents
Wend
For i = 1 To 10
'Wait for External I/O TRIG input
Do While 1
MSComm1.Output = ":IO:IN?" & vbCrLf
recvstr = ""
While Right(recvstr, 1) <> Chr(10)
recvstr = recvstr + MSComm1.Input
DoEvents
Wend
If Left(recvstr, 1) = "1" Then Exit Do
DoEvents
Loop
MSComm1.Output = ":FETCH?" & vbCrLf
recvstr = ""
While Right(recvstr, 1) <> Chr(10)
recvstr = recvstr + MSComm1.Input
DoEvents
Wend
recvstr = Left(recvstr, Len(recvstr) - 2)
Print #1, Str(i) & "," & recvstr
Next
Close #1
MSComm1.PortOpen = False
End Sub
'Receiving char string
'Comm port setting
'Open a port
'Open a text file for saving
'Select internal triggering
'Continuous measurement ON
'Send ":FETCH?" to import the most recent
measurement
'From here on, continue receiving until an LF code
occurs
'Delete the terminator (CR+LF)
'Write to the file
HIOKI BT3562A960-05
TRIG
ou entrée de borne
Publicité
