Cara Membuat Aplikasi Chating dengan IP

Cara Membuat Aplikasi Chating dengan IP - Pertama - tama marilah kita panjatkan kepada Allah SWT yang telah begitu banyak memberikan nikmat serta karunianya sehingga kita masih bisa belajar dan mengunjungi blog Sourcecode Application ini.

Sholawat dan salam semoga tercurahkan kepada Nabi Muhammad SAW yang telah menuntun kita kejalan yang benar ini, mudah mudahan sholawatnya bersambung kepada keluarga, sahabar dan para pengikutnya hingga akhir zaman nanti.

Pada kesempatan kali ini saya akan berbagi tips dan trick seputar bahasa pemrograman visual basic yang pada kali ini kita akan belajar membuat Aplikasi chating dengan IP Address. Untuk membuatnya silahkan anda ikuti langkah-langkahnya dibawah ini.

Langkah Membuat Aplikasi Chating

1. Buka Microsoft Visual Basic 2008 pada komputer anda.
2. Kemudian buatlah Form Aplikasi Chating Mneggunakan IP seperti pada gambar dibawah ini.
   
3. Setelah itu masukan script untuk membuat aplikasi chating
   
   
   
   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
4. Tekan RUN atau F5 untuk mencoba aplikasinya
5. Selamat mencoba

DOWNLOAD SORCECODE APLIKASI CHAT

Demikian panduan mengenai  Cara Membuat Aplikasi Chating dengan IP semoga bisa bermanfaat bagi anda.