En basit döngü yapısıdır. Hiçbir kontrol yapılmadan Do ve Loop ifadeleri arasındaki satırların işlem görmesi için kullanılır. Bu yapıda programın terkedilmesi için herhangi bir kontrol olmadığından, döngü içine karar verme komutlarından birisi ile bir kontrol yapısı kurulması gerekir, aksi halde program sonsuz döngüye girer.
Do While-Loop Döngüsü
Do While-Loop döngüsünün genel yazım şekli şu şekildedir;
Do While (koşul veya ifade)
Ara işlemler
Loop
Do While döngüsünde önce koşula bakılır. Eğer koşul doğru ise aradaki satırlar Loop satırına kadar çalıştırılır. Loop satırında tekrar While satırına dönülür. Koşul tekrar kontrol edilir, koşul doğru ise ara satırlar tekrar çalıştırılır, yanlış ise Loop satırından sonraki ilk satırdan program çalışmaya devam eder. İç içe Do While döngüleri de kurulabilir. Bu durumda her Do While döngüsü için mutlaka bir Loop kullanılması gerekir.
Do-Loop While Döngüsü
<!--[if !supportLineBreakNewLine]-->
<!--[endif]-->
Do-Loop While döngüsünün genel yazım şekli şu şekildedir;
Do
Ara işlemler
Loop While (Kosul veya ifade)
Bu döngü tipinde ara işlemler en az bir kez mutlaka işleme girer, daha sonra koşul kontrol edilir. Eğer koşul doğru ise tekrar Do satırına dönülür ve aradaki işlemler (satırlar) tekrar icra edilir, yanlış ise döngüden çıkılır. Bu yapıyı da iç içe kullanmamız mümkündür.
Do While-Loop döngüsü ile Do-Loop While döngüsü arasındaki en önemli fark: Do While-Loop döngüsünde koşul veya koşullar en başta kontrol edilirken, Do-Loop While döngüsünde en sonda kontrol edilmektedir.
Do Until-Loop Döngüsü
Do Until döngüsünde önce koşula bakılır. Eğer koşul yanlış ise aradaki satırlar Loop satırına kadar çalıştırılır. Loop satırında tekrar Do Until satırına dönülür. Koşul tekrar kontrol edilir. Eğer koşul yanlış ise ara satırlar tekrar çalıştırılır, koşul doğru ise Loop satırından sonraki ilk satırdan program çalışmaya devam eder. Do While-Loop döngüsünden tek farkı koşul yanlış olduğunda ara işlemler çalıştırılırken, Do While-Loop döngüsünde koşul doğru ise ara işlemler çalıştırılır. İç içe Do Until-Loop döngüleri de kurulabilir. Bu durumda her Do Until döngüsü için mutlaka birLoop kullanmamız gerekir.
Do While :Koşul döngüye girmeden kontrol edilir
Do Until :Koşul vardır.Do While tam tersidir
-For Next - Do Loop Arasındaki Fark-
Şart kontrolü varsa eğer do loop kullanılır
Belli aralıkta bir işlem gerçekleştirilecekse eğer for next kullanılır
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Do
Select Case MsgBox("sonsuz", MsgBoxStyle.YesNo)
Case MsgBoxResult.Yes
Exit Do
End Select
Loop
End Sub
----------------------------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer = 0
Do While i < 10
MsgBox("i nin değeri =" & i)
i += 1
Loop
End Sub
-----------------------------------------------------------------------------------------------------------------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim yanit As String
Do
MsgBox("işlem yapılıyor.....")
yanit = InputBox("devam etmek istiyor musunuz ?")
Loop While (yanit = "e" Or yanit = "E")
End Sub
------------------------------------------------------------------------------------------------------------------
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim dizi(9) As Integer
Dim i As Integer = 0
Do Until Not i < 10 ' do while ile yaparlen direk do while yazar notu kaldırırız
dizi(i) = i * i ' i e kadar sayıları çarp
MsgBox("i nin değeri" & i & "dizinin(" & i & ")ninci değeri=" & dizi(i))
i = i + 1 ' i ye bir ekle
Loop
End Sub
End Class
---------------------------------------------------------------------------------------------------------------------