VB-Do-While-Loop-Until-Döngüleri_emresupcinMerhaba 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ü_emresupcin

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)
Yazar
Yazar
Bilgisayar Programcısı, Web Tasarımcı, Üniversite Öğrencisi...
Twitter Facebook Google Linkedin Flickr YouTube

Önceki Yazı:PHP Kullanarak Basit Admin Panel Nasıl Yapılır?

Sonraki Yazı:Google Chrome’da Genel İndirme Hataları Nelerdir?

BENZER YAZILAR
YORUMLAR
SİZ DE CEVAP YAZABİLİRSİNİZ
Bu yazı hakkında görüşünüzü belirtin.

ES Web Tasarım Web Tasarım Blog Teması Emre Supçin Bu tema ES Web Tasarım tarafından düzenlenmiştir. Hiçbir şekilde kopyalanamaz.