Hallo zusammen,
ich habe eine Hardware per RS232 angeschlossen. Dieses Gerät schickt mir einen Datenstring. Diesen möchte ich in eine Variable reinschreiben.
Leider kommt in der Variablen nichts an. Wo liegt der Fehler? Kann mir jemand einen Tipp geben?
Gruß
ich habe eine Hardware per RS232 angeschlossen. Dieses Gerät schickt mir einen Datenstring. Diesen möchte ich in eine Variable reinschreiben.
VB.NET-Quellcode
- Imports System.IO.Ports
- Imports MySql
- Imports MySql.Data
- Imports MySql.Data.MySqlClient
- Public Class Form1
- Dim con As New MySqlConnection
- Dim cmd As New MySqlCommand
- Public inputData As String = ""
- Public Event DataReceived As IO.Ports.SerialDataReceivedEventHandler
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- 'Einstellungen Serieller Port Melder
- SerialPort1.PortName = "COM2"
- SerialPort1.BaudRate = 9600
- SerialPort1.Parity = IO.Ports.Parity.None
- SerialPort1.DataBits = 8
- SerialPort1.StopBits = IO.Ports.StopBits.One
- SerialPort1.Handshake = IO.Ports.Handshake.None
- SerialPort1.RtsEnable = True
- 'Seriellen Port öffnen
- SerialPort1.Open()
- End Sub
- Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
- 'Try
- inputData = SerialPort1.ReadLine 'SerialPort1.ReadExisting '//oder SerialPort1.ReadLine
- Me.Invoke(New EventHandler(AddressOf DoUpdate))
- 'Catch ex As Exception
- 'End Try
- End Sub
- Public Sub DoUpdate()
- label1.text = inputData
- End Sub
Leider kommt in der Variablen nichts an. Wo liegt der Fehler? Kann mir jemand einen Tipp geben?
Gruß