Döngü Kontrol İfadeleri

Bu dersimizde döngü kontrol ifadelerinin neler olduğunu ve basıl kullanıldığını öğreneceğiz.

Exit Do

Kullanım amacı ve Örnek:
Exit Do Do Loop ,While Wend döngülerinden bazı şartların gerçekleşmesi durumunda çıkmak için kullanılmaktadır..


Private Sub Command1_Click()

Dim i , j

 j=0

Do

  i=i+1

  j=j+i^2

  Label1=j

  if Text1="son" then Exit Do

  Loop Until i>10000000

  Msgbox(i & ".adımda çıkıldı")

End Sub



Bu programda text kutusuna eğer son yazılırsa döngüden çıkılacak. Çıkılmaz ise kendi 10000000 olunca çıkacaktır.

Exit For

Kullanım amacı::
Bu ifade ise For Next döngüsündan bazı şartların gerçekleşmesi durumunda çıkılması için kullanılır.

Exit Sub,Exit Function

Kullanım amacı::
Exit Sub ve Exit Function ifadeleri alt program sonuna ulaşmadan alt programdan çıkmada kullanılmaktadır.

End

Kullanım amacı:
Programı sona erdirir. Bütün açık olan form ve dosyaları kapatır.

With-End With

Kullanım amacı ve Örnek:
Herhangi bir kontol elemanının birden fazla özelliğini değiştirmek ya da metotlarına ulaşmak için kolaylık sağlar.


Private Sub Command1_Click()

    Combo1.additem "Fuat"

    Combo1.additem "Şengül"

    Combo1.additem "Sanalkurs"

    Combo1.additem "Net"

    Combo1.fontbold "true" "Yazı kalınlığı açık"

    Combo1.fontname "Times New Roman" "Yazı sitili"

  End Sub



With-End With ile yapalım şimdi:


Private Sub Command1_Click()

    With Combo1

       .additem "Fuat"

       .additem "Şengül"

       .additem "Sanalkurs"

       .additem "Net"

       .fontbold "true" "Yazı Kalınlığı açık"

       .fontname "Times New Roman" "Yazı sitili"

    End With 

 End Sub



Görüşmek üzere...
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

valla çok guzel anlatmışsın sağol
Cox sag ol

Yukarı Git