[code:1:e9848e54b5]My Do Loop:
Do
S11 = Left(ser_buf(2) , 7)
Loop Until S11 = Nmeaheader [/code:1:e9848e54b5]
This loop has a little sense.
In case S11 is not equal Nmeaheader, you never get out of the loop.
Maybe you want rather this ?
[code:1:e9848e54b5]Dim Ser_buf(2) As String * 40
Dim Nmeaheader As String * 40
Dim S11 As String * 6
Nmeaheader = "123456"
Do 'main loop
Input Ser_buf(1) ; 1 , Ser_buf(2) ; 40
S11 = Left(ser_buf(2) , 6)
If S11 = Nmeaheader Then
Print "OK"
Else
Print "Err"
End If
Loop
End
[/code:1:e9848e54b5]
↧