Mini Chat

saya rizky riferna akan membagi kan hasil belajar pemograman saya sendiri secara otodidak yaitu cara pembuatan mini chat kayak seperti BBM,WhatAP,LINE dan lain-lain, oke langsung saja kita mulai

petama instal dulu aplikasi visual studionya yang ultimate 2012
lalu kita buat program server mini chatnya
pilih file-new-project-other language-visual basic-windows-console aplication
tambahkan kode pemograman socket di MOdule1.vb
ini kodenya :

imports system.net.sockets
imports system.text
setelah itu tambahkan kode deklarasinya ini kodenya :
Dim clientslist as new hashtable

kemudian desain dulu di form nya sesuai keinginan anda kalo saya seperti ini bisa dilihat gambar di bawah
nak kira kira seperti ini lah desainnya punya saya

lalu klik di sembarang from tersebut akan muncul sebuah tab baru yang akan kita isi dengan bahasa pemogramannya ini lah dia kode nya :

Imports System.Net.Sockets
Imports System.Text
Public Class frMiniChatClient
Dim clientSocket As New System.Net.Sockets.TcpClient()
Dim serverStream As NetworkStream
Dim readData As String
Dim infiniteCounter As Integer
Dim TextBox3 As Object
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub btSendMsg_Click(sender As Object, e As EventArgs) Handles btSendMsg.Click
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes(txMsg.Text + "$")
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()
End Sub
Private Sub msg()
If Me.InvokeRequired Then
Me.Invoke(New MethodInvoker(AddressOf msg))
Else
txChatRoom.Text = txChatRoom.Text + Environment.NewLine + _
" >> " + readData
End If
End Sub
Private Sub btConnect_Click(sender As Object, e As EventArgs) Handles btConnect.Click
readData = "Conected to miniChat Server . . ."
msg()
clientSocket.Connect("127.0.0.1", 8888)
ToolStripStatusLabel1.Text = readData
serverStream = clientSocket.GetStream()
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes(TextBox3.Text + "$")
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()
Dim ctThread As Threading.Thread = _
New Threading.Thread(AddressOf Message)
ctThread.Start()
End Sub
Private Sub Message()
Dim infiniteCounter As Integer
For infiniteCounter = 1 To 2
infiniteCounter = 1
serverStream = clientSocket.GetStream()
Dim buffSize As Integer
Dim inStream(10024) As Byte
buffSize = clientSocket.ReceiveBufferSize
serverStream.Read(inStream, 0, buffSize)
Dim returndata As String = _
System.Text.Encoding.ASCII.GetString(inStream)
readData = "" + returndata
msg()
Next
End Sub
End Class

bisa dilihat gambar dibawah ini

kemudian di simpan dan bisa juga menjalankannya langsung di situ bisa tekan start dan di keyboard menekan f5 kalo berhasil seperti ini, bisa dilihat gambarnya dibawah