VB For Next zählt index doppelt hoch

[Andre (Gast)]

Hallo,

ich hab da ein Problem mit VB12.

Die Zählvariable wird in der zweiten For .. Next Schleife zweimal 
hochgezählt. Das der Debugger zumindest an.

    Private Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedEventArgs)

        Dim recBuffer(200) As Char
        Dim i As Integer
        Dim sp As SerialPort = CType(sender, SerialPort)
        Dim BytesToRead As Integer

        i = 0

        For i = 0 To 200
            recBuffer(i) = vbNullChar
        Next

        BytesToRead = sp.BytesToRead
        sp.Read(recBuffer, 0, BytesToRead)

        i = 0

        For n As Integer = 0 To BytesToRead - 1 Step 1
            inBuffer(RXinPtr) = recBuffer(n)
            n = n + 1
            If inBuffer(RXinPtr) = vbLf Then
                NewSerialData = True
            End If
            RXinPtr = RXinPtr + 1
            If RXinPtr > 200 Then
                RXinPtr = 0
            End If
        Next

    End Sub

Woran kann das liegen?

[Peter II (Gast)]

Andre schrieb:
> Woran kann das liegen?

 n = n + 1

das macht kann sinn in einer schleife, dann das macht die schleife von 
selber.


Es auch auch kein sinn das Array vorher leer zu machen, wennn du es 
gleich danach mit Daten befüllst.

Und die Prüfst auch nicht wie viele Daten gelesen wurden, du geht 
einfach davon aus das Read alles liest - das muss aber nicht so sein.

[Andre (Gast)]

OMG,

manchmal sieht man den Wald vor lauter Bäumen nicht.
Da war vorher ein while-Schleife.

Dankeschön.