Les 4 - For Next loops
|
|
|
Les 4 - For Next loops |
|
|
|
Een For next loop is een herhaling van een stuk programma. Als je iets 10 keer wilt herhalen gebruik je het volgende: For a = 1 to 10 ‘ hier het programma next a Eigelijk staat hier : a is 1 , dan programma uitvoeren en wanneer het programma bij “next a” aankomt dan wordt bij a 1 opgeteld en wordt het programma weer uitgevoerd. Net zo lang dat a niet groter is dan 10. Een voor beeldje We gaan de tafel van 10 maken. tik dit in, onder de dukknop. Dim getal1 , a, uitkomst as single Dim waarde as String getal1 = Csng(text1.text) For a = 1 to 10 uitkomst = a * getal1 waarde = str(a) & “ x “ & str(getal1) & “ = “ & str(uitkomst) Label1.caption = label1.caption & vbcrlf & waarde next a Wanneer u dit programma laat runnen moet u bij het bovenste tekst veld een getal in tikken en dan de drukknop. ik zal het programma nu uit leggen. Dim getal1 , a, uitkomst as single -> getal1 en a en uitkomst zijn gebroken getallen. Dus u kunt tijdens runnen ook 3.1234 in tikken Dim waarde as String. -> waarde is geen getal maar een tekst. getal1 = Csng(text1.text) -> converteer het tekstblok naar een single getal en doe dat in variabele getal1. For a = 1 to 10 -> variabele a loopt van 1 tot en met 10 uitkomst = a * getal1 -> de waarde van a wordt vermenigvuldigd met de waarde in variabele getal1. waarde = str(a) & “ x “ & str(getal1) & “ = “ & str(uitkomst) -> Wat hier alle maal gebeurd leg ik uit in les 5. Kort gezegt eigenlijk staat er dit : a x tekst1 = uitkomst waar x de letter x is en niet het maal teken. Dit is namelijk alleen maar om het zichtbaar te maken op het scherm en niet om mee te rekenen. Label1.caption = label1.caption & vbcrlf & waarde -> label1 krijgt de tekst die al in label1 staat plus een sprong naar een nieuwe regel plus de inhoud van tekst variabele waarde. eigenlijk staat er dit : label1 = de al bestaande inhoud van Label1 plus de sprong naar een nieuwe regel plus de inhoud van tekst variabele waarde. next a -> tel bij a 1 op en doe weer het zelfde stuk programma. Dit was de uitleg van het programma. Wanneer u i.p.v optellen wilt aftrekken dan kan dit ook d.m.v. het commande Step For a = 10 to 1 Step -1 of For a = 10 to 1 Step -2 of For a = 1 to 10 Step 2 Dit kan dus allemaal. ga nu naar Les 5 en leer de basis van STRINGS |
|
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
copyright © 2000 - 2008 Majosoft |
|||
|
|
|||
