VB Do-while döngüsü

[mayhemious]

Bir kosul dogru oldugu sürece bildirinin devam etmesini saglar. Örnegin, formumuza bir buton ekleyelim ve su kodu yapıstıralım

Kod: Tümünü seç

Private Sub Command1_Click()
Dim ad As String
Dim boyut, tekrar As Integer
boyut = 12
tekrar = 0
ad = InputBox("Adınızı Yazın, Çıkmak için SORDUM yazınız")
Do While ad <> "SORDUM"
Form1.FontSize = boyut
Print ad
boyut = boyut + 1
If boyut = 20 Then
Exit Do
End If
ad = InputBox("Adınızı Yazın, Çıkmak için SORDUM yazınız")
Loop

End Sub

Inputbox'a SORDUM kelimesi girilmedigi zaman inputbox a yazılan kelime forma yazılıyor. her yanlıs yazımda font 1 artıyor font 20 olunca program kapanıyor.

ek bilgi: sifre islemlerinde de kullanılabilir. dbase e kaydedilen sifre dogru girilmedigi sürece formun islme yapması engellenir. onun için

Do While ad <> "SORDUM" olan satır

Do While ad <> Data1.Recordset.ad seklinde degistirilir