Do While Döngüsü // Anlatım...

[Marcopolo78]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Evet arkadaşlar bu konuda size Do While döngüsünü anlatacağım
Hemen Başlayalım zaten basit bir konu
ilk önce bir değişken tanımlayalım

[COLOR=Blue]Dim x As integer[/COLOR]

Değişkenimize Değer atayalım

[COLOR=Blue]x = 10[/COLOR]

Şimdi ise Do While koduyla Tanımladığımız değişkeni döngüye sokalım

[COLOR=Blue]Do While x < 15 [COLOR=Green]'Burada Şartımızı yazıyoruz (x küçükse 15 ten)[/COLOR]
Msgbox(x) [COLOR=Green]'Değerimizi Mesaj box a yazdıralım[/COLOR]
x = x + 1  [COLOR=Green]'Bu kodu yazmassak sistem Sonsuz Bir döngüye girer[/COLOR]
Loop[/COLOR]

Tüm Kodların Bir Araya getirilmiş Hali

[COLOR=Blue]        Dim x As Integer
        x = 10
        Do While x < 15
            MsgBox(x)
            x = x + 1
        Loop[/COLOR]

Konumuz burda Bitmiştir iyi forumlar

Kendi Paylaşımım



​

 

[umit99]

Teşekkürler.