Iseng-iseng mbuat game Ping-Pong yang bisa di mainkan dua orang melalui jaringan dengan LAN. Game ini dibuat menggunakan VB6.0. Tampilannya sederhana dengan komponen-komponen VB yang sudah tersedia. Untuk koneksi jaringannya menggunakan component Microsoft Winsock control 6.0 (Winsock), dimana Winsock berfungsi mengirim dan menerima data antar server client dengan IP dan port yang sudah ditentukan. Permainan ini fungsinya seperti aplikasi chatting, dimana server mengirim dan menerima kiriman data dari client. Di posisi client yang menerima kiriman data dari server memproses data tersebut yang datanya antara lain data posisi bola, data posisi pemain, dan data nilai. Aplikasi ini sederhana cuma 50kb.
Perintah koneksi Winsock untuk Server:
Winsock1.LocalPort = 1234 '>Port yang di ijinkan koneksi ke server
Winsock1.Listen '>menunggu koneksi
Perintah koneksi Winsock untuk Client:
Winsock1.RemoteHost = 127.0.0.1 '>alamat IP server
Winsock1.RemotePort = 1234 '>Port yang di ijinkan koneksi ke server
Winsock1.Connect '>lakukan koneksi
Untuk mengirim data dengan Winsock menggunakan perintah:
Winsock1.SendData ("Data") '>Data yang dikirim bisa berbagai type
DoEvents '>Bisa di akhiri dengan perintah DoEvents
Untuk menangkap data yang dikirim dengan Winsock, data di tangkap di private sub bawaan Winsock:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData data, vbString '>vbString tergantung data yang dikirim
End Sub
Source code dan aplikasi nya dapat di
download disini(Dropbox)
