Visual Basic For Döngüsü İle Sayaç Oluşturma - Bilişim Konuları

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ü:

sayac

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

Bu Yazıya Tepkin Nedir?
+1
0
+1
0
+1
0
+1
0
+1
0
+1
0
+1
0

Yorum Yap

1 Yorum

  • Her rakam 9 olduğunda başa dönüyor. Bu süre saniye olarak mı değişiyor yada sadece sayıyor durdurma yeniden başlatma yok. Kullanışlı değil. Ama iç içe döngülerin çalışmasını anlamak yönünden güzel örnek.