Flaming Arrow Glitter Purple

Rabu, 04 September 2013

Visual Basic ( Countdown Timer of Hours, Minutes and Seconds using Timer )

 

Salam Sahabat Blogger...
Kata Pepatah " Waktu Adalah Uang " ( Time Is Money )
Kali ini saya akan memberikan postingan mengenai programming waktu masih tetap menggunakan Visual Basic,Adapun konsep sederhana program ini adalah digital clock yang terhubung dengan waktu di Notebook atau PC user...

CODE

Option Explicit

Private AlarmTime As Date

Private Sub Form_Load()
    AlarmTime = DateAdd("h", 2, Now)
End Sub

Private Sub Timer1_Timer()
Dim txt As String

    txt = Format$(AlarmTime - Now, "h:mm:ss")
    Label1.Caption = txt
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Tidak ada komentar:

Posting Komentar

facebook komentar