TULISAN TOU1 (Minggu ke - 2 )

Aplikasi Chating VB.Net


Sebelumnya saya ingin membuat program ini tapi masih belum sempat karna sulit menemukan waktu luang. Disini saya share info program dari tetangga sebelah langsung aja ..

Ikuti langkah-langkahnya ya...

1. Buat sebuah database dari MySql dengan nama ChatDB, dan 1 tabel dengan nama Chat, dan 2 kolom. Kolom pertama Id type data Int(4) primary key auto_increment, yg ke-2 Isi type data text.
2. Setting IP 2 Komputer.
3. Kemudian Desain seperti gambar dibawah ini untuk 2 komputer ya : 

       4.  Komponen timer di propertiesnya enabled dirubah menjadi True.

Lalu ikuti listing program dibawah ini :

Imports MySql.Data.MySqlClient.MySqlConnection
Public Class Form1
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public cmd As MySql.Data.MySqlClient.MySqlCommand
    Public rs As MySql.Data.MySqlClient.MySqlDataReader
    Public sql As String

    Sub opendb()
        sql = "server=localhost;user=root;pwd=;database=ChatDB;"
        If db.State = ConnectionState.Closed Then
            db.ConnectionString = sql
            db.Open()
        Else
            MsgBox("Database tidak ditemukan..!!")
        End If
    End Sub

    Sub kirimpesan()
        sql = "insert into chat(isi) values('" & pesan.Text & "')"
        cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
        cmd.ExecuteNonQuery()
        pesan.Text = ""
    End Sub

    Sub pesanmasuk()
        list.Items.Clear()
        sql = "select *from chat order by id desc"
        cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        While rs.Read
            list.Items.Add(rs("isi"))
        End While
        rs.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        opendb()
        pesanmasuk()
    End Sub

    Private Sub btnkirim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkirim.Click
        Call kirimpesan()
        Call pesanmasuk()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Call pesanmasuk()
    End Sub
End Class