Cara Pembuatan Aplikasi Chatting Client - Server LAN ==========================================

*ALAT*
      1.  Komputer / Laptop

Gambar Komputer / Laptop - http://www.terangkanlahinfo.com/

*BAHAN*

      1. Software Microsoft Visual Basic 6.0  Enterprise Edition

Gambar Software Microsoft Visual Basic 6.0 Enterprise Edition - http://www,terangkanlahinfo.com/

      2. Kabel LAN + RJ45

Gambar Kabel LAN RJ45 - http://www,terangkanlahinfo.com/

*Langkah - Langkah Pembuatan* 

  #FormServer

      1. Buka Microsoft Visual Basic 6.0 Enterprise Edition.

 

       2. Buat Project baru dengan tipe Standart EXE, kemudian Open.

      3. Klik Menubar Project , lalu klik Components . . . ( CTRL+T )

     

      4. Pilih dan centang Microsoft Winsock Control 6.0 , kemudian OK.

      5. Maka akan muncul komponen Winsock pada ToolBox.

      6. Buat Form Server dengan penataan komponen sebagai berikut.

      7. Sesuaikan properties komponen seperti berikut ini.

      8. Kemudian ketikkan Source Code berikut ini.

Option Explicit

Dim svrPort As String
Dim msg As String
Private Sub cmdClear_Click()
ListChat.Clear
End Sub

Private Sub cmdListen_Click()
svrPort = TxtServerPort.Text
wskServer.Close
wskServer.LocalPort = svrPort
wskServer.Listen
LblStatus.Caption = "Connecting to Client . . ."
TxtServerPort.Enabled = False
CmdListen.Enabled = False
CmdStop.Enabled = True
End Sub

Private Sub CmdSend_Click()
msg = TxtMsg.Text
If wskServer.State = sckConnected Then
ListChat.AddItem "< Server > " & msg
wskServer.SendData msg
DoEvents
TxtMsg.Text = ""
Else: ListChat.AddItem "--- Not Connected to Client ---"
End If
End Sub

Private Sub cmdStop_Click()
wskServer.Close
LblStatus.Caption = "Disconnected to Client"
TxtServerPort.Enabled = True
CmdStop.Enabled = False
CmdListen.Enabled = True
ListChat.AddItem "--- Disconnected ---"
End Sub

Private Sub Form_Load()
TxtServerIP.Text = wskServer.LocalIP
TxtServerIP.Enabled = False
TxtServerPort.Text = ""
CmdStop.Enabled = False
End Sub

Private Sub wskServer_Close()
If wskServer.State <> sckClosed Then wskServer.Close
cmdListen_Click
LblStatus.Caption = "Waiting for Connection . . ."
ListChat.AddItem "--- Disconnected ---"
End Sub

Private Sub wskServer_ConnectionRequest(ByVal requestID As
     Long)
wskServer.Close
wskServer.Accept requestID
LblStatus.Caption = "Connected to Client"
ListChat.AddItem "--- Success Connect to Client ---"
End Sub

Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
wskServer.GetData msg
DoEvents
ListChat.AddItem "< Client > " & msg
End Sub
Private Sub wskServer_Error(ByVal Number As Integer, Description
     As String, ByVal Scode As Long, ByVal Source As String, ByVal
     HelpFile As String, ByVal HelpContext As Long, CancelDisplay
     As Boolean)
MsgBox "Terjadi Error pada Koneksi Anda, Periksa IP Address /
     Port ", vbCritical + vbOKOnly, "Error"
End Sub

Private Sub cmdExit_Click()
End
End Sub

#FormClient

      1. Buka Microsoft Visual Basic 6.0 Enterprise Edition. 

       2. Buat Project baru dengan tipe Standart EXE, kemudian Open.

       3. Klik Menubar Project , lalu klik Components . . . ( CTRL+T )

      4. Pilih dan centang Microsoft Winsock Control 6.0 , kemudian OK.

       5. Maka akan muncul komponen Winsock pada ToolBox.

       6. Buat Form Client dengan penataan komponen sebagai berikut.

       7. Sesuaikan properties komponen seperti berikut ini.

      8. Kemudian ketikkan Source Code berikut ini.

Option Explicit
Dim svrPort As String
Dim svrIP As String
Dim msg As String

Private Sub cmdClear_Click()
ListChat.Clear
End Sub

Private Sub cmdConnect_Click()
svrPort = TxtServerPort.Text
svrIP = TxtServerIP.Text
wskClient.Close
wskClient.RemoteHost = svrIP
wskClient.RemotePort = svrPort
wskClient.Connect
TxtServerPort.Enabled = False
TxtServerIP.Enabled = False
CmdConnect.Enabled = False
CmdDisconnect.Enabled = True
LblStatus.Caption = "Connecting to Server . . ."
End Sub

Private Sub cmdDisconnect_Click()
wskClient.Close
LblStatus.Caption = "Disconnected to Server"
TxtServerPort.Enabled = True
TxtServerIP.Enabled = True
CmdConnect.Enabled = True
CmdDisconnect.Enabled = False
ListChat.AddItem "--- Disconnected ---"
End Sub

Private Sub CmdSend_Click()
msg = TxtMsg.Text
If wskClient.State = sckConnected Then
ListChat.AddItem "< Client > " & msg
wskClient.SendData msg
DoEvents
TxtMsg.Text = ""
Else
ListChat.AddItem "--- Not Connected to Server ---"
End If
End Sub

Private Sub Form_Load()
TxtServerPort.Text = "8080"
TxtServerIP.Text = wskClient.LocalIP
CmdDisconnect.Enabled = False
End Sub

Private Sub wskClient_Close()
If wskClient.State <> sckClosed Then wskClient.Close
MsgBox "Connection to Server Lost . . .", vbInformation +
     vbOKOnly, "Error"
cmdDisconnect_Click
End Sub

Private Sub wskClient_Connect()
If wskClient.State <> sckClosed Then
LblStatus.Caption = "Connected to Server"
End If
ListChat.AddItem "--- Success Connect to Server ---"
End Sub

Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
wskClient.GetData msg
ListChat.AddItem "< Server > " & msg
DoEvents
End Sub

Private Sub wskClient_Error(ByVal Number As Integer, Description
     As String, ByVal Scode As Long, ByVal Source As String, ByVal
      HelpFile As String, ByVal HelpContext As Long, CancelDisplay
     As Boolean)
MsgBox "Could Not Connect to Server !!! ", vbOKOnly, "Error"
End Sub

Private Sub cmdExit_Click()
End
End Sub