Hallo Teman-teman !
Anda punya warnet ? ataupun anda suka menyewakan PC anda ke orang dengan bayaran Rp. / Jam tentunya jika begitu anda membutuhkan software Billing , Dan sebenarnya ada banyak sekali diluar sana yang menyediakan software Billing secara gratis , Tapi pernakah kamu berpikir bahwa kamu juga bisa membuat aplikasi tersebut dengan mudah.
Penasarankan cara buatnya ?
Pertama yang harus anda siapkan yaitu Software VB 6 (Visual Basic 6.0)
Setelah software VB 6 sudah terinstal dilaptop anda selanjutnya tinggal membuat aplikasinya
Langkah pertama untuk membuat aplikasi Billing
1. Buka aplikasi VB dan pilih Standard EXE akan muncul tampilan Form seperti berikut
2. Rancanglah Form tersebut seperti dibawah ini
*Terdapat 12 Label , 3 Command Button , dan 2 Timer
6 Label digunakan sebagai tulisan pada bagian kiri & 6 label lainnya digunakkan sebagai pengganti textbox yang ada pada bagian kanan
3. Cara mengubah label menjadi pengganti textbox
- Klik pada label tersebut dan pilih menu Properties lalu pilih menu Backstyle & Border Style
- Ubah Backstyle menjadi 1 – Opaque
- Ubah BorderStyle menjadi 1 – Fixed Single
- Captionnya Dikosongkan
4. Nah setelah selesai Atur interval timer
Timer 1 = 6000
Timer 2 = 1
5. Setelah selesai mengatur semuanya selanjutnya masukkan kode dibawah ini
Dim harga As Currency, bill As Currency
Dim intervalwaktu As Integer
Public jammulai As Date
Function DateDiffX(dStart As Date, dEnd As Date, Optional bDetailed As Boolean) As Variant
Dim TotalDays
Dim years, months, days, hours, minutes, seconds
If bDetailed Then
TotalDays = dEnd - dStart
hours = Hour(dEnd - dStart)
minutes = Minute(dEnd - dStart)
seconds = Second(dEnd - dStart)
If hours < 10 Then
hours = "0" & hours
ElseIf hours > 9 Then
hours = hours
End If
If minutes < 10 Then
minutes = "0" & minutes
ElseIf minutes > 9 Then
minutes = minutes
End If
If seconds < 10 Then
seconds = "0" & seconds
ElseIf seconds > 9 Then
seconds = seconds
End If
DateDiffX = hours & ":" & minutes & ":" & seconds
Exit Function
End If
End Function
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Timer2.Enabled = True
Label11.Caption = Format(Time, "hh:mm:ss")
jammulai = Format(Time, "hh:mm:ss")
Label10.Caption = Format(Time, "hh:mm:ss")
End Sub
Private Sub Command2_Click()
Label8.Caption = Format(Val(bill) + Val(Label9), "Rp ###,###,###,###") + ",-"
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Command3_Click()
pesan = MsgBox("Apakah Anda Yakin Ingin Keluar Dari Aplikasi Billing Ini?", vbInformation + vbYesNo, "Perhatian")
If pesan = vbYes Then End
End Sub
Private Sub Form_Load()
Label8.Caption = 0
Label7.Caption = 0
Label9.Caption = 0
Label10.Caption = "00:00:00"
Label11.Caption = "00:00:00"
Label12.Caption = "00:00:00"
harga = 5
intervalwaktu = 6000
Timer1.Interval = intervalwaktu
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
Label11.Caption = Format(Time, "hh:mm:ss")
Label12.Caption = DateDiffX(jammulai, Format(Time, "hh:mm:ss"), True)
End Sub
Private Sub Timer1_Timer()
Label11.Caption = Format(Time, "hh:mm:ss")
Timer1.Tag = bill + harga
bill = Timer1.Tag
Label7.Caption = Format(bill, "Rp ###,###,###,###") + ",-"
End Sub
* Cara memasukkannya tinggal double klikpada form tersebut
Selesai sekarang tinggal menekan tombol F5 di keyboard anda dan hasilnya akan seperti dibawah ini
Nah untuk mendownload aplikasi Billing buatan saya silahkan Download Dibawah ini
Untuk yang belum mengerti silahkan bertanya dikolom komentar atau bisa menghubungi kami melalui ContactUs , Sekian informasi dari saya semoga bermanfaat dan berguna buat anda Sampai jumpa di postingan selanjutnya…
Comments