FONKSİYONLAR
Gelişmiş/Mantıksal Fonksiyonlar
Do Until...Loop Fonksiyonu
Do Until...Loop Fonksiyonu
Açıklama
DO UNTIL LOOP fonksiyonu,
DO UNTIL LOOP fonksiyonu,
Bir şart doğru olduğu sürece bir kod bloğunu yürütmeye yarar. DO UNTIL 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 UNTIL
....
....
....
LOOP
-----------------------------------------
-----------------------------------------
DO
....
....
....
LOOP UNTIL
-----------------------------------------
Bakmak İsteyebilecekleriniz:
Do....While....Loop fonksiyonu,
While....Wend fonksiyonu,
Söz Dizimi
Do_Until_Ş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 Until 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
6.13
Örnek-2
Sayac = 0
SıraNo =7
Do
SıraNo = SıraNo + 1
Sayac = Sayac + 1
Debug.Print Sayac & "." & SıraNo
Loop Until 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
6.13
VBA Kullanımı ve Sonucu
DO UNTIL...LOOP ÖRNEĞİ
Ve İşte Sonuçlar...
Kod:
Sub DoWhile_Loop_Example()
Dim sayac As Integer
Dim sirano As Integer
sayac = 0
sirano = 7
Do Until sayac < 5
sirano = sirano + 1
sayac = sayac + 1
Debug.Print sayac & "." & sirano
Loop
End SubDO ..... LOOP UNTIL Ö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 Until sayac > 5
End SubDO WHILE LOOP İLE DO UNTIL LOOP ARASINDAKİ FARKLAR
- Do While Loop Döngüsünde belirtilen şart sağlandığı sürece döngüye devam edilir.
- Do Until Loop Döngüsünde ise belirtilen şart doğru olduğunda döngüye davam edilir. Şart yanlış olduğundan döngüden çıkılır.
DO UNTIL...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...
Hoşcakalın...
0 Yorumlar