VB6 Kronometre yapımı

[yengec6]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Arkadaşlar


İhtiyacımız Olanlar
4 Adet Label(Labelleri 4 tenbaslayıp saga dogru 3 2 1 şeklinde Sıralayın)
1 Adet timer
3 Adet Command Buton(Başlat.Durdur.Sıfırla)

Bunları Yaptıktan sonra Kod bolumunu acın ne varsa silin direk kodları yapıştırın olacaktır.
Not: Sadece VB6 içindir

Dim a As Integer, b As Integer, c As Integer, d As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Label1.Caption = "00"
End Sub

Private Sub Form_Load()
Timer1.Enabled = False

Label1.Caption = "00"
Label2.Caption = "00"
Label3.Caption = "00"
Label4.Caption = "00"
Command1.Caption = "Başla"
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
a = a + 1
Label1.Caption = a
If a = 99 Then
b = b + 1
If b < 10 Then
Label2.Caption = "0" & b
Else
Label2.Caption = b
End If
a = 0
End If
If b = 60 Then
b = 0
c = c + 1
Label3.Caption = c
End If
If c = 60 Then
c = 0
d = d + 1
Label4.Caption = d
End If
End Sub

 

[langir]

Bunu Yapamayan Ölsün Ölsün Bunu Yapamayan Ölsüüüüüüüün

 

[yengec6]

Bunu Yapamayan Ölsün Ölsün Bunu Yapamayan Ölsüüüüüüüün

Ben yeni başlayanları anlattım

 

[langir]

La Öylesine Cix Bir Şarkı Söyledik Keyfimizi Kaçırmayalım

 

[dinamit42]

label1.text c# da burdaki conteis aradaki fark fazla yok .d