Hallo!
Ich versuche gerade Daten auf eine Waage mit RS232 zu lesen.
Ich lese die datein durch dem COMPort befehl. Das problem ist, dass ich will die einstellungen von den Waage in eine zweite formular haben und in der hauptfenster will ich nur die Daten schreiben. Die Probleme kommt bei den Daten auszulessen.
Also ich habe auf ein Modul
die Variable wird soweit Global betrachtet, außer an eine stelle:
Diese bringt mir die Folgende Fehler
Fehler 1
Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. :pinch:
Obwohl ich die Variabel schon als WithEvents deklariert habe.
Ich habe in Internet nach lösungen gesucht, finde leider nichts.
Wenn jemand mich Helfen könnte wurde ich mich sehr freuen!! Da ich den Programm schnell fertig haben muss!!!
Ich versuche gerade Daten auf eine Waage mit RS232 zu lesen.
Ich lese die datein durch dem COMPort befehl. Das problem ist, dass ich will die einstellungen von den Waage in eine zweite formular haben und in der hauptfenster will ich nur die Daten schreiben. Die Probleme kommt bei den Daten auszulessen.
Also ich habe auf ein Modul
die Variable wird soweit Global betrachtet, außer an eine stelle:
VB.NET-Quellcode
- Private Sub Receiver(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles COMPort.DataReceived
- 'Note this subroutine is executed on the serial port thread - not the UI thread.
- Dim RXByte As Byte
- Dim RXArray(2047) As Char
- Dim I As Integer = 0
- Do
- RXByte = COMPort.ReadByte
- RXArray(I) = Chr(RXByte) 'schreibt ausgelesene daten ins fenster
- I = I + 1
- 'RXArray(I) = " " ' sorgt dafür das immer eine leerstelle eingeführt wird
- 'I = I + 1
- Loop Until (COMPort.BytesToRead = 0)
- Dim RxString As New String(RXArray, 0, I) ' Convert the first part of the Char Array to a String
- ' Put a message with a delegate, which points to the display routine and holds the RxString,
- ' on the message queue and return immediately.
- Me.BeginInvoke(New StringSubPointer(AddressOf Display), RxString) 'Hier gehts zu den Unterfunktion Display
- End Sub
Diese bringt mir die Folgende Fehler
Fehler 1
Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. :pinch:
Obwohl ich die Variabel schon als WithEvents deklariert habe.
Ich habe in Internet nach lösungen gesucht, finde leider nichts.
Wenn jemand mich Helfen könnte wurde ich mich sehr freuen!! Da ich den Programm schnell fertig haben muss!!!