Inhaltsverzeichnis
Werbung
Beispielprogramme (Visual Basic
Nachfolgend ist ein Beispielprogramm aufgeführt, das RS-232C-Kommunikation unter Verwendung von
®
Visual Basic
2017 implementiert, die Messbedingungen einstellt, Messergebnisse abliest und diese in einer
Datei speichert. Das Beispielprogramm wird gemäß den folgenden Anweisungen geschrieben.
Schaltfläche zum Starten der Messung ...............................................Starten
Schaltfläche zum Schließen der Anwendung ................................... Beenden
Wenn die Schaltfläche [ Messung starten ] gedrückt wird, werden 10 Messungen ausgeführt und die Mess-
werte werden in der Datei [ data.csv ] gespeichert.
Durch Drücken der Taste [ Schließen ] wird das Programm geschlossen.
Das folgende Programm ist vollständig im Code [ Form1 ] geschrieben.
Imports System
Imports System.IO
Imports System.IO.Ports
Public Class Form1
'Prozess ausführen, wenn Taste 1 gedrückt wird
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim recvstr As String
Dim i As Integer
Try
Button1.Enabled = False
Button2.Enabled = False
'Einstellung des Kommunikationsports.......................................................(b)
SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.NewLine = vbCrLf
SerialPort1.ReadTimeout = 2000
SerialPort1.Open()
SendSetting(SerialPort1)
FileOpen(1, "data.csv", OpenMode.Output) 'Zu speichernde Textdatei erstellen............(e)
For i = 1 To 10
'Messung starten und Messergebnisse lesen Befehl.......................(f)
SerialPort1.WriteLine(":FETCH?")
recvstr = SerialPort1.ReadLine()
WriteLine(1, recvstr)
Next
FileClose(1)
SerialPort1.Close()
Button1.Enabled = True
Button2.Enabled = True
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
'Messbedingungen einstellen
Private Sub SendSetting(ByVal sp As SerialPort)
Try
sp.WriteLine(":TRIG:SOUR IMM")
sp.WriteLine(":INIT:CONT ON")
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
®
2017)
'Tasten während Kommunikation deaktivieren......(a)
'Endezeicheneinstellung......................(c)
'2 Sekunden Timeout......................(d)
'Einen Port öffnen
'Instrumenteinstellungen
'Messergebnisse lesen
'In Datei schreiben
'Datei schließen
'Port schließen
'Internen Auslöser auswählen
'Kontinuierliche Messung EIN
161
8.8 Beispielprogramme
8
Werbung
Inhaltsverzeichnis
