Vb de programlamanın en can alıcı ve en iiii bilinmesi gerekn konulardan biriside döngülerdir.Bunları bilmeyen birisi programcı olamaz ki bunu sizde bilmektesinizdir...

Simdi gelelim döngülerimize...

DO....LOOP

Bir plok içindeki komutlarıbelirtilen koşul sağlanılıncaya kadar çalıştırma mantığına dayanır...

Kullanım Şekilleri

Do

Gerçekleşmesini istediğiniz işlemler....
'Buraya yazacağınız komutlar sonsuza kadar çalışır

Loop

Örnek olarak:

Do

Msgbox("www.forummp3.net")

Loop

Bu örnekte do komutu ile sonsuz bir msgbox içerisine girdiniz.Siz ne kadar msgbox u cevaplarsanız o kadar çıkmaya devam edecektir...

Peki bundan kurtulmanın yada bunu belirli bir koşullar çerçevesi içerisinde yapmanın yolu yokmu diye sorduğunuzu hissediyorum....??? Tabiki var...!!!!

While ve Until komtuları ile Do Loop komutunu belirli koşullar çerçevesi içerisinde çalışmasını gerçekleştirebilirsiniz...

While ve Until komutları Do dan sonra olabileceği gibi Loop tan sonra da kullanılabilir..

Kullanım Şekilleri

1.Yol

Do While koşul

Gerçekleşmesini istediğiniz işlemler...

Loop

2.Yol

Do

Gerçekleşmesini istediğiniz işlemler....

Loop While koşul


Yukarıda vermiş olduğum kullanım örneklerinde diceksiniz ki fark nedir...???
Bundaki fark sudur.Birisinde While koşul komutunu Do dan sonra kullanım bunda döngüye girmeden koşulu kontrol eder eğerki koşul uyarsa döngüyü gerçekleştirir.Diğerinde ise koşul komutunu Loop
dan sonra kullandım.Bunda ise koşul döngünü sonunda verilmiştir.Yani her ne olursa olsun döngü içerisindeki komut her halükarda bir kez de olsa çalışacaktır.Eğerki koşul uygunsa döngüyü devam ettirir....

Örnekler

Dim ab as Integer
b=1

Do While Not (a=5)

a=a+1

b=b*2

Loop

Msgbox (a & vbTab & b)

'Bu örnekte a değişekeni 5'e eşit olmadığı süreceblok yani döngü içerisindeki komut çalışacaktır.Ne zaman 5'e eşit olursa döngü dışına çıkar.Yani ilk önce koşulu kontrol eder daha sonra komutu uygular...

Dim ab as Integer
b=1

Do

a=a+1

b=b*2

Loop While Not (a=5)

Msgbox (a & vbTab & b)

'Bu örnekte ise başlangıça döngüye girer ve döngü içerisindeki komutları bir kez de olsa çalıştırır.Daha sonra döngüden çıkarken koşulu kontrol eder eğer ki koşul uygun ise döngüden çıkar aksi taktirde döngüye devam eder...

2.Koşul belirleme Until

Kullanım şekilleri aynı While komutu gibidir.Ya Do komutudan sonra gelir yada Loop komutundan sonra gelir.Ve sonuç olarak aynı işe yaramaktadır.Yani eğer Do dan sonra yazılmıs ise döngüye girmeden koşulu belirler.Eğer Loop tan sonra ise koşulu sonda belirler...

Örnekler

Dim ab as Integer
b=1

Do Until a=5

a=a+1

b=b*2

Loop

Msgbox (a & VbTab & b)

'Burada a=5 olana kadar komutları uygular...Eğer a=5 oldumu döngüden çıkar...

Dim ab as Integer
b=1

Do

a=a+1

b=b*2

Loop Until a=5

Msgbox (a & VbTab & b)

'Burada ise a değerini kaç olduğunu döngü sonunda kontrol eder yani kısacası sonda a eğer 5 ise döngüden çıkar aksi taktirde göndüye devam eder...

FOR...NEXT

For Next döngüsü komutun yani döngünün bir çok kez çalışmasını istiyorsanız en çok kullanılması gereken yöntemdir...Belirlemiş olduğunuz sayıda ve aralıklarda döngüyü çalıştırır ve sonunda döngü dışına çıkar...

For sayaç=başlangıç To sayaç=bitiş [Step aralık](Step belirlemedi iseniz 1 kabul edliilir...]

Gerçekleşmesini istediğiniz komutlar...

Next

Bu yazmış olduğumuz diagram akışını bir örnek ile açıklayalım...

Örnek

Dim it as Integer

For i=1 to 10

t=t+i

Next

Msgbox("1 den 10'a kadar olan sayıların toplamı:" & t)

'Bu örnek yapmıs olduğumuz.Tanımlamıs olduğumuz i tamsayı veri tipini kullanarak 1'den 10' a kadar sürecek olan bir döngü oluşturmamız.Döngü i tanımlı veri tipi 10 olana kadar yani döngü 10 kez uygulanana kadar döngü içerisindeki komutları gerçekleştiri...

Dim it as Integer

For i=1 to 10 Step 2

t=t+i

Next

Msgbox("1 den 10'a kadar olan tek sayıların toplamı:" & t)

'Bu örneğimizde ise döngü aynı şekilde uygulanıyo fark olarak Step 2 ayarlandı yani i tanılı veri tipine 2 eklenerek komut gerçekleştirilir..Bu şekilde 1 den 10 a kadar olan tek sayıların toplamı bulunmus oldu.Ve ayrıca i tanımlı veritipi 10 olana kadar yani devam eder ama fark ederseniz.Döngü sadece 5 kez çalışır.Bunu nedeni ise 1 den 10 kadar olan sayıları 1 den başlayarak 2 şer sekme ile sayı 13579 gördüğünüz gibi döngü 5 kez çalışacaktır ve bunların toplamı olarak tek sayıların toplamı bulunacaktır...

FOR EACH

Bir yapı içerisindeki bilgileri kontrol etmek için kullanılır...Bubir Listbox değerlerbir Grid'e ait satırlar veya Form üzerindeki kontroller olabilir...

Örnek

Dim a As System.Windows.Forms.Control

For Each a In Me.Controls

a.BackColor=Colors.Blue

Next a

'Yukarıda vermiş olduğum örneği bir Button'un tıklama event i ne ekleyin.Ve projenizi çalıştırın.Button a tıkladığınızda Form üzerinde bulunan tüm kontrolerin yani objelerin zemin renginin mavi olduğunu gözleyeceksinizdir...

Son olarak tabir döngü içerisinden istediğiniz zaman çıkmak için Exit komutu kullanılır...

Örnek

Dim x as Integer

For x= 1 to 10

Msgbox("www.forummp3.net")

If x=5 Then
Exit For
End If

Next

'Bu örneğimizde döngünün 10 kere işlemesi gerekmektedir.Fakat ben içerisine IF ile koymus olduğum bir koşul ile eğer x tanımlı vertipi 5' eşit olursa döngüden çıkmasını belirledim.Yani döngüden istediğim zaman çıkabileceğimizi belirmek istedim....