Hallo Forum
Ich habe ein Problem wo ich nicht weiter kommen
Die Verbindung zur Schnittstelle wird Hergestellt und ich bekomme auch eine Antwort.
Nur leider ist das Ergebnis nicht das was ich brauche.
Hier mal der Code:
Mit Divice Monitoring Studio bekomme ich die Werte wie Sie brauche. Ich habe mal ein Bild angehängt. Ich glaube dass es nur eine Kleinigkeit ist, komme aber einfach nicht weiter und langsam nervts das ich bei so einer kleinigkeit hänge.
Also bitte um Hilfe!!!
Lg Stefan
Ich habe ein Problem wo ich nicht weiter kommen
Die Verbindung zur Schnittstelle wird Hergestellt und ich bekomme auch eine Antwort.
Nur leider ist das Ergebnis nicht das was ich brauche.
Hier mal der Code:
Quellcode
- Imports Microsoft.VisualBasic
- Imports System
- Imports System.Collections
- Imports System.Collections.Generic
- Imports System.Data
- Imports System.Diagnostics
- Imports System.Threading
- Imports System.IO.Ports
- Imports System.Text
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Button2.Enabled = True
- Dim comopen As Boolean
- With SerialPort1
- .PortName = ComboBox2.SelectedItem.ToString
- .ParityReplace = 59 '59
- .BaudRate =38400
- .Parity = System.IO.Ports.Parity.None
- .DataBits = 8
- .StopBits = System.IO.Ports.StopBits.One
- .Handshake = System.IO.Ports.Handshake.None
- .RtsEnable = False
- .ReceivedBytesThreshold = 1
- .ReadTimeout = 10000
- .NewLine = Constants.vbCr
- 'Ganz Wichtig!!!
- .DtrEnable = False
- .Encoding = System.Text.Encoding.GetEncoding("US")
- Try
- SerialPort1.Open()
- comopen = SerialPort1.IsOpen
- Catch ex As Exception
- comopen = False
- MsgBox("Fehler beim Öffnen des Ports: " & ex.Message)
- Button2.Enabled = False
- End Try
- End With
- If SerialPort1.IsOpen Then
- Label1.Text = "Verbunden mit " & SerialPort1.PortName
- Button3.BackColor = Color.Green
- ComboBox2.Enabled = False
- Button5.Visible = True
- Else
- Label1.Text = "Keine Verbindung"
- Button3.BackColor = Color.Red
- Button2.Enabled = False
- End If
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Label1.Text = ""
- Label1.Text = "Nicht Verbunden"
- Button5.Visible = False
- Button2.Enabled = False
- Button3.BackColor = Color.Red
- ComboBox1.SelectedIndex = 0
- Button5.Visible = False
- For Each sp As String In My.Computer.Ports.SerialPortNames 'ruft die Verfügbaren Ports ab
- ComboBox2.Items.Add(sp)
- Next
- ComboBox2.SelectedIndex = 0
- End Sub
- Private Sub Form1_close(Sender As Object, e As EventArgs) Handles MyBase.FormClosing
- SerialPort1.Close()
- End Sub
- Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
- Me.Invoke(Sub() abc(SerialPort1.ReadExisting))
- End Sub
- Private Sub abc(inputdata As String)
- 'TextBox2.AppendText(inputdata & Environment.NewLine)
- ListBox1.Items.Add(inputdata)
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- SerialPort1.Close()
- Label1.Text = "Nicht Verbunden"
- Button3.BackColor = Color.Red
- Button5.Visible = False
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- End Sub
- End Class
Mit Divice Monitoring Studio bekomme ich die Werte wie Sie brauche. Ich habe mal ein Bild angehängt. Ich glaube dass es nur eine Kleinigkeit ist, komme aber einfach nicht weiter und langsam nervts das ich bei so einer kleinigkeit hänge.
Also bitte um Hilfe!!!
Lg Stefan