VİSUAL BASİC DÖNGÜLER

VİSUAL BASİC DÖNGÜLER

Bu gün ki yazımızda sizlere Visual Basic Döngülerden bahsedeceğiz.

DÖNGÜLER

Döngü bir karar verme yapısı içerir. Visual Basic başka bir yordam bir durum ya da koşulların bir dizi kadar birçok kez tekrar edilmesi bir prosedür yerine getirilir sağlar. Bu genellikle döngü denir. Tekrarlayan işleri daha kolay hale getirir, çünkü Döngü Visual Basic çok faydalı bir özelliktir. Visual Basic döngüler iki tür, Do ... için döngü ve vardır ....... Next döngüsü

Do Döngüleri

Aşağıda gösterildiği gibi Do Döngü deyimleri, üç farklı formları vardır:

a) Do While durumu Bir veya daha fazla VB tabloların Blok Döngü b) Do  Bir veya daha fazla VB tabloların Blok  Döngü sırasında durumu c) Do durumu kadar  Bir veya daha fazla VB tabloların Blok  Döngü d) Do  Bir veya daha fazla VB tabloların Blok Durumu kadar döngü

Döngüden Çıkma
Bazen, çünkü belirli bir durumun erken bir döngü çıkmak için çıkmak gerekir yerine getirilir. Çıkış mı olarak kullanmak için sözdizimi bilinmektedir. Bunu kullanım için Örnek 9.2 inceleyebilirsiniz.

Örnek 9.1

Yaparken sayaç <= 1000

num.Text = sayacı

counter = sayaç +1

Döngü

* Yukarıdaki örnek sayacı> 1.000 kadar ekleyerek devam edecektir.

Yukarıdaki örnek olarak yazılabilir

Yapmak

num.Text = sayacı 
counter = sayaç +1

Döngü sayacı> 1.000 kadar

Örnek 9.2

Toplamı Dim, n As Integer

Private Sub) (Form_Activate

List1.AddItem "n" ve vbTab ve "toplam"

Yapmak

n = n + 1 '

Toplam = Toplam + n

List1.AddItem n ve vbTab & Sum

N = 100 Then

Do çıkın

End If

Döngü

End Sub

Açıklama

Yukarıdaki örnekte, 1 +2 +3 +4 + ...... +100 toplamı hesaplamak. Tasarım aşamasında, size List1 adlı çıkış, görüntülemek için forma bir liste kutusu eklemek gerekir. Program ListBox doldurmak için AddItem yöntemi kullanır. Bu başlıkları n ve toplam arasında bir boşluk oluşturmak için vbTab işlevini kullanır nerede Açıklamada List1.AddItem "n" ve vbTab ve "toplam", ListBox başlıkları gösterecektir.

For Döngüsü

Biçimi: 

EndNumber aykırı = startNumber (Adım artış) for

Bir veya daha fazla VB ifadeleri

Sonraki

Örneğin 9.3a, 9.3b ve kullanım için 9.3 c bakınız.

Bazen kullanıcı tüm tekrarlanan süreç yürütülür önce döngüden çıkmak isteyebilirsiniz, kullanmak için komut for çıkın edilir. Bir süre .... Sonraki Döngü çıkmak için, döngü içinde ifadesi for Exit yerleştirebilirsiniz ve normal ise ..... Sonra ... deyimi ile birlikte kullanılır. Örneğini 9.3 d inceleyelim.

Örnek 9.3

Sayaç için = 1 ile 10  

display.Text = sayacı

Sonraki

Örnek 9.3 b

Counter = 1 -1000 adım 10  

counter = sayaç +1

Sonraki

Örnek 9.3 c

Karşı = 1000 ile adım 5 -5 için

karşı = karşı-10

Sonraki

* Dikkat edin artış negatif olabilir

Örnek 9.3 d

Private Sub) (Form_Activate

N = 1 ile 10

N> 6 ise o zaman

Için Exit

End If

Başka

Yazdır n

End If

End Sub

9.4 While .... Wend Döngüsü

Bir While yapısı .... Wend döngü Do Döngü çok benzer. bu şu biçimi alır:

Ise durumu

Tablolar

Wend

Yukarıdaki döngü koşulu sağlanmazsa ise, döngü devam edeceği anlamına gelir. Koşul zaman döngü sona erecek. , Örneğin 9.4 ve örneğin 9.5 ile aynı sonucu üretir nerede örneğini 9.6 listelenen program inceleyelim  

Örnek 9.6

Toplamı Dim, n As Integer

Private Sub) (Form_Activate

List1.AddItem "n" ve vbTab ve "toplam"

Da N <> 100

n = n + 1 '

Toplam = Toplam + n

List1.AddItem n ve vbTab & Sum

Wend

End Sub