1. Buat form seperti yang ada pada gambar :
2 . Tuliskan sintaks pada ;
Deklarasikan data sebagai string
Dim data As String
Form Load
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
Command1
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
Winsock1 . deklarasinya,
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
Form di Client
- Buatlah tampilan form seperti dibawah ini ;
2. Tuliskan sintaks pada ;
Terlebih dahulu deklarasikan,
Dim data1 As String
Dim data2 As String
Command1 (connect)
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
Hscrollbar
Private Sub scroll_Change()
Text1.Text = scroll.Value
data1 = Text1.Text
Winsock1.SendData data1
DoEvents
End Sub
Option (OK)
Private Sub OK_Click()
Text1.Enabled = True
scroll.Enabled = True
data2 = "OK"
Winsock1.SendData data2
End Sub
Option (NOK)
Private Sub nok_Click()
Text1.Enabled = False
scroll.Enabled = False
data2 = "NOK"
Winsock1.SendData data2
End Sub
Winsock1
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data, vbString
Text1 = Text1 & data & vbCrLf
End Sub
· geser scroll pada client, kemudian akan muncul hasil pengukuran pada text box, dan hasil pengukuran tersebut otomatis akan muncul di text box server
Jika di Client di klik pada option “OK” maka akan secara otomatis pada status koneksi di Server akan tertulis “OK”. Dan jika tidak (“NOK”), maka pada status koneksi di Server akan tertulis “NOK” dan Hscrollbar tidak akan bisa digeser.
Jika status “OK” maka Hscrollbar dapat digeser di Client dan angka pada hasil pengukuran di Server akan berubah mengikuti Client.