Membuat Aplikasi chating sederhana dg VB

Setelah beberapa hari bahkan berbulan-bulan g posting sekarang gua pengen posting lg nie tentang membuat animasi chating sederhana ya mungkinsudah banyak yang bisa tapi juga banyak yang belum bisa n semoga ja artikel yang gua buat nie bisa membantu teman-teman yang membutuhkan...

ya sekarang kita mulai saja membuatnya :

sekarang untuk servernya dulu kita buat desain form yang terdiri dari tiga textbox dan 1 winsock kenapa winsock karena winsock adalah sbuah komponen yang di buat untuk jaringan..

ya seperti gambar dibawah ini :

setelah buat form seperti diatas kita lanjutkan dengan menulis scriptnya:

Private Sub Form_Activate()

Me.Text1.Text = Winsock1.LocalIP 'untuk menampilkan ip sendiri

End Sub

Private Sub Form_Load()

Winsock1.LocalPort = 5050 'Port bebas tetapi harus sama dg port client

Winsock1.Listen ' untuk menunggu koneksi dari client

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Winsock1.SendData Text3 'berfungsi untuk mengirim pesan yang ada di text3

End If

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then Winsock1.Close 'jika winsock masih dalam keadaan terkoneksi maka akan di putus untuk merefresh koneksi

Winsock1.Accept requestID 'untuk menerima permintaan koneksi

MsgBox "Client Terkoneksi", vbInformation

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim data As String

Winsock1.GetData data 'untuk menerima data yang dikirim oleh Client

Me.Text2.Text = data

End Sub

nah perintah-perintah diatas baru servernya ja loch...

cekarang kita buat clientnya...

desain form yang terdiri dari dua textboxt dan tetep pake winsock...

yach kira2 seperti gambar dibawah ini :

nah setelah buat desain form selesai kita lanjutkan dengan menulis scriptnya :

Private Sub Form_Load()

Dim ip As String

ip = InputBox("Masukkan IP Server")

Winsock1.Connect ip, 5050

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Winsock1.SendData Text2

End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim data As String

Winsock1.GetData data

Me.Text1.Text = data

End Sub

sekarang tinggal jalankan dech...

NB : Untuk File jadinya bisa download disini

dah dulu y...

semoga bermanfaat...