Problem mit "datatype"

**extremesports** · 16.12.2011, 15:27

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:

Code:

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:

Code:

Incr Zaehler Else

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

**Kampi** · 16.12.2011, 15:34

Probier es mal so:

Code:

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** · 16.12.2011, 15:40

Vielen Dank!!!

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