Problem mit "datatype"

[extremesports]

Hallo,

irgendwie steh ich grad auf der Leitung:

Ich hab mal wieder einen älteren Code hervorgekramt und bekomm beim Kompilieren Probleme.

Hier mal ein Codeauszug:


Dim Zaehler as Byte

Zaehler = 0

' ################################################## ###########
' #### UART Empfang
' ################################################## ###########

Empfang:
If Ischarwaiting() = 1 Then
Input Empfang_string
If Zaehler < 3 Then
Incr Zaehler Else
Zaehler = 0
End If
Else !nop
End If
Return


Bascom AVR gibt folgende Errors aus:

Error 31: Invalid datatype [[0011] 0 Zaehler Else]
Error 51: Wrong datatype [Zaehler Else]
Error 7: If Then expected
Error 123: End If expected

Alle Errors beziehen sich auf folgende Codezeile:


Incr Zaehler Else

Vielleicht kann mir ja jemand schnell auf die Sprünge helfen, wo mein Fehler liegt...

[Kampi]

Probier es mal so:



Dim Zaehler As Byte
Dim Empfang_string As String * 10 'Musst du noch anpassen!

Zaehler = 0

' ################################################## ###########
' #### UART Empfang
' ################################################## ###########

Empfang:
If Ischarwaiting() = 1 Then
Input Empfang_string
If Zaehler < 3 Then
Incr Zaehler
Else
Zaehler = 0
End If
Else
!nop
End If
Return

[extremesports]

Vielen Dank!!!

Komisch aber wahr:
Wenn man das "Else" alleine in eine Zeile schreibt meckert Bascom nicht...
Kompilieren hat wunderbar funktioniert!!!