Academy 48

Membuat chating sederhana pada vb 6 ya mungkin sudah banyak sobat programmer lihat mungkin untuk yang tutorial ini sedikit berbeda dari penyajian nya. Saya menambahkan kelengkapan dalam membuat nya. Ya sekarang kita mulai saja
membuatnya :


sekarang untuk server-nya dulu kita buat desain form yang terdiri dari tiga textbox dan 1 winsock kenapa winsock karena winsock adalah sebuah komponen yang di buat untuk jaringan..


untuk desain nya untuk Server dan Client bisa ber-ekpresi sendiri atau bagi pemula bisa memakai referensi yang saya buat ini dulu.untuk kedepanya bisa di kembangkan.










Penulisan source code (Form Server)





Private Sub Form_Activate()
'untuk menampilkan ip sendiri
Me.TXTlocal.Text = Winsock1.LocalIP
End Sub

Private Sub Form_Load()
'Port bebas tetapi harus sama dg port client
Winsock1.LocalPort = 5050

' untuk menunggu koneksi dari client
Winsock1.Listen
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'berfungsi untuk mengirim pesan yang ada di text3
Winsock1.SendData TXTkeluar
End If
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'jika winsock masih dalam keadaan terkoneksi maka akan di putus untuk merefresh koneksi
If Winsock1.State <> sckClosed Then Winsock1.Close

'untuk menerima permintaan koneksi
Winsock1.Accept requestID
MsgBox "Client Terkoneksi", vbInformation
End Sub

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

'untuk menerima data yang dikirim oleh Client
Winsock1.GetData data
Me.TXTmasuk.Text = data
End Sub


Penulisan source code (Form Client)





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 TXTkeluar
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
Me.TXTmasuk.Text = data
End Sub