---

.

---

---

Metode dan Algoritma | Membuat Aplikasi Chart MSChart dengan VB.NET . Anda bisa melakukan konsultasi tentang Membuat Aplikasi Chart MSChart dengan VB.NET melalui form di samping kanan !!!

---

MS Chart dengan VB.NET

Pada Microsoft Visual Studio/Visual Basic.NET tidak disediakan komponen Chart, komponen ini tersedia pada versi sebelumnya yaitu Visual Basic 6.0 dengan nama Microsoft Chart Control 6.0. Untuk memanggil komponen tersebut dapat dilakukan sama dengan ketika menambahkan komponen Windows Media Player, yaitu  pada Toolbox klik kanan Pilih Choose Items..

Setelah muncul dialog Choose Toolbox Items, kemudian pilih Tab COM Components. Kemudian cari dan cek Microsoft Chart Control 6.0. Klik OK.

 

Secara otomatis komponen Microsoft Chart Control akan ditambahkan pada Toolbox. Kemudian komponen MS Chart tersebut dapat ditambahkan pada Form. Untuk mengubah-ubah setting dari komponen MSChart yang  telah ditambahkan pada Form dapat dilakukan dengan mengubah-ubah properti dari MSChart pada Window Properties maupun dengan cara klik kanan komponen MSChart pada Form kemudian pilih ActiveX – Properties.

Akan muncul dialog Properties dari MSChart, pada dialog tersebut dapat diubah-ubah berbagai setting dari komponen MSChart antara lain Chart Type, Chart Options, Series, Axis, Text, Fonts, dsb. Setelah mengubah setting/properti selesai, klik OK.

Untuk memasukkan data yang akan ditampilkan komponen MSChart harus dilakukan dari kode program. Berikut ini contoh kode program yang dapat dipakai untuk mengolah MSChart secara dinamis dari kode program, baik untuk Chart yang berbentuk Pie, Line, Bar, dll.

Public Class FChart

    Private Sub bPie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bPie.Click

        cChart.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

        'cChart.chartType = MSChart20Lib.VtChChartType.VtChChartType3dPie

        Dim MyArray(,) As Integer

        ReDim MyArray(0, 4)

        MyArray(0, 0) = 5

        MyArray(0, 1) = 4

        MyArray(0, 2) = 3

        MyArray(0, 3) = 2

        MyArray(0, 4) = 1

        cChart.ChartData = MyArray

        cChart.Row = 1

        cChart.RowLabel = "Hasil Pemilu"

        cChart.Column = 1

        cChart.ColumnLabel = "Partai Merah"

        cChart.Column = 2

        cChart.ColumnLabel = "Partai Kuning"

        cChart.Column = 3

        cChart.ColumnLabel = "Partai Biru"

        cChart.Column = 4

        cChart.ColumnLabel = "Partai Hijau"

        cChart.Column = 5

        cChart.ColumnLabel = "Partai Putih"

        cChart.Title.Text = "Chart Pie"

        cChart.ShowLegend = True

    End Sub

    Private Sub bLine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLine.Click

        cChart.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

        'cChart.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

        Dim MyArray(,) As Double

        ReDim MyArray(2, 4)

       

        Dim i, j As Integer

        For i = 0 To UBound(MyArray)

            For j = 0 To UBound(MyArray, 2)

                MyArray(i, j) = Rnd() * 10

            Next

        Next

        cChart.ChartData = MyArray

        cChart.Row = 1

        cChart.RowLabel = "Satu"

        cChart.Row = 2

        cChart.RowLabel = "Dua"

        cChart.Row = 3

        cChart.RowLabel = "Tiga"

        cChart.Column = 1

        cChart.ColumnLabel = "Nilai A"

        cChart.Column = 2

        cChart.ColumnLabel = "Nilai B"

        cChart.Column = 3

        cChart.ColumnLabel = "Nilai C"

        cChart.Column = 4

        cChart.ColumnLabel = "Nilai D"

        cChart.Column = 5

        cChart.ColumnLabel = "Nilai E"

        cChart.Title.Text = "Chart Line"

        cChart.ShowLegend = True

    End Sub

    Private Sub bBar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bBar.Click

        cChart.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

        'cChart.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

        Dim i, j As Integer

        cChart.RowCount = 3

        cChart.ColumnCount = 5

        For i = 1 To cChart.RowCount

            For j = 1 To cChart.ColumnCount

                cChart.Row = i

                cChart.Column = j

                cChart.Data = Rnd() * 10

            Next

        Next

        cChart.Row = 1

        cChart.RowLabel = "Satu"

        cChart.Row = 2

        cChart.RowLabel = "Dua"

        cChart.Row = 3

        cChart.RowLabel = "Tiga"

        cChart.Column = 1

        cChart.ColumnLabel = "Nilai A"

        cChart.Column = 2

        cChart.ColumnLabel = "Nilai B"

        cChart.Column = 3

        cChart.ColumnLabel = "Nilai C"

        cChart.Column = 4

        cChart.ColumnLabel = "Nilai D"

        cChart.Column = 5

        cChart.ColumnLabel = "Nilai E"

        cChart.Title.Text = "Chart Bar"

        cChart.ShowLegend = True

    End Sub

End Class

Setelah dijalankan, hasilnya dapat dilihat pada tampilan berikut ini :

---

ActionScript AS3 ASP.NET AJAX C / C++ C# Clipper COBOL ColdFusion DataFlex Delphi Emacs Lisp Fortran FoxPro Java J2ME JavaScript JScript Lingo MATLAB Perl PHP PostScript Python SQL VBScript Visual Basic 6.0 Visual Basic .NET Flash MySQL Oracle Android

---

Related Post :

---

Judul: Membuat Aplikasi Chart MSChart dengan VB.NET
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh hank2

Anda sedang membaca artikel tentang Membuat Aplikasi Chart MSChart dengan VB.NET, Semoga artikel tentang Membuat Aplikasi Chart MSChart dengan VB.NET ini sangat bermanfaat bagi teman-teman semua, jangan lupa untuk mengunjungi lagi melalui link Membuat Aplikasi Chart MSChart dengan VB.NET.

---