Bir dile ait en temel örneklerden bir tanesi de Sayaç Oluşturma örneğidir. Programatik olarak sadece for döngüsü ile birlikte FORM üzerine eklenen bir button ve label nesneleri ile oluşturulur. Bu örnekte de Temelde eğitmenim, bir giriş kutusuna kaç kez girdiğimizi sayacak bir program yapmamız gerektiğini, ayrıca bir while döngüsü kullanmamız gerektiğini söyledi.
Visual Basic Program Kodu:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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 |
Programın Görüntüsü:
Program kodu nasıl çalışır.
Yukarıdaki örnekte Visual Basic Form’u içinde for döngüsü kullanarak sayaç oluşturduk. Üç aşamalı for döngüsünde ilk döngüde 10000000 kez boş döngü oluşturarak programın beklemesini sağladık. Daha sonra Label değerini yenileyerek sayıyı bir artırmış olduk. İç içe 3 for döngüsü ile 3 basamaklı bir sayaç yapısı kullanarak bu işlemi gerçekeleştirdik.
Yorum Yap