Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Uygulama No: 19 – İç İçe Döngü<br />
VB.Net Örnek Uygulamalar<br />
2 Kasım 2011<br />
Açıklama : 000 ile 999 arasındaki sayılar iç içe düzenlenmiş üç for-next döngü yapısı<br />
kullanılarak oluşturuluyor. Kod içersinde yer alan<br />
“System.Threading.Thread.Sleep(10)” ifadesi, her adımda bekleme<br />
işlevini gerçekleştiriyor. Dolayısıyla sayaçların değişimi gözlenebiliyor.<br />
Ekran Görüntüsü<br />
Açıklamalı Kodlar<br />
Public Class Form1<br />
Dim sayi As Integer<br />
Dim k As Long<br />
Private Sub btnbaslat_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles btnbaslat.Click<br />
For sayac1 = 0 To 9<br />
For sayac2 = 0 To 9<br />
For sayac3 = 0 To 9<br />
lstsayi.Items.Add(sayac1.ToString + sayac2.ToString +<br />
sayac3.ToString)<br />
txtsayi3.Text = sayac3<br />
txtsayi2.Text = sayac2<br />
txtsayi1.Text = sayac1<br />
txtsayi3.Refresh()<br />
txtsayi2.Refresh()<br />
txtsayi1.Refresh()<br />
System.Threading.Thread.Sleep(10) ‘Her adımda 10 ms<br />
bekle.<br />
Next sayac3<br />
Next sayac2<br />
Next sayac1<br />
End Sub<br />
End Class<br />
Tolga GÜYER Sayfa 30