Tutorial Program Aplikasi Billing dengan VB 6.0

Pada post kali ini, Bongbe akan memberikan tutorial untuk membuat program aplikasi Billing dengan VB 6.0.
Let's get started~

1st Step : Buat Form, dan beri nama pada setiap component seperti gambar dibawah ini

Keterangan Gambar :

timer 1 merupakan component timer
satu, satustengah dan dua merupakan option button
cmdmasuk, cmdakhir dan cmdreset merupakan commandbutton
selain component dengan keterangan diatas, terdapat juga additional label yang bisa anda costumize sendiri.

 2nd Step : Setelah selesai dengan tampilan form beserta component-component nya, kita dapat mulai memasukkan kode programnya.

Kode Program 

Dim lembar1 As Integer 'ini merupakan deklarasi dari variabel lembar
Private Sub cmdakhir_Click()
tkeluar.Text = Time 'fungsi Time disini, berfungsi untuk mencatat waktu saat cmdakhir diclick
tdurasi.Text = CDate(CDate(tkeluar.Text) - CDate(tmasuk.Text))
dtk = (Hour(tdurasi)) * 3600 + Minute(tdurasi) * 60 + Second(tdurasi) 'fungsi Cdate adalah untuk mengkonversikan TimeValue
biaya = dtk * 15
tbiaya.Text = biaya
End Sub
Private Sub cmdmasuk_Click()
tmasuk.Text = Time 'fungsi Time disini, berfungsi untuk mencatat waktu saat cmdmasuk diclick
End Sub

Private Sub cmdreset_Click()
'cmdreset akan mengosongkan semua value yang terdapat pada semua component
tmasuk.Text = Empty
tkeluar.Text = Empty
tdurasi.Text = Empty
tbiaya.Text = Empty
satu.Value = False
satustengah.Value = False
dua.Value = False
tlembar.Text = Empty
tharga.Text = Empty
ttotal.Text = Empty
tmasuk.SetFocus
End Sub

Private Sub dua_Click()
If dua.Value Then
lembar1 = 250
End If
End Sub

Private Sub satu_Click()
If satu.Value Then
lembar1 = 500
End If
End Sub

Private Sub satustengah_Click()
If satustengah.Value Then
lembar1 = 350
End If
End Sub

Private Sub Timer1_Timer()
Label8.Caption = Format(Now, " DDDD, d mmmm yyyy") 'format time untuk menampilkan tanggal, bulan dan tahun
Label9.Caption = Format(Now, "hh:mm:ss") 'format time untuk menampilkan jam
End Sub

Private Sub tlembar_KeyDown(KeyCode As Integer, Shift As Integer)
tharga.Text = lembar1 * Val(tlembar.Text) 'variabel lembar1 yang telah dideklarasikan sbg var. global
ttotal.Text = Val(tbiaya.Text) + Val(tharga.Text)
End Sub


Keterangan dan Skenario Kode Program
-  Saat cmdakhir diclick, jam keluar, durasi, dan biaya sewa akan otomatis dihitung dan ditampilkan pada textboxnya masing-masing
- Jika OptionButton Satu dipilih maka harga print/lembar nya adalah 500
- Jika OptionButton SatuStengah dipilih maka harga print/lembar nya adalah 350
- Jika OptionButton Satu dipilih maka harga print/lembar nya adalah 250
- Saat jumlah lembar diinput dan ditekan enter maka harga print dan total akan dihitung.

Are you done yet?

Seperti inilah hasil akhir dari program billing dengan vb 6.0 versi Bongbe~

 

 Selamat Mencoba!