Messung Mit Externem Auslöser - Hioki BT3562 Bedienungsanleitung

162
8.8 Beispielprogramme
(3) Messung mit externem Auslöser 1
Messung und Import werden nach externer Auslösung des Instruments (TRIG-Taste oder EXT I/O TRIG-
Anschlusseingabe) ausgeführt und die Messungen werden in einer Textdatei gespeichert.
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
'Zeichenkette empfangen
'Kommunikations-Port einstellen
'Einen Port öffnen
'Textdatei zum Speichern öffnen
'Externen Auslöser auswählen
'Kontinuierliche Messung AUS
'„:READ?" senden, um zu messen und Messung zu
importieren
'Ab hier wird weiterhin empfangen, bis ein LF-Code
auftritt
'Endezeichen löschen (CR+LF)
'In Datei schreiben