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
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