Visual Basic İç İçe For Döngüsü Örneği

Bu örneğimizde visual basic ortamında İç İçe for döngüsü kullanımı örneği yapacağız. Örneğimizde iç içe üç tane for döngüsü kullanıyoruz. For döngülerinin çalışmasını yavaşlatmak amacıyla belirli süre boyunca bekletmeyi sağlayan döngüler kullanacağız. Her for döngüsünde bekletmek amacıyla döngüyü 20 milyon kez boşa döndürüyoruz. Bu sayede bir zaman geçiyor. Bu sayede bir 0-9 arasında çalışan sayaç elde ediliyor ve rakamlar ekranda gösteriliyor.

Programın ekran görüntüsü:

Programın Visual Basic kodu:

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 20000000

                    Next

                    LblB3.Refresh()

                Next
            Next
        Next
    End Sub
End Class

Program dosyalarını buradan indirebilirsiniz.