Aufruf von Proceduren

[roboter]

Hallo!

Ich habe diesen code:

Dim Txt As String * 27
Dim X As Byte
Dim Y As Byte

...

Declare Sub Sendtxt(a As Byte , B As Byte , Text As String) 

...

Call Sendtxt(x , Y , Txt);

...

Do                                                        
Loop
End                                                         'end program

...

Sub Sendtxt(a As Byte , B As Byte , Text As String)
   Print Chr(255);
   Print Chr(a);
   Print Chr(b);
   Print Text;
End Sub

Ich bekomme aber jetzt die folgenden Fehler:
Getclass error [ 0]
Different parameter type passed then declared [Txt ;]
BYVAL should be used in declaration [[ 0]]

Was muß ich ändern?

[oe9vfj]

Du musst das Semicolon ; am Ende der Zeile mit Call entfernen.
Dieses Zeichen gibt es in BASCOM-AVR am Ende der Zeile nur in der Print-Anweisung, falls kein Zeilenumbruch generiert werden soll.
Die Fehlermeldungen sind hier leider nicht sehr hilfreich.

[pebisoft]

hallo, setzt mal "byval x as byte..." in die declare.
mfg pebisoft