Beispielprogramme(Visual Basic ® 2005) - Hioki BT3562 Bedienungsanleitung

172
8.8 Beispielprogramme
Beispielprogramme(Visual Basic
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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim recvstr As String
Dim i As Integer
Try
Button1.Enabled = False
Button2.Enabled = False
Dim sp As New SerialPort("COM1", 9600, Parity.None, 8, StopBits.One) '
Kommunikationsports
sp.NewLine = vbCrLf
sp.ReadTimeout = 2000
sp.Open()
SendSetting(sp)
FileOpen(1, "data.csv", OpenMode.Output)
For i = 1 To 10
*
sp.WriteLine(" FETCH?")
recvstr = sp.ReadLine()
PrintLine(1, recvstr)
Next i
FileClose(1)
sp.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
Programm schließen, wenn Taste 2 gedrückt wird
'
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Dispose()
End Sub
End Class
®
2005)
Nachfolgend ist ein Beispielprogramm aufgeführt, das RS-232C-Kommunikation
unter Verwendung von Visual Basic
einstellt, Messergebnisse abliest und diese in einer Datei speichert. Das
Beispielprogramm wird gemäß den folgenden Anweisungen geschrieben.
„Vorgehensweise zum Erstellen eines Programms (Visual Basic® 2005)"
(S.170) Beschreibung
.....................................................................Mit Beispielprogramm schreiben
Schaltfläche zum Starten der Messung...............................................Button1
Schaltfläche zum Schließen der Anwendung......................................Button2
Wenn die Schaltfläche [ Begin Measurement ] gedrückt wird, werden 10 Messungen
ausgeführt und die Messwerte werden in der Datei [ data.csv ] gespeichert.
Durch Drücken der Taste [ Quit ] wird das Programm geschlossen.
Das folgende Programm ist vollständig im Code [ Form1 ] geschrieben.
Tasten während Kommunikation deaktivieren
'
........................................................................................... (b)
Endezeicheneinstellung
'
2 Sekunden Timeout
'
Port öffnen
'
'BT3562-01- oder BT3563-01
Zu speichernde Textdatei erstellen
'
Messung starten und lesen
'
results command
Messergebnisse lesen
'
In Datei schreiben
'
Datei schließen
'
Port schließen
'
'Internen Auslöser auswählen
'Kontinuierliche Messung EIN
®
2005 implementiert, die Messbedingungen
Einstellung des
.................................................(c)
..................................................... (d)
-Einstellungen
............................. (e)
............................................................ (f)
.......... (a)