Cara Membuat Chart Grafik Pada Visual Studio 2012

Halo Teman-Teman . Pada Artikel kali ini saya akan membuat Grafik menggunakan metode Chart. Metode ini relatif lebih mudah karena kita memanfaatkan komponen chart pada toolbox yang telah disediakan oleh Visual basic. . Penggunaan komponen ini memudah kan programmer untuk merancang aplikasi dalam bentuk grafik.

Simak baik-baik dan berikut ini cara membuat Chart Grafik Pada Visual Studio 2012 :

1.    Tambahkan Windows Form baru dengan mengarahkan kursor pada menu Project, klik Add Windows Form dan beri nama Grafik_Chart.

2. Kalian Buka ToolBox (Ctrl  + Alt + X) dan kalian ketik & cari "Chart",Kemudian kalian tarik/ klik 2 kali untuk menambahkan chart pada form.

3. Atur properties komponen Chart untuk mengubah tipe jenis chart menjadi grafik dengan cara arahkan kursor ke properties, pilih menu Series, kliklah kotak kecil yang berada di sebelah kanan dari properti series tersebut. 

4.   Setelah kalian klik icon tersebut maka akan muncul jendela baru editor dari properties Series. Arahkan kursor pada menu ChartType dan pilihlah menu Line. 

5..    Tambahkan komponen Timer1.

6.   Tambahkan komponen tombol Button1 dan ubah properti Text-nya menjadi “Start”. 

7.  Tambahkan komponen VScrollBar1, letakan disamping Chart1 dan sesuaikan seperti berikut. 

Untuk lebih detail dari properties komponen yang digunakan, perhatikan tabel berikut : 

Obyek	Properti	Pengaturan
Chart1	Name  ChartType	Chart1 Line
VScrollBar	Name  LargeChange Maximum Minimum	VScrollBar1 1 100 0
Button1	Name Text	Button1 “Start”
Label1	Name Text	Label1 “Kecepatan”
Timer1	Enabled Interval	False 100
Form1	Text	“Grafis_Chart”

Berikut ini kode script Grafis Chart : 

Public Class Grafis_Chart

Dim gambar_plot As New DataTable

Dim x,y As Integer

Private Sub GrafisChart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

gambar_plot.Columns.Add("Waktu", GetType(Integer)) gambar_plot.Columns.Add("Kecepatan", GetType(Integer))

With Chart1.ChartAreas(0)

 .AxisX.Minimum = 0

  .AxisX.Maximum = 3000

  .AxisY.Minimum = 0

  .AxisY.Maximum = 100

  .AxisY.Interval = 10

  .AxisX.Title = "Waktu (ms)"

  .AxisY.Title = "Kecepatan (km/jam)"

En d Wi th

x = 0

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

End S ub

      

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

y = 100 - VScrollBar1.Value gambar_plot.Rows.Add(x, y)

       

With Chart1.Series(0)

.Points.DataBind(gambar_plot.DefaultView,   "Waktu", "kecepatan", Nothing)

.BorderWidth = 1

End With  x = x + 10

If x >= 3000 Then

Chart1.Refresh()  

x = 0   y = 0 End If

End S ub

End C lass