Geri sayım sayacı yapma

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bu dersimizde istediğiniz saat ve istediğiniz dakikadan başlatabileceğiniz bir geri sayım sayacı yapalım.

İlk önce forma 3 textbox, 1 command button, 1 timer ekledikten sonra aşağıdaki kodları giriyoruz:

Private Sub Command1_Click()

If Timer1.Enabled = True Then
    Timer1.Enabled = False
    Command1.Caption = "BAŞLA"
Else
    If txsaat = "" Then txsaat = "00"
    If txdakika = "" Then txdakika = "00"
    If Len(txsaat) = 1 Then txsaat = "0" & txsaat
    If Len(txdakika) = 1 Then txdakika = "0" & txdakika
    If Len(txsaniye) = 1 Then txsaniye = "0" & txsaniye
    
    Timer1.Enabled = True
    Command1.Caption = "DURDUR"
End If


End Sub


Private Sub Timer1_Timer()

If txsaniye > 0 Then
    txsaniye = txsaniye - 1
    If Len(txsaniye) = 1 Then txsaniye = "0" & txsaniye
Else
    txsaniye = 59
    If txdakika > 0 Then
        txdakika = txdakika - 1
        If Len(txdakika) = 1 Then txdakika = "0" & txdakika
    Else
        txdakika = 59
        If txsaat > 0 Then
            txsaat = txsaat - 1
            If Len(txsaat) = 1 Then txsaat = "0" & txsaat
        Else
            txsaat = "00": txsaniye = "00": txdakika = "00"
            MsgBox "Bitti"
            Timer1.Enabled = False
        End If
    End If
    
End If

End Sub

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu​

 

[HanDe*]

TeşekkürLer

 

[Karcemackers]

Paylasım icin tesekkurler.