For-Next Döngüsü Vb.Net Ders 9

For-Next Döngüsü Vb.Net 

 

For-Next Döngüsü: Belirli aralıklarda(sayıda) kodlar icra edilecekse for döngüsü kullanılır. 

Kullanımı: 

For i=başlangıç değeri To  bitiş değeri  Step Artış miktarı 

Kodlar; 

Next 

Not :  Herhangi bir şart veya şartlar oluştuğunda for döngüsünü sonlandırmak için Exit For komutu kullanılır. 

 

Örnek: 1’den 100’e kadar olan sayıların toplamını bulup sonucu labelde gösteren programın kodlarını yazalım.(Sorunun form görüntüsü yukarıdadır.) 

Cevap: İki sayı arasındaki sayıları toplayacağımız için for döngüsünü kullanmalıyız.For döngüsü içinde sayıları toplamak için toplam değişkenini tanımlıyorum .Döngü bitincede toplama işleminin sonucunun bulunduğu toplam değişkenini label2′ye yazdırıyorum. ( label2.Text = toplam) 

[code language=”vbnet”]

Public Class Form1

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Dim toplam, i As Integer

toplam = 0

For i = 1 To 100 ‘i=1’den 100’e  kadar bir bir artırarak next’e kadar olan kodları uygula

toplam += i ‘toplam değişkenine i’yi ekle

Next

label2.Text = toplam ‘toplam değişkenini label2’ye yaz

End Sub

End Class

[/code]

  

  

 

  

 

Örnek: 45 ile 125 arasındaki çift sayıların toplamını bulup sonucu labelde gösteren programın kodlarını yazalım.(Sorunun form görüntüsü yukarıdadır.) 

Cevap: 45 ile 125 arasında dediği için for döngüsü 45 den başlayıp 125′de bitmelidir. 

[code language=”vbnet”]
Public Class Form1
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim toplam As Integer
For i As Integer = 46 To 125 Step 2 ‘ i=46’dan 125’e  kadar iki iki artırarak next’e kadar olan kodları uygula
toplam += i’toplam değişkenine i’yi ekle
Next
label2.Text = toplam ‘toplam değişkenini label2’ye yaz
End Sub

End Class[/code]

 

  

 

  

Örnek : textBox1’a girilen metni textBox2’ye girilen sayı kadar listbox’a ekleyen programın kodlarını yazınız. (Sorunun form görüntüsü yukarıdadır.) 

Cevap: iki değer arasında işlemler yapılmak istendiği için for döngünü kullanabiliriz. 

[code language=”vbnet”]Public Class Form1
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim i As Integer
For i = 1 To Val(TextBox2.Text) ‘ i=1’den Textbox’a girilen değere kadar bir bir artırarak next’e kadar olan kodları uygula</p>
ListBox1.Items.Add(TextBox1.Text) ‘textBox’daki veriyi listBox’a ekle
Next
End Sub</p>
End Class
[/code]