Widerstandsmessung Über Pc-Taste - Hioki BT3562 Bedienungsanleitung

(2) Widerstandsmessung über PC-Taste
Messung und Import werden über Tasteneingabe am PC ausgeführt und die Messungen werden in einer
Textdatei gespeichert.
Private Sub MeasureReadSubRS()
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 OFF" & vbCrLf
For i = 1 To 10
'Auf PC-Tasteneingabe warten
'Prüfroutine der Tasteneingabe erstellen, sodass bei Tastendruck InputKey() = True gesetzt wird
Do While 1
If InputKey() = True Then Exit Do
DoEvents
Loop
'Nach dem Überprüfen der Tasteneingabe eine Messung ausführen und den Messwert ablesen
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
8.8 Beispielprogramme
'Zeichenkette empfangen
'Kommunikations-Port einstellen
'Einen Port öffnen
'Textdatei zum Speichern öffnen
'Internen 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
161
8