Program Simulasi Wartel

Dim awal As Date
Dim akhir As Date
Dim tanggal, jam, kiri As Integer


Private Sub Command1_Click()
awal = Time
Timer1.Enabled = True
Timer1.Interval = 1
Command1.Enabled = False
Command2.Enabled = True
Command2.SetFocus

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command1.SetFocus
InputBox "Terimakasih telah berkomunikasi"
Adodc1.Recordset.AddNew
Adodc1.Recordset!no_telepon = Text1.Text
Adodc1.Recordset.Update
Text1 = ""
Text1.SetFocus
Adodc2.Recordset.AddNew
Adodc2.Recordset!waktu_pemakaian = Text2.Text
Adodc2.Recordset.Update
Text2 = ""
Text2.SetFocus
Adodc3.Recordset.AddNew
Adodc3.Recordset!biaya_pemakaian = Text3.Text
Adodc3.Recordset.Update
Text3 = ""
Text3.SetFocus

End Sub

Private Sub Command3_Click()
Print
Label24.Caption = DataGrid1
Print
Label25.Caption = DataGrid2
Print
Label26.Caption = DataGrid3


End Sub

Private Sub Form_Activate()
Command2.SetFocus

End Sub







Private Sub Timer1_Timer()
Dim total As Date
Dim bayar As Integer
akhir = Time
total = akhir - awal
bayar = Round(1000000 * total)
Text2.Text = total
Text3.Text = Format(bayar, "Rp #,#")

akhir = Time

End Sub

Private Sub Timer2_Timer()
jam = Format(Time, "hh:mm:ss")
tanggal = Format(Date, "dd-mmm-yyyy")
Label12.Caption = jam
Label15.Caption = tanggal

End Sub
nie contoh program yg udh jdi,,klo mw donwload silakanhttp://www.filefactory.com/file/cc68dcb/n/software_wartel.rar
dan buat lah database.a yh!!!!
sekian ilmu yg saya berikan apabila ad kesalah mohon mav,,,
silakan d coba yh,,, ^_^