C Control PRO-BOT128 + C-Control PRO 128 Unit + Voltcraft® USB programming cable Kit 190406 Manuel D’Utilisation

der gleichen Reihenfolge, wie sie bei func1 definiert wurden. Bekommt die Funktion keine
Parameter, läßt man die Klammer leer.

Sub main()

    Dim a As Word

    Dim f As Single

    func1(

128

,

12.0

)  

' man kann numerische Konstanten übergeben ...

    a=

100

    f=

12.0

    func1(a+

28

,f) 

' oder aber auch Variablen und sogar numerische Ausdrücke

End Sub

 Man muß bei dem Aufruf einer Funktion immer alle Parameter angeben. Folgende Aufrufe wären

unzulässig:

func1()        

' 

func1 bekommt 2 Parameter!

func1(

128

)     

' 

func1 bekommt 2 Parameter!

Es ist nicht nur möglich, Parameter zu übergeben, eine Funktion kann auch einen Rückgabewert
haben. Den Datentyp dieses Wertes gibt man bei der Funktionsdefinition hinter der Parameterliste
der Funktion an.

Sub func1(a As Integer) As Integer

    Return a-

10

End Sub

Der Rückgabewert wird innerhalb der Funktion mit der Anweisung "Return Ausdruck" angegeben.
Hat man eine Funktion ohne Rückgabewert, so muß man die Return Anweisung ohne Parameter
anwenden, um die Funktion zu verlassen.

Da es nicht möglich ist, Arrays als Parameter zu übergeben, kann man auf Arrays über Referenzen
zugreifen. Dafür schreibt man in der Parameterdeklaration einer Funktion das Attribut "ByRef" vor
den Parameternamen:

Sub StringLength(ByRef str As Char) As Integer

    Dim i As Integer

    i=

0

    Do While str(i)

        i=i+

1

  

' wiederhole solange Zeichen nicht null

    End While

    Return i

End Sub

Sub main()

    Dim Len As Integer