Delen via

Procedure: Een procedure maken (Visual Basic)

  • Artikel

U plaatst een procedure tussen een begindeclaratieverklaring (Sub of Function) en een einddeclaratieverklaring (End Sub of End Function). Alle code van de procedure ligt tussen deze instructies.

Een procedure kan geen andere procedure bevatten, dus de begin- en eindinstructies moeten buiten een andere procedure staan.

Als u code hebt die dezelfde taak op verschillende plaatsen uitvoert, kunt u de taak eenmaal schrijven als een procedure en deze vervolgens aanroepen vanaf verschillende plaatsen in uw code.

Een procedure maken die geen waarde retourneert

  1. Gebruik buiten een andere procedure een Sub instructie, gevolgd door een End Sub instructie.

  2. Volg in de Sub instructie het Sub trefwoord met de naam van de procedure en vervolgens de lijst met parameters tussen haakjes.

  3. Plaats de code-instructies van de procedure tussen de Sub en End Sub de instructies.

Een procedure maken die een waarde retourneert

  1. Gebruik buiten een andere procedure een Function instructie, gevolgd door een End Function instructie.

  2. Volg in de Function instructie het Function trefwoord met de naam van de procedure, vervolgens de lijst met parameters tussen haakjes en vervolgens een As component waarmee het gegevenstype van de retourwaarde wordt opgegeven.

  3. Plaats de code-instructies van de procedure tussen de Function en End Function de instructies.

  4. Gebruik een Return instructie om de waarde te retourneren aan de aanroepende code.

Uw nieuwe procedure verbinden met de oude, terugkerende codeblokken

  1. Zorg ervoor dat u de nieuwe procedure definieert op een plaats waar de oude code toegang heeft.

  2. Vervang in uw oude, terugkerende codeblok de instructies die de terugkerende taak uitvoeren door één instructie die de Sub of Function procedure aanroept.

  3. Als uw procedure een Function waarde retourneert, moet u ervoor zorgen dat uw aanroepende instructie een actie uitvoert met de geretourneerde waarde, zoals het opslaan in een variabele, of anders gaat de waarde verloren.

Opmerking

Met de volgende Function procedure wordt de langste zijde, of hypotenuse, van een driehoek rechts berekend, op basis van de waarden voor de andere twee zijden:

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

Zie ook