Transcript Pertemuan 11 Windows Programming

Matakuliah : H0483 – Network Programming
Tahun
: 2008
Versi
: 2.0
Pertemuan 11
Windows Programming
Program Client dgn protocol TCP pada Visual
Basic 6.0
1
Learning Outcomes
Pada akhir pertemuan ini, diharapkan mahasiswa
akan mampu :
• Membuat program aplikasi Client Server
dengan menggunakan Microsoft Visual
Basic 6.0
2
Outline Materi
• Kasus: Membuat Program Chatting
• Tahapan tahapan membuat program di VB
6.0
• Memasukkan komponen Winsock 6.0 ke
dalam program
• Membuat Form
• Coding
• Test Program
3
Membuat Program Chatting
• Program server dengan I/O Multiplexing
pada pertemuan 7 sebelumnya dapat
digunakan untuk server (pada Linux) untuk
membuat sistem Chatting
• Sedangkan Clientnya dibuat dengan
Visual Programming (VB 6.0) agar
tampilannya lebih menarik.
4
Tahapan Membuat Program Client dgn protocol TCP pada
Visual Basic 6.0
1.
2.
3.
4.
Jalankan VB 6.0
Start a new Standard exe Project
Add a Winsock Control to your application
Add all control to the Form
5
LANGKAH-LANGKAH
• Pilih Standard EXE
• Klik Open
6
LANGKAH-LANGKAH
• Pilih menu: Project -> Component ->pilih Controls
• Pilih Microsoft Winsock Control 6.0
• Klik OK
7
Drag
Clik
•
Tempatkan / tambahkan Winsock
Control ke Form
8
BUAT FORM SEPERTI GAMBAR
DIBAWAH !
9
Lengkapi dengan code sbb:
Dim strMsg As String
Dim ss As String
Private Sub Connect_Click()
If Winsock1.State = sckConnected Then
Winsock1.Close
End If
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Val(Text2.Text)
Winsock1.Protocol = sckTCPProtocol
Winsock1.Connect
End Sub
10
Private Sub DisConnect_Click()
If Winsock1.State = sckConnected Then
Winsock1.Close
End If
End Sub
Private Sub Form_Load()
List1.Clear
Text3.Text = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Winsock1.State = sckConnected Then
Winsock1.Close
End If
End Sub
11
Private Sub Send_Click()
If Winsock1.State = sckConnected Then
ss = Text4.Text + ":" + Text3.Text
Winsock1.SendData ss & vbLf
End If
End Sub
Private Sub Winsock1_DataArrival(ByVal
bytesTotal As Long)
Dim strMsg As String
Winsock1.GetData strMsg, vbString
List1.AddItem strMsg
End Sub
12
Selanjutnya …
• Hubungkan Komputer dengan O/S
Windows dengan komputer dengan O/S
Linux
• Coba dengan program ping terlebih
dahulu, apa sudah bisa connect
• Jalankan Server di Linux (Program
SelectServer.c yang sudah di upload di
binusmaya)
• Jalankan 2 buah program client di
windows
13
Contoh Tampilan
14
Latihan
• Buat Program DayTimeServer dan
DayTimeClient dengan menggunakan
protokol TCP dengan menggunakan bahasa
pemrograman Visaul Basic
15