PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Aufruf von Proceduren



roboter
01.03.2005, 22:45
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
02.03.2005, 07:57
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
02.03.2005, 08:49
hallo, setzt mal "byval x as byte..." in die declare.
mfg pebisoft