Hallo zusammen,
ich bin neu hier im Forum und praktisch ein Einsteiger in VB.Net.
Mein Name ist André und arbeite gerade an einem Tool, zur Überwachung von 2 "Rohde & Schwarz HMP4040" Netzgeräten.
Die Netzgeräte sind per USB mit dem Rechner gekoppelt. Der Serial-Port wird wird vom Treiber emuliert.
Die Programmfunktion ist relativ einfach gehalten. Es soll nur der Status der Kanäle abgefragt werden, mit der Möglichkeit diese ein und auszuschalten.
Ich benutze zur Programmierung Visual Studio Express.
Den Code hab ich mir über die Suchfunktion hier im Forum soweit erarbeitet.
Ich stehe allerdings vor einem Problem wo ich nicht weiter komme.
Zunächst, die Konfiguration der Serialports wird von einer .ini File gelesen.
Der gesamte Code für die Kommunikation habe ich in eine Class gepackt.
Hier ein Auszug:
Code-Tag korrigiert. Das ist kein AutoIt ~Thunderbolt
ich bin neu hier im Forum und praktisch ein Einsteiger in VB.Net.
Mein Name ist André und arbeite gerade an einem Tool, zur Überwachung von 2 "Rohde & Schwarz HMP4040" Netzgeräten.
Die Netzgeräte sind per USB mit dem Rechner gekoppelt. Der Serial-Port wird wird vom Treiber emuliert.
Die Programmfunktion ist relativ einfach gehalten. Es soll nur der Status der Kanäle abgefragt werden, mit der Möglichkeit diese ein und auszuschalten.
Ich benutze zur Programmierung Visual Studio Express.
Den Code hab ich mir über die Suchfunktion hier im Forum soweit erarbeitet.
Ich stehe allerdings vor einem Problem wo ich nicht weiter komme.
Zunächst, die Konfiguration der Serialports wird von einer .ini File gelesen.
Der gesamte Code für die Kommunikation habe ich in eine Class gepackt.
Hier ein Auszug:
VB.NET-Quellcode
- Public Class Ports1
- Public Port2 As New System.IO.Ports.SerialPort()
- Public Eingangsstring As String = ""
- Public startbit2 As Boolean = False
- Public err As Exception
- Private Sub initalisieren()
- 'Port Konfigurieren und öffnen
- Try
- Me.Port2.BaudRate = Preferences.COM2Baudrate
- Me.Port2.DataBits = Preferences.COM2Databits
- Me.Port2.Parity = Preferences.COM2Parity
- Me.Port2.PortName = Preferences.COM2Name
- Me.Port2.StopBits = Preferences.COM2Stopbit
- Me.Port2.ReadTimeout = Preferences.COM2ReadTimeout
- Me.Port2.WriteTimeout = Preferences.COM2WriteTimeout
- Port2.Open()
- Catch err As Exception
- Port2.Close()
- Port2.Dispose()
- Form1.Netzteil1_text.Clear()
- Form1.InfoBox1.AppendText(err.ToString)
- Form1.InfoBox1.AppendText(Environment.NewLine)
- End Try
- End Sub
- .
- .
- .
Code-Tag korrigiert. Das ist kein AutoIt ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()