Üye Girişi Yapınız     


    E-Posta
    

    Şifreniz
    



Şifremi Unuttum


Ana Sayfa Site Hakkında İletişim Ziyaretçi Defteri Döküman İndir Makale Ekle Haber Ekle

     Vb.Net ile döngüler ve timer kullanımı
     admin     28.03.2013     10:38:09

Bu yazıda sizlere döngülerin çalışmasını basit örneklerle gösteren bir uygulama paylaşacağım. Ayrıca Timer kullanımına ilişkin basit bir örneği de bu uygulamaya ekledim. Timer ile listbox’a her 1 saniyede bir(Timer’ın Interval özelliğini 1000 yapınız) "AYHAN" yazacaktır. Her butonun üzerinde hangi döngüye ait bir kod çalıştırdığı yazmaktadır. Uygulamaya ait form görüntüsü ve kodlar şu şekildedir.



Program Kodları : 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 1 To 20 Step 1
            If i = 10 Then Exit For
            ListBox1.Items.Add(i)
        Next
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ad() As String = {"Ayhan", "100", "Umut", "Erdi", "Okan"}
        Dim ekle As String
        For Each ekle In ad
            ListBox1.Items.Add(ekle)
        Next
    End Sub
  
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x As Integer
        x = 0
        Do While x <= 5
            ListBox1.Items.Add(x)
            x += 1 ’x=x+1
            If x = 2 Then Exit Do
        Loop
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim x As Integer
        x = 1
        Do
            ListBox1.Items.Add(x)
            x += 1 ’x=x+1
        Loop While x <= 5
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim x As Integer
        x = 0
        Do Until x > 5
            ListBox1.Items.Add(x)
            x += 1
        Loop
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim x As Integer
        x = 0
        Do
            ListBox1.Items.Add(x)
            x += 1
            If x = 3 Then Exit Do
        Loop Until x > 5
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim x As Integer
        x = 0
        While x < 10
            ListBox1.Items.Add(x)
            x += 1
            If x = 5 Then Exit While
        End While
    End Sub
 
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Timer1.Enabled = True
    End Sub
 
    Sub deneme()
        ListBox1.Items.Add("AYHAN")
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        deneme()
        If ListBox1.Items.Count > 6 Then
            Timer1.Enabled = False
            Exit Sub
        End If
    End Sub
 
    Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
        ListBox1.Items.Clear()
    End Sub

Facebook'ta Paylaş    
Diğer VB.Net İçerikleri       Tüm Yazılar        Ana Sayfa


  =>Soru Sorun veya Yorum Yazın...

İsim Giriniz :
  

  =>Yapılan Yorumlar...