Şimdi Ara

vbde timer ile kronometre nasıl yapılır??

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
6
Cevap
0
Favori
774
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar çok açık başlıkta dediğim gibi timer kullanarak nasıl kronometre yapılır???



  • Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If Label3.Text = "59" Then
    If Label4.Text < 9 Then
    Label4.Text = "0" & Label4.Text + 1
    Else
    Label4.Text += 1
    End If
    Label3.Text = -1
    End If
    If Label4.Text = "59" Then
    Label5.Text += 1
    Label4.Text = -1
    End If
    If Label3.Text < 9 Then
    Label3.Text = "0" & Label3.Text + 1
    Else
    Label3.Text += 1
    End If
    End Sub

    bu benim yazdığım bi kod ama ölesine yazmıştım daha kısasını bulabilirsin, formda gösterilmesi label5-label4-label3 şeklindeydi vb.net 2005 için geçerlidir bu kod intervalı düşürerek milisaniyede yapabilirsin

    edit:fazladan başka kodlarıda eklemişim



    < Bu mesaj bu kişi tarafından değiştirildi poweruser0 -- 9 Şubat 2007; 3:38:24 >




  • Private Sub Command1_Click()
    Timer1.Enabled = True
    Command2.Enabled = True
    Command1.Enabled = False
    End Sub

    Private Sub Command2_Click()
    Timer1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = True
    End Sub

    Private Sub Command3_Click()
    Timer1.Enabled = True
    Command3.Enabled = False
    Command2.Enabled = True
    End Sub


    Private Sub Timer1_Timer()
    Label1 = 1 + Label1
    If Label1 = 10 Then
    Label1 = 0
    Label2 = Label2 + 1
    End If
    If Label2 = 60 Then
    Label2 = 0
    Label3 = Label3 + 1
    End If
    End Sub

    zamanında yapmıştım ama sıfırlamayı yapmayı unutmuşum artık onuda sen hallet
  • teşekkürler arkadaşlar yardımlarınız için
  • önemli değil her zaman
  • Yapay Zeka’dan İlgili Konular
    Fonksiyonlar nasıl halledilir?
    5 yıl önce açıldı
    Daha Fazla Göster
    
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.