1. Buka program Visual Basic 6.0
2. Pilih “VB Enterprise Edition Controls” pada form New Project
3. buat tampilan pada server sebagai berikut:
4. Buat tampilan pada Client sebagai berikut :
Ø Client1
Ø Client2
5. Pada form server, ketikkan perintah berikut:
Dim data As String
Private Sub Command1_Click()
On Error GoTo Err
Winsock1.GetData data
If data = "ok" Or data = "nok" Then
Text2.Text = data
End If
Exit Sub
Err:
MsgBox "Error : " & Err.Description
Winsock1.Close
End Sub
Private Sub Form_Load()
On Error GoTo Err
Winsock1.Close
Winsock1.LocalPort = 250
Winsock1.Listen
Exit Sub
Err:
MsgBox "Error : " & Err.Description, vbCritical
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckConnected Then
Winsock1.Close
End If
Winsock1.Accept requestID
Shape1.BackColor = &H80FF80 & vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData data, vbString
If data = "ok" Or data = "nok" Then
Text2.Text = data
Else
Text1.Text = data
End If
End Sub
6. Pada form client(1 dan 2), ketikkan perintah berikut:
Dim data1 As String
Dim data2 As String
Private Sub Command1_Click()
On Error GoTo err
Winsock1.Close
Winsock1.RemoteHost = Text2.Text
Winsock1.RemotePort = Text3.Text
Winsock1.Connect
Shape1.BackColor = &HFF00&
Form1.Caption = "Anda terhubung ke Server"
Exit Sub
err:
MsgBox "Error : " & err.Description, vbCritical
End Sub
Private Sub Option2_Click()
Text1.Enabled = False
scroll.Enabled = False
MsgBox "Status alat sedang rusak ...!!", vbInformation + vbOKOnly, "PrjClient"
End Sub
Private Sub nok_Click()
Text1.Enabled = False
scroll.Enabled = False
data2 = "nok"
Winsock1.SendData data2
End Sub
Private Sub ok_Click()
Text1.Enabled = True
scroll.Enabled = True
data2 = "ok"
Winsock1.SendData data2
End Sub
Private Sub scroll_Change()
Text1.Text = scroll.Value
data1 = scroll.Value
Winsock1.SendData data1
DoEvents
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data, vbString
Text1 = Text1 & data & vbCrLf
End Sub
Silahkan download aplikasinya di http://www.mediafire.com/?gsyhgd4fl7n6ca7
