Visual Basic de Algoritma Kavrama 4

[ßyMesMes]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

For......Next Komut Yapısı : Belirli bir işlemi tekrarlamak istiyorsunuz veya bir işlemin, aritmetik artan veya azalan sayılarla kombinasyonlarını gerçekleştirmelisiniz. Belki de benzer bir konuda işiniz çıktı. İşte For....Next Komut yapısı bunu sağlamaktadır. Aslında işlem bu kadar gereksiz değil büyük bir ihtiyaca karşılık vermektedir. En azından size bir dosyayı açıp içini okumak, veri kaydetmek ve problem çözmek gibi işlemlerde mutlaka arayacağınızı belirtmeliyim.

Şöyle bir mantık düşünün; bir konum belirtiyorsunuz ve o program belirttiğiniz bir başka geri dönüş noktasından ilk konuma gidiyor ve bunu belirttiğiniz sayı kadar tekrarlıyor. Kullanımı

For değişken = başlangıç değeri to bitiş değeri step adım boyu 
Next değişken

Burada;
Değişken : Oluşturulan döngü içerisinde otomatik artan sayının atanacağı değişken.
Başlangıç değeri : Otomatik artacak sayının başladığı değer.
Bitiş değeri : Otomatik artacak sayının bitiş değeri.
Adım boyu : Otomatik artacak sayının artma veya azalma katsayısı.

Örnekler :

Private Sub Command1_Click( ) 
For x = 1 To 5 Step 1 
MsgBox x 
Next x 
End Sub

Burada msgbox komutu ekrana x değişkenini mesaj halinde çıkartmak için kullanılmıştır. Bu programın çalışmasında gözükecek olayı görüntülemmek için Göster butonunu tıklayınız. Aşağıda anlayabilmeniz için birkaç örnek gözükmektedir. Bunları göster tuşuna basıp nasıl çalıştığını incelemeniz menfaatiniz icabıdır.

Private Sub Command1_Click( ) 
For x = 1 To 5 Step 3 
MsgBox x 
Next x 
End Sub

Private Sub Command1_Click( ) 
For x = 0 To 10 Step 2 
MsgBox x 
Next x 
End Sub

Private Sub Command1_Click( ) 
For x = 10 To 5 Step -2 
MsgBox x 
Next x 
End Sub

Program döngü bitene kadar for ile next arasında dolaşacaktır.
Birden fazla döngüyü iç içe kullanabilirsiniz. Bunun için ilk açtığınız döngünün değişkenini son next ile beraber kullanacaksınız.

Örnek:

Private Sub Command1_Click( ) 
For x = 1 To 7 Step 2 
For y = 12 To 18 Step 2 
MsgBox x 
MsgBox y 
Next y 
Next x 
End Sub

burada x döngüsü içerisinde bulunan y döngüsü; x döngüsündeki başa dönüm sayısı kadar tekrarlanmaktadır. Bunu en iyi, bir iki deneme yaparak anlayabilirsiniz.