HARI KEENAM

Sampai saat kami telah menyelesaikan suatu program Multichating,, yaitu program yang memungkinkan kita berkomunikasi dengan orang lebih dari satu dalam satu forum, namun program ini masih sangat sederhana. Dan program ini juga masih dalam masa percobaan, kemungkinan akan mendapat banyak perubahan.


Inilah tampilan Programnya:

dan inilah coding programnya:

Option Explicit
Dim blnClientConnected(7) As Boolean
Private Sub Cmd_connect_Click()
If OptServer.Value = True Then
Dim i As Integer
For i = 0 To 7
Wnsck(i).LocalPort = Txt_port.Text + i
Wnsck(i).Listen
lstconversation.AddItem "listening on port" & Txt_port.Text + i
Next i
Else
WnsckConnect.RemoteHost = Txt_id.Text
WnsckConnect.RemotePort = Txt_port.Text
WnsckConnect.Connect
End If
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub Cmdsend_Click()
Dim tempMessage As String
Dim i As Integer
tempMessage = Txt_name.Text & ": " & Txt_msg.Text
If OptServer.Value = True Then
For i = 0 To 7
If blnClientConnected(i) = True Then
 Wnsck(i).SendData tempMessage

End If
Next i
Else
WnsckConnect.SendData tempMessage
End If
Txt_msg.Text = ""
Txt_msg.SetFocus
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 7
blnClientConnected(i) = False
Next i
End Sub
Private Sub Winsock1_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)
End Sub
Private Sub Wnsck_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Wnsck(Index).State <> sckClosed Then
Wnsck(Index).Close
End If
Wnsck(Index).Accept requestID
lstconversation.AddItem "user connected"
blnClientConnected(Index) = True
Dim i As Integer
For i = 0 To 7
If blnClientConnected(i) = True Then
Wnsck(i).SendData "User Connected"
End If
Next i

End Sub
Private Sub Wnsck_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim receivedData As String
Wnsck(Index).GetData receivedData, vbString
lstconversation.AddItem receivedData, 0
Dim i As Integer
For i = 0 To 7
If blnClientConnected(i) = True Then
Wnsck(i).SendData receivedData
End If
Next
End Sub

Private Sub Wnsck_Error(Index As Integer, 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 ("Eror!" & vbCrLf & Description)
End Sub
Private Sub WnsckConnect_ConnectionRequest(ByVal requestID As Long)
If WnsckConnect.State <> sckClosed Then
 WnsckConnect.Close
 End If
 WnsckConnect.Accept requestID
 
End Sub
Private Sub WnsckConnect_DataArrival(ByVal bytesTotal As Long)
Dim receivedData As String
WnsckConnect.GetData receivedData, vbString
lstconversation.AddItem receivedData, 0
End Sub

program ini dapat dimainkan sampai dengan 7 user. Oke bray!!!! bye
salam