banyak
sekali komponen - komponen yang terdapat pada VB.Net yang dapat digunakan untuk
menampilkan data menggunakan grafik / kurva / chart dan lain - lain. Pada
kesempatan kali ini saya akan mencoba menjelaskan menampilkan data berupa
grafik menggunakan komponen MSCHART yang merupakan komponen gratis dapat
dipakai pada visual studio baik dari database maupun tanpa database.
MSChart
Kontrol merupakan komponen terkait dengan data grid (Object Datagrid). Datagrid
ini adalah tabel yang menyimpan data yang akan di petakan pada grafik / chart.
Datagrid juga menyertakan label yang digunakan untuk mengidentifikasi seri dan
katagori pada tabel. Orang yang merancang aplikasi grafik akan mengisi datagrid
dengan informasi dengan memasukan data langsung atau dengan import data dari
spreadsheet atau array.
Langsung Saja Brayyy..MSCHART Tanpa Database
Pertama
Buat Project VB dan Pilih Windows Form
Pada Toolbox Pilih MSCHART
seperti pada gambar dibawah ini :
Untuk
Tahap Kedua
Klik
dua kali pada form masukkan kode program seperti berikut :
Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
With Chart1 '=Nama Group
Dim namaMHS() As String = {"Andi",
"Nurdin"}
.Series.Clear()
For i As Integer = 0 To
namaMHS.Length - 1
'nama series
.Series.Add(namaMHS(i))
Next
'Format Series/Chart
.ChartAreas(0).AxisX.Interval = 1
.ChartAreas(0).AxisX.IsStartedFromZero = True
For Each seri As Series In Series
'tipe Chart
seri.ChartType = SeriesChartType.Column
'tipe Nilai X
seri.XValueType = ChartValueType.String
'tipe Nilai Y
seri.YValueType = ChartValueType.Double
Next
'Isi Nilai Series/Chart (X,Y)
.Series(0).Points.AddXY("RPL",
100)
.Series(0).Points.AddXY("Visual C",
70)
.Series(0).Points.AddXY("Visual D",
45)
.Series(0).Points.AddXY("Visual J",
60)
.Series(1).Points.AddXY("RPL",
90)
.Series(1).Points.AddXY("Visual C",
25)
.Series(1).Points.AddXY("Visual D",
80)
.Series(1).Points.AddXY("Visual J",
60)
End With
End Sub
End Class
Tahap
ketiga ganti Text pada form dengan nama “MSCHART Tanpa Database”
Note :
Untuk
CHART model BAR “X” menentukan nilai vertical dan “Y” menentukan nilai
horizontal
Setelah
itu silahkan anda coba menjalankannya..
MSCHART dengan Database
Oke
Brayy kita akan mencoba lagi membuat MSCHART dengan koneksi database
Nahh
Sekarang mari kita mulai tahap-tahapnya sebagai berikut :
1. Tambahkan module
Masukkan
kode berikut didalam module
'database menggunakan komponen oledb
Imports System.Data.OleDb
Imports System.Data
'import MSChart pada code
Imports System.Windows.Forms.DataVisualization.Charting
Module Module1
Public oleconn As OleDbConnection
Public strConn As String
Sub BukaData()
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=" & Application.StartupPath
& "\data.accdb;" ‘(jikalau menggunakan seri access 2007)
' strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & Application.StartupPath & "\data.mdb;"
(jikalau menggunakan seri access 2003)
oleconn = New OleDbConnection(strConn)
If oleconn.State = ConnectionState.Closed
Then
Try
oleconn.Open()
' MessageBox.Show("DATABASE
CONNECTED")
Catch ex As Exception
MsgBox(ex.Message)
Application.Exit()
End Try
End If
End Sub
Public Sub
munculData(ByVal chart1 As Chart)
Dim myCmd As New OleDbCommand
Dim myReder As OleDbDataReader
myCmd.CommandText = "SELECT * FROM data
order by ID"
myCmd
= New OleDbCommand(myCmd.CommandText,
oleconn)
myReder = myCmd.ExecuteReader
Try
While myReder.Read
With chart1
.ChartAreas(0).AxisX.Interval = 1
.ChartAreas(0).AxisX.IsStartedFromZero = True
.Series(0).Name = myReder.Item("Nama").ToString
.Series(0).Points.Clear()
For Each
seri As Series
In .Series
seri.ChartType = SeriesChartType.Column
seri.XValueType = ChartValueType.String
seri.YValueType = ChartValueType.Double
Next
Do While
myReder.Read
.Series(0).Points.AddXY(myReder.Item("ID").ToString,
myReder.Item("Data"))
Loop
End With
End While
Finally
End Try
End Sub
End Module
Tambahkan Form & MSCHART
Masukkan
Kode berikut
Public Class Form2
Private Sub
Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
BukaDatabas() 'untuk koneksi database
tampildata(Chart1) ' untuk menampilkan data
pada MSChart
End Sub
End Class
Dan
coba menjalankan Form yang baru saja ditambahkan..
Dengan
mengganti StartUp Form pada MyProject yaitu dengan cara klik dua kali pada
MyProject cari kolom startUp pilih Form2
Silahkan
dijalankan…
Mohon diperhatikan dengan
seksama agar tidak bingung………….ada Kopikah kakaks... :D
Donwload Artikel
ConversionConversion EmoticonEmoticon Off Topic