Program billing sederhana

Dim Harga As Integer, Bill As Integer
Dim IntervalWaktu As Integer



Private Sub Command1_Click()

Label6 = ": " & Format(Time, "hh:mm:ss")
JamMulai = Format(Time, "hh:mm:ss")
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Timer2.Enabled = True


End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
Timer2.Enabled = False

End Sub


Private Sub Command3_Click()
Unload Me
End Sub



Private Sub Form_Load()

Harga = 5
IntervalWaktu = 2000    'dalam milidetik
Timer1.Interval = IntervalWaktu
End Sub

Private Sub Timer1_Timer()
Timer1.Tag = Bill + Harga
Bill = Timer1.Tag
Label1.Caption = ": Rp. " & Bill & ",-"

End Sub

Private Sub Timer2_Timer()
Label7 = ": " & Format(Time, "hh:mm:ss")

End Sub

 slamet mencoba apabila ada kulehan atw ada msalah coment dsni aj,,ok febryrisdianto27@yahoo.com