While Döngüsü Vb.Net Ders 10

While Döngüsü Vb.Net Ders 10

While Döngüsü : Şart veya şartlar gerçekleştiği sürece işlemler yapılacağı zaman kullanılır.

Kullanımı :şart veya şartlar doğru olduğu sürece End While’ye kadar olan kodları icra eder.

While (şart veya şartlar)

kodlar

End While

Örnek: 0-25 arasında üretilen rastgele sayılardan 8 sayısının kaçıncı defada üretildiğini label1’de görüntüleyen programın kodlarını yazınız.(Form görüntüsü yukarıdadır)

Cevap:8 sayısı üretilene kadar sayacı artıracağımız için while döngüsü kullanabiliriz.

[code language=”vbnet”]

Public Class Form1

Private Sub Basla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Basla.Click

On Error Resume Next

Randomize()

Dim rsayi, sayac As Integer

rsayi = 0

sayac = 0

While rsayi <> 8

‘rsayi 8’den farklı olduğu sürece kodlari icra et

rsayi = Int(Rnd() * 25)

‘0 ile 25 arasında sayı üret ve rsayi’ya ata

‘sayacı bir artır

sayac += 1

End While

Label1.Text = "8 Sayısını " &sayac & ". Defada ürettim."

End Sub

End Class

[/code]

 

 

Örnek: 0-25 arasında üretilen rastgele sayılardan textBox1’e girilen  sayının kaçıncı defada üretildiğini label2’de görüntüleyen programın kodlarını yazınız.(Form görüntüsü yukarıdadır)

Cevap:textbox’a girilen sayı üretilene kadar sayacı artıracağımız için while döngüsü kullanabiliriz.

[code language=”vbnet”]

Public Class Form1

Private Sub Basla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Basla.Click

On Error Resume Next

Randomize()

Dim rsayi, sayac As Integer

rsayi = 0

sayac = 0

While rsayi <> Val(TextBox1.Text)

‘rsayi 8’den farklı olduğu sürece kodlari icra et

rsayi = Int(Rnd() * 25)

‘0 ile 25 arasında sayı üret ve rsayi’ya ata

‘sayacı bir artır

sayac += 1

End While

Label1.Text = TextBox1.Text & " Sayısını " & sayac &". Defada ürettim."

End Sub

End Class

[/code]

 

Örnek: Yarıçapı girilen bir tekerleğin gideceği yol boyunca kaç tur atacağını hesaplayan programın kodlarını yazınız.(form görüntüsü yukarıdadır)

Cevap : tekerlek daire şeklinde olduğu bir tur boyunca çevresi kadar hareket edecektir.Çevreyi her döngüde toplatacağız.Çevre gidilecek yoldan(textBox2) büyük olduğunda döngüden çıkması gerekiyor.Çevre=2*pi*r   (r yarıçaptır)

[code language=”vbnet”]

Public Class Form1

Private Sub Basla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Basla.Click

On Error Resume Next

Dim cevre, tur As Single

cevre = 0

tur = 0

While cevre <= Val(TextBox2.Text) ‘cevre textbox2’denküçük olduuğu sürece kodları icra et

cevre = cevre + (2 * (Math.PI) * Val(TextBox1.Text))

tur += 1

End While

Label4.Text = tur ‘Label4’e tur değişkenindeki değeri yaz

End Sub

End Class

[/code]