Problem: Unknown Statement

[Robin1508]

Hi, ich hab hier ein Problem dass ich irgentwie nich wegbekomm:

$regfile = "m32def.dat"
 $crystal = 16000000

 Declare Function Acttime(byval X As Long) As Integer

 Config Lcd = 16 * 1a
 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
 Config Lcdbus = 4
 Cursor Off , Noblink

 Config Timer1 = Timer , Prescale = 1024
 Enable Timer1
 On Timer1 Subroutine
 Enable Interrupts

 Dim X As Long

 Do



   Wait 1



 Loop


 Function Acttime(byval X As Long) As Integer
 Cls
 Locate 1 , 1
 Lcd Str(x)
 End Function

 Subroutine:
 X = X + 1
 Acttime(x)
 Return

Bascom sagt in der Subroutine zu "Acttime(x)" --> Unknown Statement

wieso?



Gruß Robin

[for_ro]

Hallo Robin,
im Gegensatz zu einer Sub() möchte eine Funktion ein Ergebnis zurückgeben.

Du musst also in der Funktion irgendwo ein

Acttime=...

setzen, und beim Aufruf dann

I=Acttime(x)

wobei I entsprechend deiner Deklaration ein Integer sein muss.
Schau dir auch mal die Hilfe zu 'Declare Function' an

Gruß

Rolf

[Robin1508]

optimal, danke