aftinte tobija esperanto

[Jeremias Resendez]

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 - Center

Susun 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 51082c0ec5