vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Textzeilen über RS232 einlesen- wie Zeilenende erkennen? 
Autor: Ralf364
Datum: 10.02.13 00:09
Hallo,

das Erkennen des Zeilenendes habe ich inzwischen hinbekommen.

Allerdings habe ich ein sehr seltsames Problem, das ich mir einfach nicht erklären kann.

Das hier funktioniert nicht, da wird nichts ausgegeben: 
Dim RS232string, Zeile As String
 
Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
        Case comOverrun:   MsgBox "Datenverlust!"
        Case comRxOver:    MsgBox "Datenverlust!"
        Case comEvReceive
            While MSComm1.InBufferCount >= 1
                RS232string = MSComm1.Input
                If RS232string = vbCr Then
                    RS232string = MSComm1.Input
                    If RS232string = vbLf Then
                        MsgBox "Textzeile:" & " " & Zeile
                    End If
                Else
                    Zeile = Zeile & RS232string
                End If
            Wend
    End Select
End Sub
Das funktioniert, da erhalte ich die Zeile aber umgekehrt: 
Dim RS232string, Zeile As String
 
Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
        Case comOverrun:   MsgBox "Datenverlust!"
        Case comRxOver:    MsgBox "Datenverlust!"
        Case comEvReceive
            While MSComm1.InBufferCount >= 1
                RS232string = MSComm1.Input
                If RS232string = vbCr Then
                    RS232string = MSComm1.Input
                    If RS232string = vbLf Then
                        MsgBox "Textzeile:" & " " & Zeile
                    End If
                Else
                    Zeile = RS232string & Zeile   '!!!!!!!!!!!!!!!
                End If
            Wend
    End Select
End Sub
Wieso um alles in der Welt klappt das nicht mit "Zeile = Zeile & RS232string". Die Variable RS232string ist richtg belegt, also wenn ich das dorchklicke sind da die entsprechenden Zeichen enthalten, sie wird aber einfach nicht an die Variable "Zeile" angefügt. Habe alles Mögliche probiert, es klappt einfach nicht.
Ich kann natürlich die obere Variante nehmen und die Zeichenfolge wieder umkehren, es muß doch aber einen Grund dafür geben, daß das nicht funktioniert.

Gruß Ralf
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Textzeilen über RS232 einlesen- wie Zeilenende erkennen?2.371Ralf36409.02.13 20:49
Re: Textzeilen über RS232 einlesen- wie Zeilenende erkennen?1.826Zardoz09.02.13 23:58
Re: Textzeilen über RS232 einlesen- wie Zeilenende erkennen?1.625Ralf36410.02.13 00:09
Re: Textzeilen über RS232 einlesen- wie Zeilenende erkennen?1.519Ralf36410.02.13 00:13
Re: Textzeilen über RS232 einlesen- wie Zeilenende erkennen?1.592Ralf36410.02.13 09:53
Re: Textzeilen über RS232 einlesen- wie Zeilenende erkennen?1.552bfritz10.02.13 18:53

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel