kopf
brlogo
fensterobenrechts
   
   
fensteruntenblau
   
 

Visual Basic im Informatik-Unterricht der Mittelstufe

Schleifen

 

Mit der Erweiterung des Straßenbildes unter "Prozeduren" können Schleifen in VB eingeführt werden. So zeichnet die folgende Prozedur unter Verwendung einer For-Schleife die Bordsteine des  Straßenbildes:   

Private Sub Bordsteine()
  Dim i
  For i = 0 To 34
  Bild1.Line (i * 200, 3750)-(i * 200 + 30, 3720)
  Bild1.Line (i * 200, 3750)-(i * 200, 3790)
  Next i
  For i = 0 To 34
  Bild1.Line (i * 200, 4880)-(i * 200 + 30, 4850)
  Next i
End Sub

 

Das Straßenbild:

Bild21

 

Neben der For-Schleife sind in VB noch folgende Schleifenkonstruktionen möglich : 

 

a. Do ... Loop Until <Bedingung>

b. Do ... Loop while  <Bedingung>

c. Do while  <Bedingung> ... Loop 

d. Do until  <Bedingung> ... Loop 

 

Der folgende Programmcode enthält nicht alle Prozeduren des Programms Strasse3:

Lösungshinweis

 

weiter --> Arithmetik

 

 
 
Friday, 17. November 2017 / 23:59:53