Cara Membuat Aplikasi Chat di VB.NET

Cara Membuat Aplikasi Chat di VB.NET

Bahasa pemrograman visual basic adalah bahasa pemrograman yang sangat mudah dipelajari dibandingkan dengan bahasa yang lainnya, sehingga kita bisa berkreatifitas untuk menciptakan sebuah sistem aplikasi yang diinginkan, oleh karena itu kenapa saya memilih bahasa pemrograman visual basic ini dikarenakan bahasa ini keluaran dari Microsoft itu sendiri sehingga aplikasi yang dibuat dapat dengan mudah dijalankan di sistem operasi windows.

Aplikasi Chat Menggunakan VB.NET ini hanya bisa digunakan pada komputer yang terhubung dengan jaringan LAN (Local Area Network) atau jaringan local saya, atau juga di jaringan peer to peer karena aplikasi ini berhubungan dengan client server.

Untuk cara pembuatannya silahkan simak tutorialnya dibawah ini.

Langkah - Langkah Membuat Aplikasi CHAT di VB.NET

Langkah Pertama

Download dan Install Aplikasi Microsoft Visual Basic 2008, 2010 dan lain lain, intinya anda menggunakan Microsoft Visual Basic 2008 keatas, sedangkan untuk Visual Basic 0.6 berbeda lagi.

Langkah Kedua

Buatlah sebuah form chat seperti pada gambar dibawah ini.

Langkah Ketiga

Letakan scrit dibawah ini untuk menjalankan aplikasi chat ini sehingga bisa digunakan.

Imports System.IO
Imports System.Net.Sockets

Public Class Form1
    Dim listerner As New TcpListener(44444)
    Dim client As TcpClient
    Dim message As String = ""
    Dim tts

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        listerner.Stop()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        listerner.Start()
        Timer1.Enabled = True
        Timer1.Start()

        TextBox4.Enabled = False

 
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            If listerner.Pending = True Then
                message = ""
                client = listerner.AcceptTcpClient
                Dim reader As New StreamReader(client.GetStream())
                While reader.Peek > -1
                    message = message + Convert.ToChar(reader.Read()).ToString
                End While
                Me.Focus()
                TextBox4.Text = (TextBox4.Text + message + vbCrLf)
                tts = CreateObject("sapi.spvoice")
                tts.speak(message)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
                MsgBox("Sorry Uncomplete data")
            Else
                client = New TcpClient(TextBox2.Text, 44444)
                Dim writer As New StreamWriter(client.GetStream())
                writer.Write(TextBox1.Text + "   says:" + TextBox3.Text)
                writer.Flush()
                TextBox3.Text = ""
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        AboutBox1.Show()
    End Sub
End Class

Jalankan aplikasi chat dengan menekan RUN atau F5
Bagi anda yang berminat dengan aplikasi ini silahkan download Aplikasinya dibawah ini.

DOWNLOAD SOURCECODE APLIKASI GRATIS

Demikian panduan mengenai Cara Membuat Aplikasi Chat di VB.NET semoga dapat bermanfaat bagi anda dan bisa digunakan sebagaimana mestinya, terima kasih.