Kamis, 03 Desember 2009 - 05:49:41 WIB Tutorial Membuat aplikasi Client server 1 arah dengan VB 6 Diposting oleh : Administrator
Kategori: VB
- Dibaca: 344 kali
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.
Komponen Property
2. Selanjutnya ketikkan code dibawah ini kedalam komponen objek yang mengalami event/action pada tabel diatas, diantaranya objek Form, dan Winsock.
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
Text2.Text = 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.
Komponen Property
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
End Sub
3. Simpan project yang anda buat pada folder tersendiri, beri nama prjClient untuk nama projectnya dan FrmClient untuk formnya.
Bookmark & Share
