Membuat Kalkulator Sederhana menggunakan Visual Studio 2010

Saya akan menshare cara membuat kalkulator menggunakan visual studio 2010

1.       Membuat Solusi .NET kosong.

Buka Microsoft® Visual Studio 2010 Ultimate Beta 2, pilih New Project.

Pada kolom Installed Templates, pilih Other Project Type lalu pilih Visual Studio Solutions.

Pilih Blank Solution dan masukkan nama solusi pada textbox Name.

Pada contoh ini, saya memberi nama MyFirstSolution.

Lalu klik OK.

2.       Membuat Class Library

Pada Solution Explorer, klik kanan pada Solution ‘MyFirstSolution', pilih Add - New Project.

Pada Installed Templates pilih bahasa Visual C#.

Pilih Class Library, dan masukkan nama PerhitunganLibrary.

Klik OK.

3.       Gantilah nama Class1.cs yang ada pada PerhitunganLibrary di Solution Explorer dengan cara klik kanan pada Class1.cs - Rename kemudian ubah namanya menjadi Operasi.cs.

Double click Operasi.cs, dan ketiklah kode program sebagai berikut.

Compile project PerhitunganLibrary dengan cara klik kanan pada PerhitunganLibrary - Build. Lalu perhatikan status bar Visual Studio anda, jika sukses anda akan melihat tulisan Build: 1 succeeded.

Pembuatan Class Library sudah selesai. Sekarang kita mulai membuat aplikasi untuk mengkonsumsi DLL tadi, yaitu yang pertama kita menggunakan aplikasi desktop atau Windows Form Application.

Langsung saja kita mulai lagi, masih semangat kan kawan J

1.       Membuat Windows Form Application

Pada Solution Explorer klik kanan pada Solution ‘MyFirstSolution' - Add - New Project.

Pada Installed Templates pilih bahasa Visual Basic.

Pilih Windows Forms Application, dan masukkan nama project KalkulatorDesktop.

Klik OK.

2.       Membuat design pada Windows Form.

Sorot mouse pada Toolbox dan pilih Common Control yang diperlukan seperti TextBox dan Button.

3.       Menambahkan referensi ke KalkulatorDesktop.

Pada Solution Explorer klik kanan KalkulatorDesktop - Add Reference.

Akan muncul pop - up windows Add Reference.

Pilih tab Projects, pilih PerhitunganLibrary.

Klik OK.

4.       Double Click pada Button Tambah ( + ), dan ketik code sebagai berikut.

5.       Kembali ke design view dan double click Button Kurang ( - ), dan ketik code sebagai berikut.

6.       Kembali ke design view dan double click Button Kali ( * ), dan ketik code sebagai berikut.

7.       Kembali ke design view dan double click Button Bagi ( / ), dan ketik code sebagai berikut.

8.       Jalankan aplikasi dengan menekan F5 atau klik menu Debug - Start Debuggung.

9.       Selamat mencoba yah.

Read more »

Koneksi VB.net And Mysql

Koneksi VB.net And Mysql

Koneksi VB.net & Mysql

Dulu waktu jaman gue masih muda dulu, sulit sekali mendapatkan buku yang membahas tutorial vb.net dan mysql. Dan hal ini mungkin terjadi juga pada diri kalian kawan. Tapi sekarang kawan-kawan tidak perlu gunda untuk memikirkan hal tsb, karena saya akan memberikan dasar (tapi penting banget) gimana caranya vb.net dan mysql bisa berkolaborasi. Secara saya menulis tutorial ini dengan menggunakan VB.net 2005 dan Mysql Server 5.0.44.

Untuk membuat kolaborasi VB.net dan Mysql diperluakn Mysql connector (.net tetunya) bisa kawan-kawan download di Mysql connector for .net , and klo sudah download ya di instal.

OK lagsung ke tutorial Vb.net and Mysql

Langkah pertama dan selalu dilakukan saat menggunakan sebuah compnet adaalah ADD REFERENCE
1. Create New Procjet
2. Pilih Project, Add Reference, Cari Mysql.Data lalu OK











