- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
İ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
Kod:
Dim a As Integer, b As Integer, c As Integer, d As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Label1.Caption = "00"End SubPrivate Sub Form_Load()Timer1.Enabled = FalseLabel1.Caption = "00"Label2.Caption = "00"Label3.Caption = "00"Label4.Caption = "00"Command1.Caption = "Başla"Timer1.Interval = 1End SubPrivate Sub Timer1_Timer()a = a + 1Label1.Caption = aIf a = 99 Thenb = b + 1If b < 10 ThenLabel2.Caption = "0" & bElseLabel2.Caption = bEnd Ifa = 0End IfIf b = 60 Thenb = 0c = c + 1Label3.Caption = cEnd IfIf c = 60 Thenc = 0d = d + 1Label4.Caption = dEnd IfEnd Sub
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
Kod:
Dim a As Integer, b As Integer, c As Integer, d As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Label1.Caption = "00"End SubPrivate Sub Form_Load()Timer1.Enabled = FalseLabel1.Caption = "00"Label2.Caption = "00"Label3.Caption = "00"Label4.Caption = "00"Command1.Caption = "Başla"Timer1.Interval = 1End SubPrivate Sub Timer1_Timer()a = a + 1Label1.Caption = aIf a = 99 Thenb = b + 1If b < 10 ThenLabel2.Caption = "0" & bElseLabel2.Caption = bEnd Ifa = 0End IfIf b = 60 Thenb = 0c = c + 1Label3.Caption = cEnd IfIf c = 60 Thenc = 0d = d + 1Label4.Caption = dEnd IfEnd Sub