Hier findest du die neue Inventor FAQ

Hier ist der fünfte Teil des VB-Kurses. Was bisher geschah (als Neueinsteiger bitte erstmal diese Teile durchlesen!):

Programmieren in Visual Basic – Eine Einführung – Teil 1
Programmieren in Visual Basic – Eine Einführung – Teil 2
Programmieren in Visual Basic – Eine Einführung – Teil 3
Programmieren in Visual Basic – Eine Einführung – Teil 4

Immer und immer wieder – Schleifen in VB

Ein weiteres Standardelement in der (VB-) Programmierung sind Schleifen. Schleifen werden immer dann eingesetzt, wenn ein Anweisung mehrmals ausgeführt werden soll.

For-Next-Schleife

Dieser Schleifentyp wird immer dann eingesetzt, wenn Du weisst, wie oft eine Anweisung ausgeführt werden soll. Wir wollen gleich mal mit einem Beispiel starten. Ihr kennt alle die “Schachbrettgeschichte” wo einer auf das erste Quadrat ein Reiskorn legt und auf jedes weitere doppelt soviele wie auf dem Quadrat davor. Wieviele Reiskörner sind das am Ende bei 64 Schachbrettfeldern?

 Sub Main()
'Variablendeklaration
Dim dblZahl As Double = 1
Dim intFelder, intZaehler As Integer
'Abfrage der Anzahl der Schachbretter
Console.WriteLine("Wieviele Felder hat dein Schachbrett?")
intFelder = Console.ReadLine()
'Schleife, die so oft durchlaufen wird, wie Felder angegeben wurden
For intZaehler = 1 To intFelder
'Diese Zeilen brauche ich, damit nicht sofort mit 2 Reiskörnern angefangen wird
If dblZahl = 1 Then
Console.WriteLine("Feldnr. {0} = Anzahl Reiskörner {1}", intZaehler, dblZahl)
End If
'Anzahl der Resikörner verdoppeln
dblZahl = dblZahl * 2
'Werte ausgeben
Console.WriteLine("Feldnr. {0} = Anzahl Reiskörner {1}", intZaehler, dblZahl)
Next
'Nach der Ausgabe Returntaste abfragen, damit das DOS-Fenster nicht sofort zu geht
Console.ReadLine()
End Sub

Das neue an diesem, schon nicht mehr ganz nutzlosen, Programm ist die For-Next-Schleife die einen Befehlsblock mehrmals abarbeitet. Die Grundstruktur ist For x = 1 to y …. Next. Die Schleife fangt bei 1 an zu zählen und wird sooft durchlaufen bis der Wert y erreicht ist. Wie ihr seht, verwende ich intZaehler zur Ausgabe des aktuellen Schachbrettfeldes. Wenn ihr mal mit einem Befehl nicht klar kommt, setzt den Cursor auf den Befehl (z.B. “For”) und drückt F1 und es wird die Hilfe geöffnet die entweder online oder offline liegen kann.

Die Do-Loop-Schleife

Bei der For-Next-Schleife steht bereits zu beginn fest, wie oft sie durchlaufen werden soll. Die Do-Loop-Schleife dagegen wird sooft durchlaufen, bis eine bestimmte Bedingung erfüllt ist. Stell dir vor, wir würden ein Inventortool programmieren (womöglich machen wir das auch mal irgendwann :) ) bei dem ein Maß solange geändert wird, bis sich ein bestimmtes Volumen am 3D Modell ergibt. Dann muss die Schleife solange durchgemacht werden, bis die Bedingung “Volumen = gewünschter Wert” eintritt. Das kann 5 mal sein oder 2000000 mal.

In unserem zweiten Beispiel tuen wir mal so, als könnten wir keine Formeln umstellen. Wir haben hier ein Programm, dass Aufgund der Angabe eines Flächeninhaltes und einer Kantenlänge die zweite Kantenlänge ermittelt, die nötig ist, um den Flächeninhalt zu erreichen.

Sub Main()
Dim intKante1, intKante2, intFlaeche1, intFlaeche2 As Integer
Console.WriteLine("Fläche")
intFlaeche1 = (Console.ReadLine)
Console.WriteLine("Kantenlänge")
intKante1 = (Console.ReadLine)
intKante2 = 0
Do Until intFlaeche2 = intFlaeche1
intFlaeche2 = intKante1 * intKante2
Console.WriteLine("Kantenlänge2: {0} ergibt Fläche von {1}", intKante2, intFlaeche2)
intKante2 = intKante2 + 1
Loop
Console.ReadLine()
End Sub

In unserem Beispiel wird die “Do Until” Schleife solange durchlaufen, bis die errechnete Fläche intFlaeche2 gleich der eingegeben Fläche intFlaeche1 ist. Das Ergebnis sieht da so aus:

Das wars für heute. Wer sich noch etwas näher mit dem Thema befassen will, kann sich mal in der Hilfe der VB Entwicklungsumgebung umsehen.

Bisherige Artikel zum Thema “Programmieren in Visual Basic”:
Programmieren in Visual Basic – Eine Einführung – Teil 1
Programmieren in Visual Basic – Eine Einführung – Teil 2
Programmieren in Visual Basic – Eine Einführung – Teil 3
Programmieren in Visual Basic – Eine Einführung – Teil 4