DISUSUN OLEH : Nama
: Friska Rosalina
NIM
: 061130500419
2013
PROGRAM BILLING WARNET MICROSOFT VISUAL BASIC Program billing merupakan sistem yang membantu para usahawan untuk mengatur dan mencatat segala transaksi yang terjadi. Contohnya bagi pengusaha warung internet, billing sistem digunakan untuk memonitor penggunaan dan pemasukan warnetnya. Untuk itu pembuatan program billing warnet ini bisa dibuat melalui Langkah – langkah Pembuatan Program Billing Warnet . 1. Buka Aplikasi Visual Basic dengan Mode StandarEXE
Sebelum sampai pada program billing warnet, kita terlebih dahulu membuat sebuah perintah ataupun pemberitahuan untuk memasuki program tersebut. Langkah - langkahnya yaitu: 2. Didalam form yang kosong tambahkan beberapa kontrol sehingga akan tampak sebagai berikut :
3. Aturlah properties dari setiap control yang baru ditambahkan tersebut sama seperti tabel dibawah ini : Nama Control Form
Properties
Nilai Pengaturan
Caption
Selamat Datang
StartUp Position
2-Center Screen Selamat Datang di Education Warnet
Label1
Caption
Command1
Caption
Login
Timer1
Interval
300
Politeknik Negeri Sriwijaya
4. Setelah pengaturan diatas, tampilan form akan tampak seperti gambar di bawah ini.
5. Untuk membuat teks berjalan pada teks “Selamat Datang di Education Warnet Politeknik Negeri Sriwijaya pada program diatas, masukkan source code pada formnya. 1. Klik dua kali pada form1, lalu masukkan kode. Private Sub Form_Activate() ket = " " & Label1.Caption End Sub 2. Klik dua kali pada Timer1, lalu masukkan kode. Private Sub Timer1_Timer()
ket = Right(ket, Len(ket) - 10) & Left(ket, 90) Label1.Caption = ket End Sub
6. Pada command login, kita akan membuat kotak Message Box dan Input Box yang isinya nanti akan menanyakan apakah ingin memulai atau tidak. Klik dua kali pada control command LOGIN, lalu masukkan kodenya : Dim ket As String Private Sub Command1_Click() Form1.Hide p = MsgBox("Apakah Anda ingin memulai?", vbYesNo + vbQuestion, "Informasi") If
p = vbYes Then
1
pass = InputBox("Masukkan Password ", "Password")
If pass = "ilmu" Then GoTo 10 Else MsgBox " Maaf Password Anda Salah", vbCritical GoTo 1 10 End If Form2.Show Form1.Hide End If End Sub
7. Akan tampil gambar seperti dibawah ini.
8. Pada saat kita mengklik command LOGIN. Akan muncul Message Box, jika kita memilih YES maka akan tampil Input Box yang meminta kita untuk memasukkan Password, masukkan passwordnya yaitu “ilmu” maka form 2 yang akan tampil ( Form2.Show) dan form1 nya akan tersembunyi (form1.Hide). Tetapi jika kita salah memasukkan passwordnya maka akan muncul MessageBox “ Maaf Password Anda Salah”.
9. Setelah kita memilih untuk melanjutkan maka akan tampil Form2. Sebelumnya kita siapkan terlebih dahulu form2 nya. Untuk membuka form 2. 1. Klik Add Form 2. Akan tampil layar seperti dibawah .
3. Pilih Open 4. Didalam form2 yang kosong tambahkan beberapa kontrol sehingga akan tampak sebagai berikut :
Nama Control
Properties
Nilai Pengaturan
Caption
Billing Warnet Education
Backcolor
&H0000FF00&
Caption
User Name
Backcolor
&H008080FF&
Caption
Jam Mulai
Backcolor
&H008080FF&
Caption
Jam Selesai
Backcolor
&H008080FF&
Caption
Lama Pemakaian
Backcolor
&H008080FF&
Caption
Biaya
Backcolor
&H008080FF&
Text
Dihapus
Backcolor
&H00FFFF80&
Text
Dihapus
Backcolor
&H00FFFF80&
Text
Dihapus
Backcolor
&H00FFFF80&
Text
Dihapus
Backcolor
&H00FFFF80&
Text
Dihapus
Backcolor
&H00FFFF80&
Command1
Caption
Mulai
Command2
Caption
Selesai
Command3
Caption
Keluar
Caption
Program Billing
Backcolor
&H00000040&
Label 1
Label 2
Label 3
Label 4
Label 5
Label 6
Text1
Text2
Text3
Text4
Text5
Form2
10.
Setelah dilakukan pengaturan pada properties diatas, masukkan code pada Command Mulai. Dim mulai, Selesai, Lama As Variant Form2.hide Private Sub Command1_Click() 1
pass = InputBox("Masukkan Nama Anda", "Nama Pengguna")
Text1.Text = pass mulai = Now Text2.Text = Format(mulai, "HH:MM:SS") Form3.Show Form2.Hide End Sub
11.
Pada saat kita memilih untuk masuk/ mengklik command Masuk akan muncul Input Box, yang isinya menanyakan nama penggunanya.
12.
Setelah kita memasukkan nama kita sebagai pengguna, pilih OK dan prosesnya pun akan beralih ke Form3 sebagai tampilan windowsnya. Pada form 3, kita siapkan form dengan pengaturan Propertiesnya sebagai berikut:
Nama Control
Properties
Nilai Pengaturan
Form3
Caption
Windows
Picture
Pilih gambar yang ada di dalam Komputer.
Stretch
True
Caption
Keluar
Image
Command1
13.
Tampilan form3 nya akan tampak seperti gambar dibawah ini.
14. Apabila kita memilih untuk menyelesaikan penggunaan internetnya pada windows form3 tadi, klik command Keluar maka prosesnya akan kembali ke Form 2 yaitu program billing warnetnya, yang berisikan waktu mulai, waktu pemakaian, lama pemakaian dan biaya pemakaiannya. Itu sebabnya, pada command Keluar kita masukan code sebagai berikut. Private Sub Command1_Click() Form2.Show Form3.Hide End Sub
15. Setelah kita memilih Command Keluar, akan tampil kembali Form2nya.
16.
Untuk mengakhiri penggunaannya, kita Pilih Selesai dan Biaya pemakaiannya pun akan terhitung sesuai dengan lama pemakaiannya. Pada command Selesai, kita klik dua kali dan masukkan codenya Private Sub Command2_Click() Selesai = Now Lama = Selesai - mulai lm_menit = (Hour(Lama) * 60) + (Minute(Lama)) Biaya = lm_menit * 100 Text3.Text = Format(Selesai, "HH:MM:SS") Text4.Text = lm_menit & " Menit " Text5.Text = "Rp " & Biaya End Sub Lama pemakaian dihitung dari waktu mulai sampai waktu selesai pemakaian dan biayanya dihitung setelah lama pemakaianya memasuki menit pertama yaitu sebesar Rp 100.
17.
Untuk mengakhiri program billing tersebut, Klik dua kali pada command Keluar, dan masukkan codenya. Private Sub Command3_Click() Unload Me End Sub
LISTING PROGRAM PEMBUATAN BILLING WARNET
Listing Program pada Form 1 Dim ket As String Private Sub Command1_Click() Form1.Hide p = MsgBox("Apakah Anda ingin memulai?", vbYesNo + vbQuestion, "Informasi") If p = vbYes Then 1
pass = InputBox("Masukkan Password", "Password")
If pass = "ilmu" Then GoTo 10 Else MsgBox " Maaf Password Anda Salah", vbCritical GoTo 1 10 End If Form2.Show Form1.Hide End If End Sub Private Sub Form_Activate() ket = " " & Label1.Caption End Sub Private Sub Timer1_Timer() ket = Right(ket, Len(ket) - 10) & Left(ket, 90) Label1.Caption = ket End Sub
Listing Program pada Form 2 Dim mulai, Selesai, Lama As Variant Private Sub Command1_Click() Form2.Hide 1 pass = InputBox("Masukkan Nama Anda", "Nama Pengguna") Text1.Text = pass mulai = Now Text2.Text = Format(mulai, "HH:MM:SS") Form3.Show Form2.Hide End Sub Private Sub Command2_Click() Selesai = Now Lama = Selesai - mulai lm_menit = (Hour(Lama) * 60) + (Minute(Lama)) Biaya = lm_menit * 100 Text3.Text = Format(Selesai, "HH:MM:SS") Text4.Text = lm_menit & " Menit " Text5.Text = "Rp " & Biaya End Sub Private Sub Command3_Click() Unload Me End Sub Listing program pada Form 3
Private Sub Command1_Click() Form2.Show Form3.Hide End Sub
