Aplikasi Chatting Dengan VB 2010 dan mysql

Belajar Pemrograman Visual Basic dan Mysql

 

Siang gan uda lama gk post ne hehe
kali ini ane mau post project yang baru ane kerjain, smoga bisa bermanfaat :D
oh ya gan klo ada kritik dan saran nya gan, soal nya ane juga masih belajar hehe

Oke gan langsung aja, 

1. buat database pake mysql , disini ane uda buat database chat dan nama tabel pesan

2. buat design form kyak di bawah ne gan

3. komponen nya 
    -  3 TextBox
    -  4 Button
    -  1 ListBox

4. Setelah itu masuk kan script di bah ne gan

Imports MySql.Data.MySqlClient
Public Class Form1
    Public DB As New MySql.Data.MySqlClient.MySqlConnection
    Public CMD As MySqlCommand
    Public RS As MySqlDataReader
    Public Sub OpenDB()
        Dim SqlCon As String
        SqlCon = "server=localhost;uid=root;pwd=;database=chat"
        Try
            DB.ConnectionString = SqlCon
            DB.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub opp()
        listpesan.Text = ""
        Dim sql As String = ""
        sql = "select*from pesan"
        CMD = New MySqlCommand(sql, DB)
        RS = CMD.ExecuteReader
        Try
            While RS.Read
                listpesan.Text = listpesan.Text & vbCr & vbLf & "<" & RS("pengirim") & ">" & RS("pesan")
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        RS.Close()
    End Sub
    Sub isi()
        Dim Sql As String = ""
        Sql = "select pengirim from pesan group by pengirim"
        CMD = New MySqlCommand(Sql, DB)
        RS = CMD.ExecuteReader
        Try
            While RS.Read
                online.Items.Add(RS("pengirim"))
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        RS.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        listpesan.Enabled = False
        pesan.Enabled = False
        kirim.Enabled = False
        hapus.Enabled = False
        Call OpenDB()
        Call opp()
        Call isi()
        Timer1.Start()
    End Sub

    Private Sub kirim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim Sql As String = ""
        Sql = "Insert into pesan Values('" & user.Text & "','" & user.Text & "','" & pesan.Text & "')"
        Try
            CMD = New MySqlCommand(Sql, DB)
            CMD.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        pesan.Text = ""
        Call opp()
        Call isi()
        user.Enabled = False
    End Sub

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

    Private Sub pesan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pesan.KeyPress
        Dim enter As String = AscW(e.KeyChar)
        If enter = 13 Then
            Dim Sql As String = ""
            Sql = "Insert into pesan Values('" & user.Text & "','" & user.Text & "','" & pesan.Text & "')"
            Try
                CMD = New MySqlCommand(Sql, DB)
                CMD.ExecuteNonQuery()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            pesan.Text = ""
            Call opp()
        End If
    End Sub


    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Dim Sql As String = ""
        Sql = "delete from pesan"
        Try
            CMD = New MySqlCommand(Sql, DB)
            CMD.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        pesan.Text = ""
        online.Text = ""
        Call opp()
    End Sub

    Private Sub online_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles online.SelectedIndexChanged
        online.Text = ""
        user.Text = online.SelectedItem.ToString
        Dim Sql As String = ""
        user.Text = user.Text
        Sql = "Select*from pesan where pengirim='awal', & penerima='madi' or pengirim='madi', & penerima='awal'"
        CMD = New MySqlCommand(Sql, DB)
        RS = CMD.ExecuteReader
        Try
            While RS.Read
                online.Text = pesan.Text & vbCr & vbLf & "<" & RS("pengirim") & ">" & RS("pesan")
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        RS.Close()
    End Sub

    Private Sub konek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles konek.Click

        listpesan.Enabled = True
        pesan.Enabled = True
        kirim.Enabled = True
        hapus.Enabled = True

        If user.Text = "" Then
            listpesan.Enabled = False
            pesan.Enabled = False
            kirim.Enabled = False
            hapus.Enabled = False
        End If
        If user.Text = "" Then
            MsgBox("Input Display Name !!!")
        End If
    End Sub

    Private Sub dc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dc.Click
        listpesan.Enabled = False
        pesan.Enabled = False
        kirim.Enabled = False
        hapus.Enabled = False
        Call opp()
        user.Text = ""
        listpesan.Text = ""
    End Sub
End Class

5. Nih hasilnya klo uda dijalanin gan

6. Selesai

Gitu aja dulu dari ane gan smoga bermanfaat hehe
Oh iya gan hapir lupa tolong kritik dan saran nya para master, hehehe
maklum gan ane masih newbie
ok segitu aja Thanks :)