Kamis, 03 Desember 2009 - 06:02:41 WIB
Tutorial Membuat aplikasi Client server 2 arah dengan VB 6
Diposting oleh : Administrator
Kategori: VB
- Dibaca: 425 kali
Sekarang kami akan membahas Tutorial Membuat aplikasi Client server 2 arah dengan VB 6
setalah membahas Client server 1 arah dengan VB 6 pada artikel sebelumnya.
Server Side
1. Buatlah sebuah form dalam Visual Basic (VB) untuk sisi server, selanjutnya masukkan beberapa komponen sehingga tampilan menjadi seperti gambar dibawah, adapun komponen yang dibutuhkan dapat dilihat pada tabel dibawah gambar.
2. Selanjutnya ketikkan code dibawah ini kedalam komponen objek yang mengalami event/action pada tabel diatas, diantaranya objek Form, commandbutton dan Winsock.
Private Sub cmdSend_Click()
Dim s As String
s = Text2.Text
sckServer.SendData Text2.Text
List1.AddItem Text2.Text
Text2.Text = ""
Text2.SetFocus
End Sub
Private Sub Form_Load()
sckServer.Close
sckServer.LocalPort = 6666
sckServer.Listen
End Sub
Private Sub sckServer_ConnectionRequest(ByVal requestID As Long)
sckServer.Close
sckServer.Accept (requestID)
Text1.Text = sckServer.RemoteHostIP
End Sub
Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
Dim thedata As String
sckServer.GetData thedata
List1.AddItem thedata
End Sub
3. Simpan project yang anda buat pada folder tersendiri, beri nama prjServer untuk nama projectnya dan FrmServer untuk formnya.
Client Side
1. Buatlah sebuah form dalam Visual Basic (VB) untuk sisi client, selanjutnya masukkan beberapa komponen sehingga tampilan menjadi seperti gambar dibawah, adapun komponen yang dibutuhkan dapat dilihat pada tabel dibawah gambar.
2. Selanjutnya ketikkan code dibawah ini kedalam komponen objek yang mengalami event/action pada tabel diatas, diantaranya objek Form, commandbutton dan Winsock.
Private Sub cmdConnect_Click()
sckClient.Close
sckClient.RemoteHost = Text1.Text
sckClient.RemotePort = Text2.Text
sckClient.Connect
End Sub
Private Sub cmdSend_Click()
sckClient.SendData Text3.Text
List1.AddItem Text3.Text
Text3.Text = ""
Text3.SetFocus
End Sub
Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim data As String
sckClient.GetData data
List1.AddItem data
End Sub
3. Simpan project yang anda buat pada folder tersendiri, beri nama prjClient untuk nama projectnya dan FrmClient untuk formnya.
Bookmark & Share
