Pętle

CodeLan

Pętle są to takie instrukcje które są wykonywane dopóki warunek jest spełniony lub określoną ilość razy.
Pierwszym rodzajem pętli jest Do While (warunek/warunki) ... Loop. Pętla wykonywana jest tak długo jak długo warunek jest prawdziwy (zwraca wartość TRUE).
Przykładem takiej pętli jest:

Dim a, b As Byte
a = 26 ‘zamiast ustawiać wartość możemy ją pobrać od użytkownika
Randomize ‘funkcja sprawia, że przy każdym uruchomieniu programu będą losowane inne liczby
Do While a <> b ‘pętla wykonywana tak długo jak a jest różne od b
b = Int(RND*(100)) ‘przypisanie do b losowej wartości całkowitej
Loop

Pętla będzie wykonywana dopóki nie zostanie wylosowana liczba 26.

Przeciwieństwem pętli Do While … Loop jest Do Until … Loop, pętla wykonywana jest tak długo jak długo warunek zwraca wartość FALSE. Np.:

Dim a, b As Byte
a = 26 ‘zamiast ustawiać wartość możemy ją pobrać od użytkownika
Randomize ‘funkcja sprawia, że przy każdym uruchomieniu programu będą losowane inne liczby
Do While a = b ‘pętla wykonywana tak długo jak a jest nie równa b
b = Int(RND*(100)) ‘przypisanie do b losowej wartości całkowitej
Loop

Pętle odwrotne.
Pętlami odwrotnymi są Do … Loop While i Do … Loop Until. Różnica między tymi pętlami jest tak jak między Do While … Loop i Do Until … Loop, ale warunek jest sprawdzany dopiero na końcu wiec pętla zostanie przynajmniej raz wykonana.
Przykład pętli Do … Loop While:

Dim b As String
Do
b = inputbox("Wprowadź hasło") ‘okienko z możliwością wpisania informacji
Loop While b <> "aaa" ‘sprawdza czy wpisałeś poprawne hasło, jeśli nie to ponawia prośbę

Przykład pętli Do … Loop Until:

Dim b As String
Do
b = inputbox("Wprowadź hasło") ‘okienko z możliwością wpisania informacji
Loop Until b = "aaa" ‘sprawdza czy wpisałeś poprawne hasło, jeśli cięgi nie są równe to powtarza

Pętla For jest wykonywana określoną przez nas ilość razy. Pętla posiada instrukcję Step która określa o ile ma być zmieniona wartość.
Przykład

Dim x, y As Integer
y = 1
For x=1 To 10 Step 1 ‘pętla zostanie wykonana 10 razy
y = x * x ‘przypisuje do y wartości działania x*x
Next x