|
Dit artikel is gepubliceerd op woensdag 28 april 2010 op vbvoorbeelden, bezoek de website voor een recente versie van dit artikel of andere artikels.
2.2.1. Wat moeten we HerhalenOnderstaand voorbeeld brengt de getallen een tot en met drie op de console. Visual Basic Broncode Module Example1
Sub Main()
Console.WriteLine(1)
Console.WriteLine(2)
Console.WriteLine(3)
Console.ReadLine()
End Sub
End ModuleDownload Visual Basic Broncode Bekijk deze Broncode in Visual C#
Bovenstaande oplossing is erg statisch. Indien men de getallen een tot en met honderd op de console wil brengen, dient men 97 regels toe te voegen. Als men vervolgens slechts de getallen een tot en met vijftig op de console wil brengen, dient men opnieuw 50 regels te verwijderen.
Een meer dynamisch algoritme - om alle gehele getallen van een bepaalde startwaarde tot een bepaalde eindwaarde weer te geven - zou men kunnen definiëren aan de hand van een herhalingsstructuur (ook wel iteratiestructuur genoemd).
Hierin kunnen bepaalde instructies herhaald worden, zolang aan een bepaalde voorwaarde is voldaan.
Bovenstaand voorbeeld kunnen we ook omvormen naar onderstaande variatie. Visual Basic Broncode Module Example2
Sub Main()
Dim value As Integer
value = value + 1
Console.WriteLine(value)
value = value + 1
Console.WriteLine(value)
value = value + 1
Console.WriteLine(value)
Console.ReadLine()
End Sub
End ModuleDownload Visual Basic Broncode Bekijk deze Broncode in Visual C#
 Terug naar boven
2.2.2. Do While ... Loop HerhalingIn bovenstaand voorbeeld is duidelijk hoe dezelfde instructies hier meerdere keren herhaald worden.
Om instructies te herhalen plaats je die tussen de Do While en de Loop van een Do While ... Loop herhalingsstructuur
Om aan te geven hoeveel keer of hoelang iets herhaald moet worden formuleer je naast Do While een voorwaarde. Zolang voldaan is aan de voorwaarde wordt de body (tussen Do While en Loop) herhaald. Is niet meer voldaan of is zelfs initieel niet voldaan aan de voorwaarde wordt er verder gegaan met de instructies na Loop. Visual Basic Broncode Module Example3
Sub Main()
Dim value As Integer
Do While value < 3
value = value + 1
Console.WriteLine(value)
Loop
Console.ReadLine()
End Sub
End ModuleDownload Visual Basic Broncode Bekijk deze Broncode in Visual C#
Bovenstaande instructies worden herhaald zolang het getal (value) kleiner is dan drie. Bij value gelijk aan twee, mag het nummer nogmaals verhoogd worden met een, en op de console worden gedrukt.
Het voorbeeld is eenvoudig nog dynamischer op te stellen. Door een start- en eindwaarde aan het algoritme toe te voegen, kan eenvoudig geconfigureerd worden van welke waarde tot welke waarde de getallen worden weergegeven. Visual Basic Broncode Module Example4
Sub Main()
Dim startValue As Integer = 10
Dim endValue As Integer = 15
Dim value As Integer = startValue - 1
Do While value < endValue
value = value + 1
Console.WriteLine(value)
Loop
Console.ReadLine()
End Sub
End ModuleDownload Visual Basic Broncode Bekijk deze Broncode in Visual C#
Visual Basic Output 10
11
12
13
14
15 Terug naar boven 2.2.3. OefeningenOpgave :
Maak een programma dat de getallen 20 tot en met 10 op de console brengt. Visual Basic Output 20
19
18
17
16
15
14
13
12
11
10 Oplossing : Visual Basic Broncode Module Exercise1Solution
Sub Main()
Dim value As Integer = 21
Do While value > 10
value = value - 1
Console.WriteLine(value)
Loop
Console.ReadLine()
End Sub
End ModuleDownload Visual Basic Broncode Bekijk deze Broncode in Visual C#
Opgave : Maak een programma dat alle machten van 2 kleiner dan 1000 op de console brengt. Doet dit zoals onderstaand programma-verloop het voortoont. Visual Basic Output base : 2, exponent : 1, result : 2
base : 2, exponent : 2, result : 4
base : 2, exponent : 3, result : 8
base : 2, exponent : 4, result : 16
base : 2, exponent : 5, result : 32
base : 2, exponent : 6, result : 64
base : 2, exponent : 7, result : 128
base : 2, exponent : 8, result : 256
base : 2, exponent : 9, result : 512 Oplossing : Visual Basic Broncode Module Exercise2Solution
Sub Main()
Dim base As Integer = 2
Dim exponent As Integer = 1
Dim result As Integer = base ^ exponent
Do While result < 1000
Console.WriteLine("base : " & base & _
", exponent : " & exponent & _
", result : " & result)
exponent = exponent + 1
result = base ^ exponent
Loop
Console.ReadLine()
End Sub
End ModuleDownload Visual Basic Broncode Bekijk deze Broncode in Visual C#
Dit artikel is gepubliceerd op woensdag 28 april 2010 op vbvoorbeelden, bezoek de website voor een recente versie van dit artikel of andere artikels.
Visual Basic 2008 & 2010 Boeken
Berichten
| 
1. 
