Do While Loop Fonksiyonu

 FONKSİYONLAR

Gelişmiş/Mantıksal Fonksiyonlar
Do While...Loop Fonksiyonu

Açıklama

DO WHILE LOOP fonksiyonu, 

Bir şart gerçekleşinceye kadar bir kod bloğunu yürütmeye yarar. DO WHILE LOOP döngüsü 2 farklı şakilde kullanılabilir. Şartın başta belirtimi ve şartın sonra belirtimi olmak üzere. Aşağıdaki 1.Örnekte şart başta belirtilirmiştir. 2. Örnekte ise şart sonda belirtilmiştir.2 sinin arasındaki fark komutların çalışma sırasıdır. 

---------------------------------------

DO WHILE

....

....

....

LOOP

-----------------------------------------

-----------------------------------------

DO

....

....

....

LOOP WHILE

-----------------------------------------

Bakmak İsteyebilecekleriniz:

For...Next fonksiyonu,

While...Wend fonksiyonu,

Söz Dizimi

Do_While_Şart ....ifade Loop

PARAMETRELER

• Şart: kodun çalışmasını sağlayan şart
• ifade: şart doğru olduğu sürece çalıştırılacak kodlar

Örnekler

Örnek-1

Sayac = 0

SıraNo =7

Do While Sayac <  5

SıraNo = SıraNo + 1

Sayac = Sayac + 1

Debug.Print Sayac & "." & SıraNo

Loop

Sonuç: Bu örneğimizin çıktısı aşağıdaki gibi olacaktır. En son sayac 4 değerini aldığında kodun çalışmasına bakacak olursak hemen altında Sayac = Sayac + 1 komutuyla sayacın değeri 5 olacaktır, onun altında da yazdırma komutu ile 5.12 görüntülenecek tekrar Do While satırıma gittiğinde şart sağlanmayacağı için ( 5 < 5 ) Döngü sona erecektir.

1.8

2.9

3.10

4.11

5.12

Örnek-2

Sayac = 0

SıraNo =7

Do 

SıraNo = SıraNo + 1

Sayac = Sayac + 1

Debug.Print Sayac & "." & SıraNo

Loop While Sayac <  5

Sonuç: Bu örneğimizde de çıktımız 1.örnekteki gibi olacaktır.

1.8

2.9

3.10

4.11

5.12

VBA Kullanımı ve Sonucu

DO WHILE...LOOP ÖRNEĞİ

Ve İşte Sonuçlar...

Kod:

Sub DoWhile_Loop_Example()
Dim sayac As Integer
Dim sirano As Integer

    sayac = 0
    sirano = 7
    
    Do While sayac < 5
    
        sirano = sirano + 1
        sayac = sayac + 1
        Debug.Print sayac & "." & sirano
        
    Loop

End Sub

DO ..... LOOP WHILE ÖRNEĞİ

Ve İşte Sonuçlar...

Kod:

Sub Do_WhileLoop_Example()
    
Dim sayac As Integer
Dim sirano As Integer

    sayac = 0
    sirano = 7
    
    Do
        sirano = sirano + 1
        sayac = sayac + 1
        Debug.Print sayac & "." & sirano
        
    Loop While sayac < 5

End Sub

DO WHILE...LOOP fonksiyonu ile bir döngü yapısının nasıl çalışacağını artık biliyoruz.

Gelecek makalemizde Yerleşik Fonksiyonların anlatımına devam edeceğiz. Yorumlarınızı ve eleştirilerinizi bekliyorum.

Şimdilik,
Hoşcakalın...