Do Loop While -Do While-Do Until-Do Loop Until Döngüsü Vb.Net Ders 11

Do Loop While -Do While-Do Until-Do Loop Until Döngüsü Vb.Net Ders 11

Do Loop while Döngüsü : Şart veya şartlar gerçekleştiği sürece işlemler yapılacağı zaman kullanılır.While döngüsünden farkı bir defa kodları işleyip ondan sonra şarta veya şartlara bakar.

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

Do

kodlar

Loop  While (şart veya şartlar)

Do 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.

Do  While (şart veya şartlar)

kodlar

Loop 

Do Until 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.

Do  Until (şart veya şartlar)

kodlar

Loop 

Do Loop Until Döngüsü :  Şart veya şartlar gerçekleştiği sürece işlemler yapılacağı zaman kullanılır. While döngüsünden farkı bir defa kodları işleyip ondan sonra şarta veya şartlara bakar.

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

Do  

kodlar

Loop Until (şart veya şartlar)

Ö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 Do Loop 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

Do

‘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

Loop While rsayi <> 8

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 Do Loop 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

Do

‘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

Loop While rsayi <> Val(TextBox1.Text)

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

Do

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

tur += 1

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

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

End Sub

End Class

[/code]