Program Yapmak | Programcılık Hakkında Her Şey | VİSUAL BASİC 6.0 | C, C++ ve C# Yazılım Dilleri | VB.NET Yazılım Dili

Geri sayim sayaci yapma

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
Sincan Laptop tamiratı ile alakalı içeriklerin bulunduğu web siteden bilgilere ulaşabilirsiniz. Sincan'da laptop tamiratını en iyi yapan yerleri sorgulayabilirsiniz. Cihan KOÇ
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=