VB-Com Kommunikation

[seppel (Gast)]

Hallo,
ich möchte mir ein VB.Net Programm schreiben wo ich über die Serielle 
Schnittstelle mit einem uC kommunizieren kann. Wenn ich das RealTerm 
nehme funktioniert das schon, ich kann Daten senden und komme sie auch 
wider zurück, nur in VB funktioniert das noch nicht so.
Habe mir eine Windows Forms anwendung erstellt, wo ich den Com-Port 
einstellen kann und habe 4 Text Felder wo ich Zahlen eintragen kann. Die 
Übertragung soll gestartet werden wenn ich auf einen Button drücke.
Des weiteren habe ich ein TextBox wo ich mir das empfangen wider 
anzeigen lassen kann.
Die Übertragung soll in Ascii erfolgen.

Hier mal mein Programm

Private Sub btn_uebertragen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_uebertragen.Click
        box_uber.Text = txt_Rot.Text & "," & txt_Rot_Gelb.Text & "," & txt_min_Gruen.Text & "," & txt_Gelb.Text

        Dim sString As String = box_uber.Text 'String zusammensetzten
        Dim nLen As Integer = sString.Length  'Laenge ermitteln

        Dim msg As String = ""

        For a As Integer = 1 To nLen
            msg = msg & Asc(sString.Chars(a - 1))
        Next
        box_uber_2.Text = msg
        SerialPort1.Write(msg)
        SerialPort1.Write("\n")
    End Sub

    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Dim x As String
        x = SerialPort1.ReadLine.ToString
        box_empfagne.Text = x
    End Sub

Damit meine gegenseite weiß das keine Daten mehr kommen, beende ich die 
Kommunikation mit einem "\n".
Wenn ich Daten über VB sende mit \n funktioniert das nicht da wartet der 
uC immer noch auf Daten.
Der Datenaufbau zur übertragung soll z.B. so  12,3,5,22 aussehen und 
dann das \n  noch hinten dran.
Wenn ich das alles so ins RealTerm eingebe funktioniert das.

[Peter II (Gast)]

seppel schrieb:
> Wenn ich das alles so ins RealTerm eingebe funktioniert das.

kann es sein das RealTerm  \r\n sendet?

[seppel (Gast)]

Peter II schrieb:
> seppel schrieb:
>> Wenn ich das alles so ins RealTerm eingebe funktioniert das.
>
> kann es sein das RealTerm  \r\n sendet?

Habe das mal Testweise ausprobiert.
Ich frage in meinem uC auch nur nach dem endzeichen "\n" ab.

Wenn ich das so schreibe
SerialPort1.Write(CStr(Asc("\n")))
sende ich doch mein "\n" als Ascii zeichen über den SerielPort oder?

[seppel (Gast)]

Noch ein kurze Frage.
Sendent RealTerm die Ascii zahlen mit Trennkomma oder ohne.
als z.B. 123 als 49,50,51 oder als 495051?

[Rufus Τ. F. (rufus)]

seppel schrieb:
> Wenn ich das so schreibe
> SerialPort1.Write(CStr(Asc("\n")))
> sende ich doch mein "\n" als Ascii zeichen über den SerielPort oder?

Ja, aber das sind zwei Zeichen.

Tatsächlich willst du aber das Steuerzeichen versenden; die Schreibweise 
\n ist eine in C-artigen Programmiersprachen übliche.

In VB dürfte das die Konstante vbLF sein.

[seppel (Gast)]

Da hätte ich ja auch drauf kommen können, ist blöd wenn man mehrere 
Sprachen benutzt.
Manchmal sieht man vor lauter Bäumen den Wald nicht mehr.

Danke es geht