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.





Membuat aplikasi chatting dengan visual basic 6


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 Rating: 4.5 Diposkan Oleh: Unknown
Comments
5 Comments