Download Contoh Program Billing Warnet Dari Visual Basic

SALKOMSEL SAHABAT....Walau udah malam Ga jenu jenu ni Arndy Otak atik Blog dan VBnya
Ya Mumpung koneksi  internet lagi lancar... hehehh jadi Googling pun lancar.... Ia kali ini saya mencoba Membuat aplikasi Billing warnet sederhana .... seperti tampak di gambar berikut

Langkah Pertama Buat tampilan seperti di atas kemudian copy kan source di bawah ini...

Dim Mulai, Selesai, Lama As Variant

Private Sub cmdkel_Click()
Unload Me
End Sub

Private Sub cmdmul_Click()
Mulai = Now
Text2.Text = Format(Mulai, "hh:mm:ss")
End Sub

Private Sub cmdsel_Click()
Selesai = Now
Lama = Selesai - Mulai
Lm_Menit = (Hour(Lama) * 60) + (Minute(Lama))
Biaya = Lm_Menit * 10
Text3.Text = Format(Selesai, "hh:mm:ss")
Text4.Text = Lm_Menit
Text5.Text = "Rp. " & Biaya
End Sub

Private Sub Text1_Change()
End Sub


Jika anda masih bingung dapat anda download filenya di bawah ini.Semoga bermanfaat N jangan Lupa Tinggalkan Komentar ya...


Pasword Rar = suharndi.blogspot.com