Penghitung Mundur Dengan Visual Basic
Tutorial VB ini ditujukan untuk membuat sebuah timer pada VB. Bagi kalian yang membutuhkan baca saja hingga selesai
Cara kerjanya seperti penghitung waktu didalam handphone kita, yang dapat menghitung mundur sesuai kehendak kita.
Sebenernya cara ini ingin saya buat aplikasinya seperti billing diwarnet, tetapi sayangnya terlanjur males. hehehehehehe
Cara Membuat Hitung Mundur menggunakan VB
Okay langsung saja saya akan mengajarkan kepada kamu. Bahan yang digunakan:1. Timer (1 )
2. Label (2)
3. Text Box (1)
desain seperti diatas agar lebih memudahkan kamu dalam membuatnya, sebab saya tidak akan memberikan edisi downloadnya, karena sedang ada masalah jaringan.. ^,..,^ mohon dimaklumi yah
Masukan Code dibawah ini sebagai pembuka Source Code pada form kalian:
Option Explicit
Private m_StopTime As Date
Masukan code berikutnya pada commandbutton
Private Sub cmdGo_Click()
'disini saya menggunakan nama commandbutton dengan cmdgo, ubah terlebih dahulu yah
Dim fields() As String
Dim hours As Long
Dim minutes As Long
Dim seconds As Long
fields = Split(txtDuration.Text, ":")
hours = fields(0)
minutes = fields(1)
seconds = fields(2)
m_StopTime = Now
m_StopTime = DateAdd("h", hours, m_StopTime)
m_StopTime = DateAdd("n", minutes, m_StopTime)
m_StopTime = DateAdd("s", seconds, m_StopTime)
tmrWait.Enabled = True
End Sub
'disini saya menggunakan nama commandbutton dengan cmdgo, ubah terlebih dahulu yah
Dim fields() As String
Dim hours As Long
Dim minutes As Long
Dim seconds As Long
fields = Split(txtDuration.Text, ":")
hours = fields(0)
minutes = fields(1)
seconds = fields(2)
m_StopTime = Now
m_StopTime = DateAdd("h", hours, m_StopTime)
m_StopTime = DateAdd("n", minutes, m_StopTime)
m_StopTime = DateAdd("s", seconds, m_StopTime)
tmrWait.Enabled = True
End Sub
lalu berikutnya masukan code ini pada timer yang terdapat di form
Private Sub tmrWait_Timer()
Dim time_now As Date
Dim hours As Long
Dim minutes As Long
Dim seconds As Long
time_now = Now
If time_now >= m_StopTime Then
Me.WindowState = vbMaximized
tmrWait.Enabled = False
lblRemaining.Caption = "0:00:00"
Else
seconds = DateDiff("s", time_now, m_StopTime)
minutes = seconds \ 60
seconds = seconds - minutes * 60
hours = minutes \ 60
minutes = minutes - hours * 60
'disini saya buat label tersembunyi dimaksudkan agar ketika program running dapat 'terlihat hasilnya
lblRemaining.Caption = _
Format$(hours) & ":" & _
Format$(minutes, "00") & ":" & _
Format$(seconds, "00")
End If
End Sub
Cara yang simple jika kamu mengikutinya dari awal. Semoga bermanfaat ^,..,^
Program dibawah ini dibuat menggunakan Microsoft visual Basic
Kalau kalian suka dengan artikel ini, like dengan FB. Jika kalian masih kurang mengerti, silahkan bertanya dicomment postingan ini. Program ini dibuat dengan Visual Basic di www.tutorial-vb.com
