Berikut bentuk form yang sudah dibuat
Dan berikut scriptnya
Dim awal As Date
Dim akhir As Date
Private Sub Cmul_Click()
awal = Time
Timer1.Enabled = True
Timer1.Interval = 1
Cmul.Enabled = False
Csel.Enabled = True
Csel.SetFocus
End Sub
Private Sub Csel_Click()
Timer1.Enabled = False
Cmul.Enabled = True
Csel.Enabled = False
Cmul.SetFocus
End Sub
Private Sub Form_Activate()
Cmul.SetFocus
End Sub
Private Sub Timer1_Timer()
Dim total As Date
Dim bayar As Integer
akhir = Time
total = akhir - awal
bayar = Round(1000000 * total)
Text1.Text = total
Text2.Text = Format(bayar, "Rp #,#")
End Sub
Mudah Sekali bukan?? Silakan kalian coba dan kembangkan sendiri dari contoh yang sudah ada.
Bagi yang tidak mau ambil pusing silakan download programnya disini
No comments:
Post a Comment