9 Jan 2012

Billing Wartel

Nah kali ini penulis membuat contoh program billing wartel yang berfungsi menghitung jumlah uang yang harus dikeluarkan berdasarkan waktu yang digunakan untuk telpon. Untuk Penggunaan timer dengan biaya pemakaian bisa kalian atur dengan ide kalian sendiri.
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

Garudayasa

Garudayasa