Örnek 6:
000 ile 999 arasındaki sayılar iç içe düzenlenmiş üç for‐next döngü yapısı
kullanılarak
oluşturuluyor.
Kod
içersinde
yer
alan
“System.Threading.Thread.Sleep(10)” ifadesi, her adımda bekleme işlevini
gerçekleştiriyor. Dolayısıyla sayaçların değişimi gözlenebiliyor.
Ekran Görüntüsü
Kodlar
Public Class Form1
Dim sayi As Integer
Dim k As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
For sayac1 = 0 To 9
For sayac2 = 0 To 9
For sayac3 = 0 To 9
ListBox1.Items.Add(sayac1.ToString + sayac2.ToString +
sayac3.ToString)
TextBox3.Text = sayac3
TextBox2.Text = sayac2
TextBox1.Text = sayac1
TextBox3.Refresh()
TextBox2.Refresh()
TextBox1.Refresh()
System.Threading.Thread.Sleep(10) 'Her adımda 10 ms
bekleyecek.
Next (sayac3)
Next sayac2
Next sayac1
End Sub
End Class
24