Function unter Bascom mit Rückgabewert

[rogerberglen]

Ich komme nicht dahinter wie ich einen Wert von einer Funktion zurückgegeben bekomme. Die Bascom-Beispiele geben da auch nichts her.

Ich habe zuerst einmal mit Declare Function XXXX (ByVal AA As Byte) As Byte deklariert.

Dann habe ich folgende Funktion:
Function XXXX (ByVal AA As Byte) As Byte
Dim S As Byte
S = S + AA
Return S
End Function

Das stimmt so nicht, aber ich kenne das nur so aus VB2008 und ich kann mir keinen Reim machen wie das in Bascom funktioniert.
Die Funktion soll dann so aufgerufen werden:


X = XXXX(30) aufgerufen werden.

Mit dem Editorfeld stimmt was nicht im Forum. Das springt bei jeder Eingabe wild umher und die letzten Zeilen werden nicht angezeigt. Das Problem tritt bei allen 4 Computern bei mir auf. Also liegt es am Forum!! Kann da mal Jemand drüberscheuen. Ich kann deshlab auch die Rechtschreibung nicht kontrollieren.

[for_ro]

Function XXXX (ByVal AA As Byte) As Byte
Dim S As Byte
XXXX = S + AA
End Function

Du musst praktisch den Namen der Funktion auf einen Wert setzen.
Dieser Befehl sollte das letzte sein, was in der Funktion gemacht wird.