Genel 6 Kasım 2014, 10:51

Visual Basic Do While Dersi

Do While Loop

a) mantıksal ifade
A mantıksal ifadesi tru oldugu sürece do while loop arasındaki satırlar tekrar tekrar işlenir. Döngü içerisinde a mantıksal ifadesini false yapacak
bir atama yapılması gerekir.Aksi halde döngü sonsuza dek tekrarlanır.
Buda programın kilitlenmesi veya hata ile kırılmasına neden olur.

Do Loop While

a.) mantıksal ifade
Döngü içi işlenir a mantıksal ifades ikontrol edilir.
A true olduğu sürece do ile loop while arasında satırlar tekrar tekrar işlenir.
Döngü içersinde a mantıksal ifadesini false yapacak bir atama yapılması gerekir.
Aksi halde döngü sonsuza dek tekrarlanır.
Buda programın kilitlenmesini veya hata ile kırılmasına neden olur.

Private Sub Command1_Click()
Dim Kontrol As Boolean, Sayac As Byte
Kontrol = True
Sayac = 0 ‘ Değişken başlangıç durumuna getiriliyor.
Dim a, i

Do ‘ Dışarda ki Döngü.
Do While Sayac < 100 ' İçteki döngü.
Sayac = Sayac + 1 ' Sayaç her döngüde 1 arttırılıyor.
i = Sayac
i = i + 1
a = a + i * i
Label1.Caption = a
If Sayac = 100 Then ' Eğer koşul doğru ise.
Kontrol = False ' Kontrol değişkeni False olarak atanıyor.
Exit Do ' Ve içteki döngüden çıkılıyor.
End If
Loop
Loop Until Kontrol = False ' Kontol False olana kadar
End Sub

Private Sub Command2_Click()
sayaç = 1
Do While sayaç <= 10
MsgBox sayaç
sayaç = sayaç + 1
Loop
Do
Yanit = InputBox("Parolayı Girin")
Loop While Yanit <> “XXX” ‘Eğer şifre olarak xxx dışında birşey girilirse sürekli hata versin, eğer xx girilirse form ekranına dönsün

End Sub

Private Sub Command3_Click()
sayaç = 1
Do Until sayaç > 10
MsgBox sayaç
sayaç = sayaç + 1
Loop
Do
Yanit = InputBox(“Parolayi Girin”)
Loop Until Yanit = “XXX” ‘ Eğer Şifre XXX e eşit ise form ekranına dönsün değilse, süreklı şifre istesin.

End Sub

1 den 10 a kadar olan sayıları topla.

Private Sub Command1_Click()
Dim sayi As Integer
Do While sayi < 10 ' sayi 10 kadar devam etsin ve 10 dan küçük olduğu durumlarda
sayi = sayi + 1 ' ana sayıya 1 ekle
sonuc = sonuc + sayi ' sonuc = sayi + sayi olarak
Label1.Caption = sonuc 'sonucuda burda yazdırıyoruz.
Loop

End Sub

Private Sub Command2_Click()
Do Until sayi >= 5
sayi = sayi + 1 ‘ ana sayıya 1 ekle
sonuc = sonuc + sayi ‘ sonuc = sayi + sayi olarak
Label1.Caption = sonuc ‘sonucuda burda yazdırıyoruz.
Loop
End Sub

———–

hocanın cevabı

i=1
Do while i<=10
print i;
i=i+1
Loop

i=1
do until i>10
print i;
i = i +1
loop

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)

Yazar Bilgileri

admin sedat.hackerr@gmail.com
Yazar, henüz hakkında herhangi bir bilgi paylaşımında bulunmamış.

Benzer İçerikler

Yorum Yap

*