Tanpa basa basi langsung saja kita akan membuat project baru di visual studio. sebelumnya ada hal yang perlu dibutuhkan diantaranya, kamu harus mempunyai sebuah database (Database MySQL) baca Cara membuat database MySQL dan sudah menginstall ODBC driver untuk mengoneksikan aplikasi kita dengan Database MySQL nantinya, baca cara mudah membuat koneksi dengan ODBC Driver karena dalam tutorial ini kita akan membuat koneksi ke database dengan ODBC Class.
Buatlah project baru dengan nama "AplikasiChart" dan pada form1.vb tambahkan componen chart, sehingga tampilan sederhana pada form1.vb kamu seperti gambar berikut :
Langsung saja kita akan membuatkan code untuk mengkoneksikan aplikasi ke database dan fatch data dari database serta akan menampilkan valuenya kedalam chart. klik dua kali pada form1.vb
Source Code Vb.NET Chart
Imports System.Data.OdbcSesuaikan dengan kebutuhan dan sebagai pembelajaran, jika semua sudah selesai coba di run aplikasinya. jika kamu masih bingung dengan tutorial diatas bisa langsung melihat video tutorialnya dibawah ini :
Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) _
Handles MyBase.Load
' before follow this tutorial,
' you must have a database (MySQL database)
' we will make a connections using ODBC Drivers
' i have a database already for used
' so we will create a connection using ODBC class
Dim cmd As OdbcCommand
Dim da As OdbcDataAdapter
Dim ds As DataSet
Dim koneksi As OdbcConnection
' declaration our connection
koneksi = New OdbcConnection("DSN=java_db;" _
+ "MultipleActiveResultSets=True")
koneksi.Open() ' open the connection
' Select data from database
cmd = New OdbcCommand("SELECT * FROM " _
+ "programming order by id", koneksi)
da = New OdbcDataAdapter(cmd)
ds = New DataSet
da.Fill(ds, "programming")
koneksi.Close() ' close our connection
' set our datasource
Chart1.DataSource = ds.Tables("programming")
' set the series name
Dim Series1 As Series = Chart1.Series("Series1")
' Asigning values to x Axis
Chart1.Series(Series1.Name).XValueMember = "language"
' Asigning values to y Axis
Chart1.Series(Series1.Name).YValueMembers = "statistik"
' Column style chart
'Chart1.Series(Series1.Name).ChartType = SeriesChartType.Column
' Line style chart
'Chart1.Series(Series1.Name).ChartType = SeriesChartType.Line
' pie Style chart
'Chart1.Series(Series1.Name).ChartType = SeriesChartType.Pie
' funnel style chart
Chart1.Series(Series1.Name).ChartType = SeriesChartType.Funnel
End Sub
End Class
Video Tutorial Membuat Chart Sederhana di VB.NET
Download Aplikasi Chart VB.NET Sederhana
Download Database MySQL Chart Sederhana