Publicité
(3) Mesure par déclenchement externe 1
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.
Private Sub MeasureTrigSubRS()
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 EXT" & vbCrLf
MSComm1.Output = ":INIT:CONT OFF" & vbCrLf
For i = 1 To 10
MSComm1.Output = ":READ?" & 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 external triggering
'Continuous measurement OFF
'Send ":READ?" to measure and import the
measurement
'From here on, continue receiving until an LF code
occurs
'Delete the terminator (CR+LF)
'Write to the file
HIOKI BT3562A960-05
8.8 Programmes d'échantillonnage
TRIG
ou entrée de borne
167
8
Publicité
