| U bent hier: schouppe.net > computerlogica > modulair programmeren > procedures > subroutines |
Hieronder staat een voorbeeld van een Excel VBA-subroutine. Deze subroutine laat de computer enige tijd wachten.
![]() |
Sub oproependeProcedure()
MsgBox "begin"
call wachten(10)
MsgBox "einde"
End Sub
|
Sub wachten(ByVal t As Integer)
Dim w As Integer
w = 1
Do While w <= t
w = w + 1
Loop
End Sub
|
Het algoritme bestaat uit twee delen: het oproepende gedeelte (oproependeProcedure genaamd) en de subroutine 'wachten'. Indien u dit programma uitvoert in Excel, gaat u weinig zien gebeuren (buiten de boodschappen 'begin' en 'einde'). Het wachten wordt namelijk geïmplementeerd door het laten tellen van de computer; en tot tien tellen gebeurt razendsnel in een computer.
U kunt het programmaverloop (subroutine.xls) ook volgen aan de hand van het venster lokale variabelen. Hier zal het iets duidelijker worden dat dit tellen enige tijd in beslag neemt.
Merk op dat in het PSD een afzonderlijk symbool wordt gebruikt voor het oproepen van een subroutine (een rechthoek met twee verticale streepjes aan de zijkanten). U kunt dit symbool in EasyCode verkrijgen via het menu Insert Procedure Call. De parameter OUT is bij een subroutine steeds leeg; i.c. een streepje.
| ©
H. Schouppe Laatste wijziging: 2004-05-12 |