Membuat Aplikasi Chat Sederhana dengan VB 6.0

 

Oke Assalamualaikum , Sekarang saya mau share cara buat aplikasi chat sederhana dengan vb , simak bro ;
1. Buat 2 project baru sekaligus sebagai host application nya. Namun, desain dan codingnya semuanya sama. Buat project baru dengan satu form


2. Maka akan muncul tampilan seperti berikut

3. Project standar.exe belum terdapat winsock, untuk memunculkannya klik menu Project lalu pilihComponents atau shortcutnya tekan tombol Ctrl+T, maka akan muncul Dialog Window berikut.

4. Maka akan muncul tampilan winscok pada toolbar general

5, Buatlah form berikut

6. Dan berikut listingnya gan !!
Private Sub Form_Load()
cm_connect.Enabled = False
cm_disconnect.Enabled = False
cm_send.Enabled = False
End Sub
Private Sub Winsock_server_ConnectionRequest(ByVal requestID As Long)
Winsock_server.Close
Winsock_server.Accept requestID
End Sub
Private Sub Winsock_server_DataArrival(ByVal bytesTotal As Long)
Dim chat As String
Winsock_server.GetData chat
Text5.Text = Text5.Text & vbCrLf & chat
End Sub
Private Sub Winsock2_Connect()
Label5.Caption = Label5.Caption & ” Connecting ready!!”
End Sub
Private Sub cm_connect_Click()
Winsock2.Connect
cm_connect.Enabled = False
cm_disconnect.Enabled = True
cm_send.Enabled = True
End Sub
Private Sub cm_disconnect_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Winsock_server.LocalPort = “”
Winsock2.Close
Winsock2.RemoteHost = “”
Winsock2.RemotePort = “”
End Sub
Private Sub cm_send_Click()
Text5.Text = Text5.Text & vbCrLf & Text6.Text
Winsock2.SendData Text6.Text
End Sub
Private Sub Command1_Click()
Winsock_server.LocalPort = Text3.Text
Winsock_server.Listen
Text3.Enabled = False
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Winsock2.RemoteHost = Text1.Text
Text1.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command4_Click()
Winsock2.RemotePort = Text2.Text
Text2.Enabled = False
Command4.Enabled = False
cm_connect.Enabled = True
End Sub
7. Contoh sebuah koneksi chatting


Program ini belum terlalu sempurna, hanya bentuk dasarnya saja. Masih banyak hal mendetail yang belum disempurnakan gan
Tapi cukuplah untuk dasar sebuah pemograman. So enjoy it ! ^_^