Teilen über

Vorgehensweise: Erstellen einer Prozedur (Visual Basic)

Sie fügen eine Prozedur zwischen einer Anfangsdeklarationsanweisung (Sub oder Function) und einer Schlussdeklarationsanweisung (End Sub oder End Function) ein. Der gesamte Code der Prozedur liegt zwischen diesen Anweisungen.

Eine Prozedur kann keine andere Prozedur enthalten, sodass die Anfangs- und Endanweisungen außerhalb einer anderen Prozedur stehen müssen.

Wenn Sie Code haben, der dieselbe Aufgabe an verschiedenen Stellen ausführt, können Sie die Aufgabe einmal als Prozedur schreiben und dann von verschiedenen Stellen in Ihrem Code aufrufen.

So erstellen Sie eine Prozedur, die keinen Wert zurückgibt

  1. Verwenden Sie außerhalb einer anderen Prozedur eine Sub Anweisung, gefolgt von einer End Sub Anweisung.

  2. Folgen Sie in der Sub Anweisung dem Sub Schlüsselwort mit dem Namen der Prozedur und dann der Parameterliste in Klammern.

  3. Platzieren Sie die Codeanweisungen der Prozedur zwischen den Anweisungen Sub und End Sub.

So erstellen Sie eine Prozedur, die einen Wert zurückgibt

  1. Verwenden Sie außerhalb einer anderen Prozedur eine Function Anweisung, gefolgt von einer End Function Anweisung.

  2. Folgen Sie in der Function Anweisung dem Function Schlüsselwort mit dem Namen der Prozedur, der Parameterliste in Klammern und einer As Klausel, die den Datentyp des Rückgabewerts angibt.

  3. Platzieren Sie die Codeanweisungen der Prozedur zwischen den Anweisungen Function und End Function.

  4. Verwenden Sie eine Return Anweisung, um den Wert an den aufrufenden Code zurückzugeben.

So verbinden Sie Ihre neue Prozedur mit den alten, sich wiederholenden Codeblöcken

  1. Stellen Sie sicher, dass Sie die neue Prozedur an einer Stelle definieren, an der der alte Code Darauf zugreifen kann.

  2. Ersetzen Sie in Ihrem alten, sich wiederholenden Codeblock die Anweisungen, die die sich wiederholende Aufgabe ausführen, durch eine einzelne Anweisung, die die Sub- oder Function-Prozedur aufruft.

  3. Wenn Ihre Prozedur ein Function ist, das einen Wert zurückgibt, stellen Sie sicher, dass Ihre aufrufende Anweisung den zurückgegebenen Wert verwendet, beispielsweise indem Sie ihn in einer Variablen speichern, da er sonst verloren geht.

Beispiel

Das folgende Function Verfahren berechnet die längste Seite oder Hypotenuse eines rechtwinkligen Dreiecks, wobei die Werte für die anderen beiden Seiten angegeben sind:

Function Hypotenuse(side1 As Double, side2 As Double) As Double
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function

Siehe auch