Hallo VB-Gemeinde,
ich habe ein kleines Problem.
Ich möchte aus einem Stromzähler Verbrauch, Wirkleistung, etc. auslesen. Dazu habe ich mir eine Fotodiode an ein RS232 Kabel gebastelt.
Mit hTerm sieht der Datenstrom so aus:
Jetzt hab ich mir mit VB ein Testprogramm gebaut, mit dem ich genau diesen Datenstrom darstellen möchte. Allerdings werden hier nur Fragezeichen und ab und zu ein paar undefinierbare Zeichen dargestellt:
Wie kann ich die Ausgabe wie in hTerm hinbekommen?
Hier der Code:
Schonmal vielen Dank für Eure Hilfe!!!!
ich habe ein kleines Problem.
Ich möchte aus einem Stromzähler Verbrauch, Wirkleistung, etc. auslesen. Dazu habe ich mir eine Fotodiode an ein RS232 Kabel gebastelt.
Mit hTerm sieht der Datenstrom so aus:
Jetzt hab ich mir mit VB ein Testprogramm gebaut, mit dem ich genau diesen Datenstrom darstellen möchte. Allerdings werden hier nur Fragezeichen und ab und zu ein paar undefinierbare Zeichen dargestellt:
Wie kann ich die Ausgabe wie in hTerm hinbekommen?
Hier der Code:
VB.NET-Quellcode
- Option Explicit On
- Public Class Form1
- 'Com-Port öffnen - hier: COM2
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btn_open.Click
- Try
- SerialPort1.Open()
- btn_close.Enabled = True
- Catch ex As Exception
- MsgBox("Verbindung fehlgeschlagen")
- End Try
- End Sub
- Private Sub SerialPort1_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
- Me.Invoke(Sub() TextBox3.AppendText(SerialPort1.ReadExisting))
- End Sub
- Private Sub btn_close_Click(sender As System.Object, e As System.EventArgs) Handles btn_close.Click
- SerialPort1.Close()
- btn_close.Enabled = False
- End Sub
- End Class
Schonmal vielen Dank für Eure Hilfe!!!!