APLIKASI CHAT SEDERHANA VISUAL BASIC

Untuk membuat chat sederhana,, ikuti langkah-langkah di bawah ini

1.Buatlah dua buah projek baru sekaligus dengan masing-masing satu form. beri nama masing2 form Host1 dan Host2

2. Ingat, anda harus menambahkan dua buah komponen “winsock” pada form tersebut. Cara menambahkan winsock pada form yaitu klik menu Project lalu pilih Components atau shortcutnya tekan tombol Ctrl+T, maka akan muncul Dialog Window berikut.

3. Singkat cerita,, buat form seperti di bawah ini.

4. Untuk menjalankan program ini agak rumit, langkah-langkahnya sbg berikut:

· Pada host 1 tulis ip address dan port yang anda inginkan (ip address ini milik ip tujuan/ host ini memanggil IP tujuan). Ingat, jangan di klik tombol SET, langsung klik tombol LISTEN. Di situ akan akan terlihat STATUS “listen”. Catt: kondisi ini belum bisa me-reply host tujuan.

·Kemudian Pindah ke host 2, tuliskan ip address dan port dari host 1 tadi. Ingat, yang ini tombol SET di klik, lalu tekan tombol CONNECT. Status akan berubah menjadi “CONNECT”.

·Dari host 2, Coba anda kirim data ke host 1. Di situ akan terlihat datanya.

·STOP! Jangan langsung dibalas, harus disetting lagi.

·Set ulang Host 2, isikan ip address dan port yang sama untuk host 1, kemudian tekan tombol LISTEN.

·Kemudian pindah ke Host 1, tulis ip dan port dari host 2 tadi, terus klik tombol CONNECT. Di situ akan terlihat status berubah menjadi “listenConnect”. Pada kondisi seperti ini, server bisa me-reply client dan client bisa me-reply server.

Selamat mencoba!!,,

5. Tampilan kedua form

Script host 1

Private Sub connect_Click()

connect.Enabled = False

send.Enabled = True

txtChat.Enabled = True

winsockC.connect ip_src.Text, port.Text

End Sub

Private Sub keluar_Click()

Unload Me

End Sub

Private Sub listen_Click()

winsockS.LocalPort = port.Text

winsockS.RemoteHost = ip_src.Text

winsockS.listen

connect.Enabled = True

port.Enabled = False

set_ip.Enabled = True

set_port.Enabled = True

ip_src.Text = ""

port.Text = ""

status.Caption = "Status : Listen"

End Sub

Private Sub set_port_Click()

'set port

winsockC.RemotePort = port.Text

lbl_port.Caption = " Port : " & port.Text

set_port.Enabled = False

port.Enabled = True

listen.Enabled = False

connect.Enabled = True

End Sub



Private Sub send_Click()

'mengirim data

txtMain.Text = txtMain.Text & vbCrLf & txtChat.Text

winsockC.SendData txtChat.Text

txtChat.Text = ""

End Sub



Private Sub Form_Load()

set_ip.Enabled = False

set_port.Enabled = False

connect.Enabled = False

txtChat.Enabled = False

txtMain.Enabled = False

End Sub



Private Sub winsockC_Connect()

status.Caption = status.Caption & "CONNECT!"

End Sub



Private Sub WinsockS_ConnectionRequest(ByVal requestID As Long)

winsockS.Close

winsockS.Accept requestID

End Sub



Private Sub set_ip_Click()

winsockC.RemoteHost = ip_src.Text

lbl_ip.Caption = "IP Kamu : " & ip_src.Text

port.Enabled = True

set_ip.Enabled = False

set_port.Enabled = True

End Sub



Private Sub winsockS_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

winsockS.GetData strData

'menamplikan di text chat

txtMain.Text = txtMain.Text & vbCrLf & strData

'scroll the box down

txtMain.SelStart = Len(txtMain.Text)

End Sub



Script host 2

Private Sub connect_Click()

connect.Enabled = False

send.Enabled = True

txtChat.Enabled = True

listen.Enabled = True

winsockC.connect ip_src.Text, port.Text

port.Text = ""

ip_src.Text = ""

End Sub

Private Sub keluar_Click()

Unload Me

End Sub

Private Sub listen_Click()

winsockS.LocalPort = port.Text

winsockS.listen

port.Enabled = False

port.Text = ""

ip_src.Text = ""

End Sub

Private Sub set_port_Click()

'set port

winsockC.RemotePort = port.Text

lbl_port.Caption = " Port : " & port.Text

set_port.Enabled = False

port.Enabled = True

connect.Enabled = True

End Sub



Private Sub send_Click()

'mengirim data

txtMain.Text = txtMain.Text & vbCrLf & txtChat.Text

winsockC.SendData txtChat.Text

txtChat.Text = ""

End Sub



Private Sub Form_Load()

listen.Enabled = False

txtChat.Enabled = False

txtMain.Enabled = False

send.Enabled = False

connect.Enabled = False

End Sub



Private Sub winsockC_Connect()

status.Caption = status.Caption & "CONNECT!"

End Sub



Private Sub WinsockS_ConnectionRequest(ByVal requestID As Long)

winsockS.Close

winsockS.Accept requestID

End Sub



Private Sub set_ip_Click()

winsockC.RemoteHost = ip_src.Text

lbl_ip.Caption = "IP Kamu : " & ip_src.Text

port.Enabled = True

set_ip.Enabled = False

set_port.Enabled = True

End Sub



Private Sub winsockS_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

winsockS.GetData strData

'menamplikan di text chat

txtMain.Text = txtMain.Text & vbCrLf & strData

'scroll the box down

txtMain.SelStart = Len(txtMain.Text)

End Sub