Kronometre VB 6.0
[Code='VB.NET']Dim saat, dakika, saniye As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
saat = 0
dakika = 0
saniye = 0
Label1.Caption = saat & ” ” & dakika & ” ” & saniye
End Sub
Private Sub Timer1_Timer()
saniye = saniye + 1
If saniye = 60 Then
dakika = dakika + 1
saniye = 0
End If
If dakika = 60 Then
saat = saat + 1
dakika = 0
End If
If saat = 24 Then saat = 0
Label1.Caption = saat & ” ” & dakika & ” ” & saniye
End Sub[/Code]
Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.
bunu vs 2008 e göre de yazsak olurmu
ve yanında mümkünse bir de geri sayım sayacı
mesela 3 tane text box koyup
1. textbox sat
2.textbox dakika
textbox sayine
yazıp başlaya başladığımızda bu textbox değerlerine göre geri sayım yapsa.tabiki 0 a geldiğinde durucak veya yeniden başlayacak.
mesaj kısmı if liye girdiğinden oradada zorlanıyorum ama yaparım galiba o kadar ugrastırmam sizi.
verdiğim linki incele .
link : http://www.gorselprogramlama.com/kronometre-vbnet