11. Buka program Visual Basic 6.0
2. Pilih “Standard EXE” pada form New Project
3. Buat tampilan Form Server seperti gambar berikut :
Keterangan:
TextBox
a. Name : Text1
b. Name : Text2
d. Name : Text3
e. Name : Text4
Shape
c. Name : Shape1
Fillcolor : &H000000FF&
f. Name : Shape2
Fillcolor : &H000000FF&
Command Button
g. Name : Command1
Command2
4. Masukkan script berikut pada form Server:
Dim data As String
Dim data1 As String
Dim data2 As String
Private intsockcnt As Integer
Private Sub Command1_Click()
On Error GoTo Err
Dim intcnt As Integer
For intcnt = 1 To intsockcnt
If Winsock1(intcnt).State = sckConnected Then Winsock1(intcnt).GetData data1
Text1.Text = data1 & vbCrLf
DoEvents
Text2.Text = data2 & vbCrLf
Next intcnt
Exit Sub
Err:
MsgBox "Error : " & Err.Description
End Sub
Private Sub Form_Load()
On Error GoTo Err
Winsock1(0).Close
Winsock1(0).LocalPort = 250
Winsock1(0).Listen
Exit Sub
Err:
MsgBox "Error : " & Err.Description, vbCritical
End Sub
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
intsockcnt = intsockcnt + 1
Load Winsock1(intsockcnt)
Winsock1(intsockcnt).Accept requestID
Shape1.BackColor = &HC0C000 & vbCrLf
End Sub
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strdata As String
Dim intcnt As Integer
Winsock1(Index).GetData strdata, vbString
Text1.Text = data1 & vbCrLf
Text2.Text = data2 & vbCrLf
For intcnt = 1 To intsockcnt
If Winsock1(intcnt).State = sckConnected Then Winsock1(intcnt).SendData strdata
End If
Next intcnt
End Sub
5. Buat pula tampilan Form Client seperti gambar dibawah:
Keterangan :
Textbox
a. Name : txInput
c. Name : txRH
d. Name : txPort
HScrollbar
b. Name : HScr1
Command Button
e. Name : command1
Option Button
f. Name : Option1
g. Name : Option2
Shape
h. Name : Shape1
Fillcolor : &H000000FF&
6. Masukkan script berikut pada form Client:
Dim data1 As String
Dim data2 As String
Dim data3 As String
Private Sub Command1_Click()
On Error GoTo err
Winsock1.Close
Winsock1.RemoteHost = txRH.Text
Winsock1.RemotePort = txPort.Text
Winsock1.Connect
Shape1.BackColor = &HC0C000
Form1.Caption = "Anda terhubung ke Server"
Exit Sub
err:
MsgBox "Error : " & err.Description, vbCritical
End Sub
Private Sub Form_Load()
HScr1.Enabled = False
End Sub
Private Sub HScr1_Change()
txInput.Text = HScr1.Value
data1 = HScr1.Value
End Sub
Private Sub HScr1_DragDrop(Source As Control, X As Single, Y As Single)
HScr1_HScroll
End Sub
Private Sub HScr1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
HScr1_HScroll
End Sub
Private Sub Option1_Click()
txInput.Enabled = True
HScr1.Enabled = True
data2 = Option1.Caption
End Sub
Private Sub Option2_Click()
txInput.Enabled = False
HScr1.Enabled = False
data3 = Option1.Caption
MsgBox "Status alat sedang rusak ...!!", vbInformation + vbOKOnly, "PrjClient"
End Sub
Private Sub HScr1_HScroll()
Winsock1.SendData data1
DoEvents
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data, vbString
txInput = txInput & data & vbCrLf
End Sub
7. Selamat mencoba !! ~('-'~)(~'-')~
