Contoh Program Billing Warnet Dengan Visual Basic
DOWNLOAD ->->->-> https://tlniurl.com/2tw4ea
Contoh Program Billing Warnet dengan Visual Basic 6.0
Billing warnet adalah sebuah aplikasi yang digunakan untuk menghitung biaya sewa komputer di warnet berdasarkan waktu pemakaian. Billing warnet biasanya terdiri dari dua bagian, yaitu server dan client. Server adalah komputer yang mengatur dan mengawasi semua komputer client di warnet. Client adalah komputer yang digunakan oleh pengguna warnet untuk berinternet atau bermain game.
Salah satu bahasa pemrograman yang bisa digunakan untuk membuat billing warnet adalah Visual Basic 6.0. Visual Basic 6.0 adalah sebuah bahasa pemrograman yang berorientasi objek dan mudah dipelajari. Visual Basic 6.0 juga memiliki banyak komponen dan fungsi yang bisa dimanfaatkan untuk membuat aplikasi billing warnet.
Berikut ini adalah contoh program billing warnet dengan visual basic 6.0 yang bisa anda coba dan pelajari:
Langkah-langkah Membuat Program Billing Warnet dengan Visual Basic 6.0
Buka aplikasi Visual Basic 6.0 dan pilih menu File - New Project - Standard EXE.
Tambahkan sebuah form baru dengan nama frmServer dan ubah propertinya sebagai berikut:
Caption: Server Billing Warnet
BorderStyle: 1 - Fixed Single
MaxButton: False
MinButton: False
Tambahkan sebuah kontrol Timer dengan nama tmrServer dan ubah propertinya sebagai berikut:
Enabled: True
Interval: 1000
Tambahkan sebuah kontrol Winsock dengan nama wskServer dan ubah propertinya sebagai berikut:
LocalPort: 1234 (atau port lain yang anda inginkan)
Tambahkan sebuah kontrol ListView dengan nama lvwClient dan ubah propertinya sebagai berikut:
View: 3 - Report
FullRowSelect: True
GridLines: True
ColumnHeaders: tambahkan empat kolom dengan caption No, Nama PC, Waktu Mulai, dan Waktu Berjalan.
Tambahkan sebuah kontrol Label dengan nama lblStatus dan ubah propertinya sebagai berikut:
Caption: Server siap...
Alignment: 2 - CenterSusun tampilan form frmServer seperti gambar berikut:Kemudian tambahkan kode program berikut di form frmServer:'Deklarasi variabel global
Dim n As Integer 'untuk nomor urut client
Dim waktu() As Date 'untuk menyimpan waktu mulai client
Private Sub Form_Load()
'Membuat server aktif
wskServer.Listen
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Membuat server tidak aktif
wskServer.Close
End Sub
Private Sub tmrServer_Timer()
Dim i As Integer
Dim selisih As Long
Dim jam As Long
Dim menit As Long
Dim detik As Long
'Menghitung waktu berjalan setiap client
For i = 1 To n
selisih = DateDiff(\"s\", waktu(i), Now) 'selisih dalam detik
jam = selisih \\ 3600 'menghitung jam
menit = (selisih Mod 3600) \\ 60 'menghitung menit
detik = (selisih Mod 3600) Mod 60 'menghitung detik
'Menampilkan waktu berjalan di aa16f39245