3. Kemudian Buat Modul “koneksi”.Caranya,Pilih project, Add Module, missal berikan nama “koneksi”











Pada modul koneksi masukan scrip berikut

Imports MySql.Data.MySqlClient.MySqlConnection
Module koneksi
Public conn As New MySql.Data.MySqlClient.MySqlConnection
Public Sub konek(ByVal server As String, ByVal user As String, ByVal pass As String, ByVal db As String)
If conn.State = ConnectionState.Closed Then
Dim myString As String = "server=" & server _
& ";user=" & user _
& ";password=" & pass _
& ";database=" & db
Try
conn.ConnectionString = myString
conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
MsgBox(ex.Message)
End
End Try
End If
End Sub
Public Sub disconnect()
Try
conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
End Try
End Sub
End Module

Ok modul koneksi sudah terbuat, trus bagaimana cara memanfaatkanya? Berikut, salah satu contoh sederhana bagaimana koneksi mysql pada vb.net 2005.
Pada sebua form utama dengan even On Load masukan perintah

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
konek("localhost", "root", "", "nama_db")
Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT count(id_member) from member"
cmd.Connection = conn
MessageBox.Show(cmd.ExecuteScalar.ToString)
End Sub
End Class

konek("localhost", "root", "", "nama_db") =ini untuk memanggil fungsi koneksi dgn mysql, “nama_db” ya sesuaikan saja dgn db yg tersedia.

Klo sudah ya execusi aja, klo beruntuk maka akan tampil kayak gini



Sourcecode bisa diambil di Sini

Read more »

Select Insert Delete Data Into Mysql Table Dengan Vb.net

Select Insert Delete Data Into Mysql Table Dengan Vb.net

Karena saat ini gw lagi males nulis & mikir, maka tutorial vb.net mysql yang gampang-gampang dulu aja. Bahasan kita saat ini adalah bagaimana cara kita untuk menampilkan, insert dan menghapus data mysql pada datagirdview vb.net
Udah kawan, lsg aja ya berikut adalah petikan kode programnya (snipet)

Public Class Form1
    Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
    Dim tambah As New MySql.Data.MySqlClient.MySqlCommand
    Dim hapusdata As New MySql.Data.MySqlClient.MySqlCommand
    Private Sub tampil()
        konek("localhost", "root", "", "menu")
        cmd.CommandText = "SELECT id,name FROM `menu`"
        cmd.Connection = conn
        Dim table As New DataTable
        Dim adapter As New MySql.Data.MySqlClient.MySqlDataAdapter(cmd.CommandText, conn)
        Dim cb As New MySql.Data.MySqlClient.MySqlCommandBuilder(adapter)
        adapter.Fill(table)
        DataGridView1.DataSource = table
    End Sub
    Private Sub hapus()
        If TextBox1.Text = "" Then
            MsgBox("Tentikan pilihan data yang akan dihapus", MsgBoxStyle.Information)
        Else
            hapusdata.CommandText = "delete from menu where name='" & TextBox1.Text & "'"
            hapusdata.Connection = conn
            Dim rsl As Integer = hapusdata.ExecuteNonQuery()
            If rsl > 0 Then
                MsgBox("data terhapus")
                tampil()
            End If

        End If

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tambah.Connection = conn
        tambah.CommandText = "insert into menu (name) values ('" & TextBox1.Text & "')"
        Dim rsl As Integer = tambah.ExecuteNonQuery()
        If rsl > 0 Then
            MsgBox("data berhasil ditambahkan")
            tampil()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        hapus()
    End Sub

    Private Sub DataGridView1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick
        TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
    End Sub
End Class

dan berikut adalah hasil dari snipet code diatas

dan isa juga mendownload source code vb.net di menampilkanData.rar

Buat kawan yang mingkin agak bingung dengan tutorila diatas, mungkin kawan isa baca tutorial dasar yaitu koneksi mysql & vb.net di halaman http://anakberbakti.blogspot.com/2009/12/koneksi-vbnet-and-mysql.html

Read more »