SISTEM ANTRIAN by Achoel Dolie

Inilah dia hasil pertapaan, heheheeh :D. Sitem Antrian menggunakan database MySQL, dengan instalasi yang mudah .. tidak usah membuat ODBC pada server yang lumayan ngerepotin, itu sih menurut ane, hehehehe.. kenapa koq bisa?? *kaget, hak haka hak. Bisa dong, kan seperti yang dulu saya pernah bilang, dengan menggunakan MyVBQL. Dikembangkan dengan menggunakan bahasa pemrograman Visual Basic 6.0. Kita hanya mengatur hak aksesnya saja dalam MySQL. Dalam Sistem Antrian ini terdapat 3 Aplikasi. Yaitu, aplikasi untuk Client Operator, Client Utama dan Server.

A. Server, yaitu aplikasi server yang diinstal ke komputer yang digunakan sebagai server. Dimana dalam komputer itu juga terdapat databasenya. Aplikasi server terdapat 2 layar yaitu:

1. Layar Utama, dimana di layar ini terdapat keterangan atau petunjuk Nomor Antrian yang terakhir kali dilayani atau yang sedang dilayani. Dan pada Layar Utama ini juga terdapat petunjuk 3 Nomor antrian berikutnya (jika ada antrian yang menunggu)
2. Control Client, pada layar ini menunjukan Client mana saja yang sedang aktif. Dan kita dapat Mengontrol Client yaitu ,

· Exit Client, Untuk Mengeluarkan Aplikasi Client dari server

· Restart Client, Untuk me-restart komputer client

· Turn Off, Untuk mematikan atau Turn Off Komputer client

· Log Off, Untuk me-Log Off komputer client

B. Client Operator, yaitu aplikasi untuk operator yang akan melayani antrian, dimana maksimal jumlah Client Operator ini maksimal 10. Terdapat menu untuk mengatur koneksi ke aplikasi server dan ke database server.

C. Client Utama yaitu aplikasi yang akan digunakan oleh pengguna sistem antrian untuk mengambil nomor antrian. Terdapat menu untuk mengatur koneksi ke aplikasi server dan database server.

Berikut Screenshootnya... :D

Server Antrian (Layar Utama)

Server Antrian (Control Client)
Client Utama dan Client No. 4 sedang Online

Client Operator
Client No. 4 Sedang dijalankan

Client Utama
Untuk Mengambil No. Antrian

Baca Selengkapnya »»  

Membuat Aplikasi Server dan Client pada Visual Basic 6.0

Aplikasi Server

Untuk membuat aplikasi socket yang sederhana, tidak diperlukan langkah-langkah yang rumit. Kita akan mencoba membuat dua buah aplikasi, yang pertama adalah aplikasi server yang akan menerima data, sedangkan aplikasi kedua adalah aplikasi client yang mengirimkan data pada server. Baik aplikasi server dan aplikasi client mendefinisikan port yang sama sebagai jalur komunikasi.

Kita akan memulainya dengan aplikasi server, tugas aplikasi server cukup sederhana, yaitu hanya siap sedia menerima data yang masuk pada sebuah port. Control yang Anda perlukan adalah control winsock bernama Winsock1 dan sebuah textbox bernama Text1. Pada event Form_Load, tuliskan kode program di bawah ini:

———————————–

Private Sub Form_Load()
With Winsock1
.LocalPort = 1025
.Listen
End With
End Sub

———————————-

Kode program tersebut melakukan inisialisasi socket, socket memilih port 1025 pada komputer server dan menunggu data yang masuk melalui port tersebut dengan perintah Listen

Selanjutnya pada event Winsock1_ConnectionRequest, ketikkan kode program berikut:

———————————–

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

———————————–

Kode program di atas berfungsi untuk menerima request koneksi. Selanjutnya pada event Winsock1_DataArrival, ketikkan kode program berikut:

———————————–

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String

Winsock1.GetData strData
Text1.Text = Text1.Text & strData

End Sub

———————————–

Kode program di atas berfungsi untuk mengambil data yang diterima oleh socket dan menampilkannya pada Text1. Aplikasi server telah selesai!

Aplikasi Client
Seperti aplikasi server, Anda perlu menyiapkan control Winsock dan Text, ditambah sebuah control Command Button yang dapat Anda namakan cmdKirim yang berfungsi untuk mengirimkan data yang diketik pada Text1 ke aplikasi server

Pada event Form_Load, ketikkan kode program di bawah:

———————————–

Private Sub Form_Load()
With Winsock1
.RemoteHost = “127.0.0.1”
.RemotePort = 1025
.Connect
End With
End Sub

———————————–

Kode program di atas berfungsi untuk melakukan inisialisasi, tentukan IP tujuan/server/remote dengan 127.0.0.1 seperti pada contoh jika Anda mencoba aplikasi ini dengan menggunakan satu mesin komputer.

Jika Anda mencobanya dengan menggunakan dua komputer dalam sebuah jaringan, isikan dengan IP komputer yang berfungsi sebagai server.Selanjutnya pada cmdKirim, ketikkan kode program sebagai berikut:

———————————–

Private Sub cmdKirim_Click()
If Winsock1.State = sckConnected Then
Winsock1.SendData Text1.Text
End If
End Sub

———————————–

Kode program di atas akan mengirimkan pesan yang Anda ketik pada textbox Text1 pada aplikasi server.

Sumber : http://blankbrain.wordpress.com/2010/08/28/aplikasi-server-pada-visual-basic-6-0/

Baca Selengkapnya »»