July 2006 - Posts - Bobby Zulkarnain's Blog

Navigation

July 2006 - Posts

Menggunakan Microsoft Chart Pada Visual Studio.NET 2003

Pada saat mengajar materi Developing Microsoft Windows-based Application With Visual Basic.NET di Jurusan Manajemen Informatika, Politeknik POS Indonesia, Sarimanah Bandung beberapa saat lalu, saya mencoba memberikan sumbangan berupa review penggunaan MS Chart setelah ada mahasiswa yang menanyakan bagaimana membuat graphic chart berdasarkan data. Langkah awal, setelah membukan MS Visual Studio.NET 2003 adalah dengan menambahkan komponen MSChart pada bagian Toolbox, pada Windows Forms, seperti berikut:

Lalu pada tab COM Components, pilih Microsoft Chart Control 6.0 (SP4)(OLEDB), seperti pada gambar berikut ini:

Setelah diklik OK, komponen ini akan tampil pada Toolbox, pada Windows Forms, seperti berikut ini, lalu drag ke form pada projek.

Sebagai penyertaan contoh program, saya membuat program sederhana dengan data fiktif berupa tingkat kepadatan penduduk di beberapa pulau besar di Indonesia, sebagai berikut:

Penggunaan kontrol NumerikUpDown pada groupbox Pulau saya set sbb:
-	ReadOnly : True
-	Maksimum Value : 1000 (disesuaikan dengan input datanya)

Code behind keseluruhan program yang bersahaja ini sbb:

Public Class Form1
    Inherits System.Windows.Forms.Form

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'men-set angka numerik kontrol numerik updown untuk nilai defaultnya
        nuJawa.Text = "1000"
        nuSumatera.Text = "300"
        nuKalimantan.Text = "120"
        nuSulawesi.Text = "100"

        'membuat pilihan radio button 2D secara default dicek
        rb2D.Checked = True

        Grafik()

    End Sub

    Sub Grafik()
        'mendeklarasi nilai variabel string dan input data user

        Dim strJawa As String = nuJawa.Text
        Dim strSumatera As String = nuSumatera.Text
        Dim strKalimantan As String = nuKalimantan.Text
        Dim strSulawesi As String = nuSulawesi.Text


        'Baris pertama berisi Label untuk kolom-kolom
        'Kolom pertama berisi nilai sumbu x

        Dim strPenduduk(,) As String = New String(,) _
       {{"Pulau", "Jumlah Penduduk"}, _
        {"Jawa", strJawa}, {"Sumatera", strSumatera}, _
        {"Kalimantan", strKalimantan}, {"Sulawesi", strSulawesi}}

        chPenduduk.ChartData = strPenduduk 'set grafik Penduduk


    End Sub



    Private Sub rb2D_CheckedChanged(ByVal sender As Object, ByVal e As _ System.EventArgs) Handles rb2D.CheckedChanged
        'tampilkan grafik 2D
        chPenduduk.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub


    Private Sub rb3D_CheckedChanged(ByVal sender As Object, ByVal e As _ System.EventArgs) Handles rb3D.CheckedChanged
        'tampilkan grafik 3D
        chPenduduk.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub
End Class

Tampilan jalannya program: