HARI KEDUA

Oke teman-teman, di hari kedua ini saya akan membuat sebuah aplikasi server-client. Apa itu server-client, server-client adalah aplikasi untuk berkomunikasi atau chating. So kita akan membuat client-server sederhana.


Oke, mari kita mulai...
untuk itu kita akan menggunakan aplikasi VB 6.0


Membuat project1


1. klik tombol start lalu klik aplikasi VB di komputer
2. setelah muncul pilihan seperti ini :

pilihlah standart EXE

3. setelah itu kita harus mengaktivkan aplikasi Microsoft Winsock Control 6.0 dengan cara klik menu Project lalu klik Components atau agar lebih mudah tekan tombol ctrl + T, maka akan muncul jendela seperti ini :

pilihlah Microsoft Winsock Control 6.0 klik Apply

4.  buatlah 1 Winsock dan letakkan di dalam form1 


5.  buatlah 3 buah TextBox dalam form1, text1 berfungsi untuk conecting text2 berfungsi untuk membuka program exe seperti notepad, sedangkan text3 berfungsi untuk menulis pesan yang akan kita kirim


6. buat juga 3 CommandButton di samping masing-masing text. Command1 untuk Text1, Command2 untuk text2 dan Command3 untuk text3. Kemudian ubahlah Caption masing-masing Command tersebut dengan nama: Command1=Connect, Command2=Open dan Command3=Send. Kemudian aturlah layout form dengan baik sesuai yang diinginkan, contohnya seperti ini:

7.  klik ganda pada Conect lalu ketik program ini:

 Private Sub Command1_Click()

 On Error Resume Next 

  Winsock1.Connect Text1.Text, 1234

End Sub

8. klik ganda pada icon winsock lalu ketik program ini:

Private Sub Winsock1_Connect()
Form1.Caption = "connected!"
End Sub 

9. klik ganda pada Command2 yaitu open lalu ketik program ini:

Private Sub Command2_Click()
On Error Resume Next
Winsock1.SendData "cmd|" & Text2.Text
End Sub 

10. klik ganda pada Command3 atau send lalu ketik program ini:

Private Sub Command3_Click()
On Error Resume Next
Winsock1.SendData "message|" & Text3.Text
End Sub

 setelah semua langkah di atas sudah dikerjakan, selanjutnya kita akan mengerjakan project2


Membuat Project2
Untuk form yang ini kita hanya akan menggunakan 1 icon saja, yaitu icon Winsock
Setelah diletakan pada form lalu klik ganda pada icon tersebut, dan ketiklah program berikut. Harap perhatikan dengan seksama, karena programnya lumayan banyak. Ketik program berikut :

Private Sub Form_Load()Winsock1.CloseWinsock1.LocalPort = "1234"Winsock1.ListenEnd Sub

ganti form_Load() menjadi Winsock1_Close() pada menu yang ada di atasnya. kemudian ketik program ini:

Private Sub Winsock1_Close()Winsock1.CloseWinsock1.ListenEnd Sub

Ganti  Winsock1_Close() dengan Winsock1_ConnectionRequest(ByVal requestID As Long), Lalu ketik program berikut:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)Winsock1.CloseWinsock1.Accept requestIDEnd Sub

ganti lagi menjadi Winsock1_DataArrival(ByVal bytesTotal As Long),lalu ketik program ini:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim data As StringDim vector() As StringWinsock1.GetData data, vbStringvector() = Split(data, "|")If vector(0) = "cmd" ThenShell vector(1)ElseIf vector(0) = "message" ThenMsgBox vector(1)End IfEnd Sub

dan terakhir ganti dengan 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), lalu ketik program berikut:

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)Winsock1.CloseWinsock1.ListenEnd Sub

Setelah semua selesai maka save kedua project ke dalam format exe, lalu jalankan. maka akan muncul aplikasi seperti ini:

setelah ada 2 jendela tersebut, jalankan dengan mengetikan kolom conect dengan 127.0.0.1 lalu tekan tombol conect tunggu sampai judul jendela tersebut berubah menjadi connected!. 
Kemudian isi kolom kedua dengan notepad lalu tekan Open, ini berfungsi untuk membuka aplikasi Notepad.
Terakhir isi kolom ketiga dengan pesan yang anda inginkan, jika selesai tekan Send. maka pesan anda akan terkirin ke server lalu ditampilkan pada messageBox. Contohnya saya akan mengatik pesan "Haaaaaaiiiiiii", maka messageBox akan menampilkan:

nah, kita telah menyelesaikan suatu alat chating sederhana... dengan metode Server-Client.


oke, sampai jumpa besok.