Visual Basic For Döngüsü İle Sayaç Oluşturma

Bu örneğimizde Visual Basic ile bir sayaç programı yapacağız. Sayaç programını For döngüsü kullanarak oluşturacağız. Her for döngüsünde 10000000 kez boş döngü oluşturarak programın beklemesini sağlıyoruz. Daha sonra Label değerini yenileyerek sayıyı bir artırmış oluyoruz. İç içe 3 for döngüsü ile 3 basamaklı bir sayaç oluşturmuş oluyoruz.

Programın Ekran Görüntüsü:

Programın Visual Basic Kodları:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For basamak1 = 0 To 9
            LblB1.Text = basamak1
            For bekle = 0 To 10000000 'Her adımda beklemeyi sağlar.
            Next
            LblB1.Refresh() 'Etiketin (Label) tazelenmesi. Yeni sayıyı her adımda göstermesi için gereklidir.
            For basamak2 = 0 To 9
                LblB2.Text = basamak2
                For bekle = 0 To 10000000
                Next
                LblB2.Refresh()
                For basamak3 = 0 To 9
                    LblB3.Text = basamak3
                    For bekle = 0 To 10000000
                    Next
                    LblB3.Refresh()
                Next
            Next
        Next
    End Sub
End Class