Cara Membuat Chart/Grafik/Kurva Dengan Ms.Chart di VBNET

Untuk membuat sebuah chart/grafik/kurfa/dll pertama kita harus menentukan dulu komponen apa yang ingin digunakan. Banyak sekali komponen diluar sana dan kebanyakan berbayar (trial/shareware). Kali ini saya akan mencontohkan dengan komponen yang gratis, yaitu MSCHART. Tahapannya adalah:

1.Download MSChart (Setup untuk update Ms.Netframework 3.5 SP1)
2.Download MSChart (Add-On untuk update ToolBox visual studio 2008)
3.Buat project baru, add mschart ke form

Sekarang perhatikan ada 3 hal dasar yang harus diketahui dan difahami yaitu : X, Y dan Series :

Contoh pertama, saya ingin membuat grafik seperti dibawah ini (tanpa database/manual) :

Sintaknya sangat singkat, pertama tambahkan ini dipaling atas :

Imports System.Windows.Forms.DataVisualization.Charting

selanjutnya taruh ini di event form_load() :

        With Chart1 '=Nama Group

            .Series.Clear()

            .Series.Add("Mahasiswa MI")

            'Format Series/Chart

            .ChartAreas(0).AxisX.Interval = 1

            .ChartAreas(0).AxisX.IsStartedFromZero = True

            .Series(0).ChartType = SeriesChartType.Column 'Bentuk chart

            .Series(0).XValueType = ChartValueType.String

            .Series(0).YValueType = ChartValueType.Double

            'Isi Nilai Series/Chart (X,Y)

            .Series(0).Points.AddXY("Matematika", 10)

            .Series(0).Points.AddXY("Akuntansi", 7)

            .Series(0).Points.AddXY("Jaringan", 15)

            .Series(0).Points.AddXY("Algoritma", 5)

        End With

Bentuk chart yang disediakan sangat banyak, contohnya jika saya ubah menjadi :
.Series(0).ChartType = SeriesChartType.Pie 'Bentuk chart
maka akan langsung (otomatis) berubah menjadi :

OK, contoh selanjutnya adalah Multi Series (lebih dari satu) contoh chart-nya seperti dibawah ini :

Untuk sintaknya seperti dibawah ini :

With Chart1 '=Nama Group

            Dim prodi() As String = {"Mahasiswa MI", "Mahasiswa TI"}

            .Series.Clear()

            For i As Integer = 0 To prodi.Length - 1

                .Series.Add(prodi(i))

            Next

            'Format Series/Chart

            .ChartAreas(0).AxisX.Interval = 1

            .ChartAreas(0).AxisX.IsStartedFromZero = True

            For Each seri As Series In .Series

                seri.ChartType = SeriesChartType.Column

                seri.XValueType = ChartValueType.String

                seri.YValueType = ChartValueType.Double

            Next

            'Isi Nilai Series/Chart (X,Y)

            .Series(0).Points.AddXY("Matematika", 100)

            .Series(0).Points.AddXY("Akuntansi", 70)

            .Series(0).Points.AddXY("Jaringan", 45)

            .Series(0).Points.AddXY("Algoritma", 60)

            .Series(1).Points.AddXY("Matematika", 90)

            .Series(1).Points.AddXY("Akuntansi", 25)

            .Series(1).Points.AddXY("Jaringan", 80)

            .Series(1).Points.AddXY("Algoritma", 60)

        End With

Selain itu juga saya membuat contoh chart yang Realtime dengan menggunakan timer, jadi contoh berikut ini adalah chart yang bergerak/refresh setiap 1 detik sekali, berikut ini screenshot nya :

Dan terakhir saya membuat contoh chart dengan database, seperti biasa saya menggunakan ma.access northwind.accdb. Contoh kasus berikut ini adalah bagaimana cara menampilkan data order product, jadi dari setiap tanggal transaksi akan dihitung berapa quatity order nya. berikut ini screenshot di ms.access nya:

dan ini adalah chart nya :

Link Updated 2013-12-11
Download All full source code

Tags:
contoh chart vbnet, download chart ocx, tutorial mschart vbnet, cara membuat grafik chart vbnet, sintak function chart/grafik di vbnet, reference untuk chart vbnet, dll/ocx chart, example chart vbnet, making chart in vbnet, mschart datasource, using mschart in vbnet with datasource database, cara add mschart controls di vbnet, tambah komponen mschart visual basic, membuat laporan dengan mschart vb, reporting with mschart vb