Membuat chatting dengan visual basic 6

Membuat chating sederhana pada visual basic 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..

Materi Belajar Visual Basic ini harus di pahami, 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

Membuat chatting dengan visual basic 6 2013-03-21T01:04:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown