Visual Basic.NET | Do While — Loop Döngüsü…

Merhaba arkadaşlar,

Üzerinde çalıştığım bir proje nedeni ile blog ile ilgilenemiyorum ve ders paylaşımlarında bulunamıyorum. Ama bugün ilgilendiğim projeye ara verdim, Gün boyu ders ve bilgi makalelerini yazacağım. İlk dersimiz Visual Basic, Konumuz ise Do While ve Loop Döngüsü.

Dersimize yine konu anlatımları ve kısa örnekler ile değinmeye başlayalım;

Do While — Loop Döngüsü

• For Next -> Döngünün kaç defa çalışacağı biliniyorsa kullanılır.
• Döngünün kaç defa çalışacağı bilinmiyorsa ve döngü şarta bağlı ise Do While – Loop kullanılır.
• Kullanım Şekli:

Do While – Loop
Kodlar
Loop

Do While — Loop Döngüsü

Dim a, b, c As Integer
a = 0
b = 1
Do While a < 3
c = InputBox("Sayı yazınız...")
b = b + c
a = a + 1
Loop
MsgBox("b=" & b)

Dim sayi, artis As Integer
sayi = TextBox1.Text
artis = TextBox2.Text
Do While sayi <= 20
MsgBox("Sayıyı artış miktarı kadar artır.=" & sayi)
sayi = sayi + artis
Loop

• Do
• Kodlar
• Loop While Şart
• Şart doğruysa döngü sürekli çalışır.
• Kod parçası şart yanlış da olsa bir defa çalışır. Döngüden çıkar.

Dim sayi, toplam As Integer
toplam = 0
Do
sayi = InputBox("Lütfen bir sayi giriniz:")
toplam = toplam + sayi
Loop While toplam <= 100
MsgBox("Toplam: " & toplam)

Dim baskent As String
Do
baskent = InputBox("Lütfen başkenti yazınız:")
Loop While (baskent <> "Ankara")
'Buradaki şart doğru olduğu sürece program çalışır
MsgBox("Başkentimiz: " & baskent)

Do Until — Loop Döngüsü

• Kullanım Şekli
• Do Until Şart
• Kodlar
• Loop
• Until gördüğümüzde aklımıza yanlış gelecek
• Döngü için şart -> yanlış ise döngü sürekli çalışır
• Döngü için şart -> doğru ise döngüden çıkılır.

Dim a, b, c As Integer
a = 4
b = 0
Do Until a >= 6
c = InputBox("Lütfen bir sayı giriniz: ")
b = b + c
a = a + 1
Loop
MsgBox("b: " & b)

Do Loop — Until Döngüsü

• Kullanım Şekli
• Do
• Kodlar
• Loop Until Şart (Untili gördüğümüzde aklımıza yanlış gelecek)
• Döngü için şart -> yanlış ise döngü sürekli çalışır
• Döngü için şart -> doğru ise kod bir defa çalışır ve döngüden çıkılır.

Dim notu As Integer
Do
notu = InputBox("Notunuzu giriniz: ")
Loop Until (notu >= 0) And (notu <= 100)
MsgBox("Notunuz:" & notu)