MSChart vs Visual Basic 2008 Express Edition

Tips kali ini, Saya akan menampilkan grafik data menggunakan MSChart pada form Visual Basic 2008. Pada Tips sebelumnya, saya selalu menampilkan grafik data dengan menggunakan PictureBox, kali ini saya menggunakan fasilitas Chart yang telah tersedia pada ToolBox (Bila pada ToolBox Anda object ini tidak tersedia, maka Anda harus mendownloadnya di internet secara gratis). Data contoh yang diinterpretasikan merupakan data random, hasil tampilannya perhatikan gambar di atas.

Object ToolBox yang saya gunakan pada Tips kali ini, perhatikan tabel berikut ini.

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: V. Hutabalian's Blog " MSChart vs Visual Basic 2008 Express Edition"
1 DataGridView	Name: DataGridView1
1 Chart	Name: Chart1
2 Button	Name: Button1 Text Button1: View Data

Desain dari object ToolBox yang saya gunakan, perhatikan juga gambar di bawah ini.

Setelah selesai mendesai Form dengan mengatur semua object propertis Toolbox. Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.

Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
' MSChart vs Visual Basic 2008 Express Edition '
'======================================================================='
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' By: V. Hutabalian '
' Publish to V. Hutabalian's Blog 4 Juni 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Imports System.Windows.Forms.DataVisualization.Charting
Imports System.Globalization

Public Class FrmChartTest
Dim dtTest As New DataTable
Dim dsTest As New DataSet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lstDays As New List(Of String)
lstDays.AddRange(CultureInfo.CurrentCulture.DateTimeFormat.AbbreviatedDayNames)

dtTest.Reset()
dsTest.Reset()
dtTest = dsTest.Tables.Add("dtTest")

dtTest.Columns.Add("Per-harinya", GetType(String))
dtTest.Columns.Add("Type 1", GetType(Integer))
dtTest.Columns.Add("Type 2", GetType(Integer))

Dim rnd As New Random
For r As Integer = 0 To 6
Dim value1 As Integer = rnd.Next(0, 101)
Dim value2 As Integer = rnd.Next(0, 101)
dtTest.Rows.Add(lstDays(r), value1, value2)
Next
DataGridView1.DataSource = dtTest
Chart1.Series.Clear() '//Clear all series

Chart1.Dock = DockStyle.Bottom
Chart1.Anchor = AnchorStyles.Bottom Or AnchorStyles.Top


Chart1.Series.Add("Type 1")
With Chart1.Series("Type 1")
.ChartType = SeriesChartType.Spline
.Name = "Type 1"
.LegendText = "Type 1"
.IsVisibleInLegend = True
.Font = New Font("Arial", 10, FontStyle.Italic)
.Color = Color.Blue
.IsValueShownAsLabel = True
.LabelForeColor = Color.Red
.Points.DataBind(dtTest.DefaultView, "Per-harinya", "Type 1", Nothing)
End With


Chart1.Series.Add("Type 2")
With Chart1.Series("Type 2")
.ChartType = SeriesChartType.Spline
.Name = "Type 2"
.LegendText = "Type 2"
.IsVisibleInLegend = True
.Font = New Font("Arial", 10, FontStyle.Italic)
.Color = Color.Coral
.IsValueShownAsLabel = True
.LabelForeColor = Color.Green
.Points.DataBind(dtTest.DefaultView, "Per-harinya", "Type 2", Nothing)
End With

With Chart1.ChartAreas(0)
.AxisY.Interval = 20
.AxisX.LabelStyle.Angle = -90
.AxisX.Title = "Hari"
.AxisY.Title = "Penjualan"
End With
End Sub


End Class

Setelah Anda mengetikkan listing source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini.



Kemudian tekan tombol View Data, hasilnya seperti gambar di bawah ini:

Pengembangan program dapat anda variasikan sesuai dengan keinginan Anda.
Artikel terkait:
BarGraph with AxMSChart20Lib.AxMSChart===>>Klik disini
MSChart vs Visual Basic 2008 Express Edition===>>Klik disini

Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian.