Plotting Real Time AxMsChart VB 2008 Express Edition

Aplikasi kali ini saya akan menampilkan cara plotting data Real Time menggunakan object component MSCHRT20.OCX dari product Visual Basic sendiri. Biasanya component ini sudah tersedia ketika menginstall Visual Basic 6.0 di PC kita sehingga hanya diharuskan untuk mengaktivasi keberadaan component tersebut pada ToolBox. Product Visual Basic 2008 Express Edition tidak menyediakan component MSCHRT20.OCX sehingga kita di haruskan men-download component ini secara gratis di internet.

Control code script MSCHRT20.OCX pada aplikasi Visual Basic 2008 Express Edition sedikit berbeda dengan coding script pada Visual Basic 6.0. Hasil tampilannya perhatikan gambar di atas.

ToolBox yang akan saya pergunakan, perhatikan tabel TollBox di bawah ini:

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: AxMschart Plotting Data Real Time V. Hutabalian's Blog
1 AxMsChart	Name:MsChart1
2 Label	Name:Label1 & 2
1 HScrollBar	Name:HScrollBar1
1 Timer	Name:Timer1

Desain Form table Toolbox di atas perhatikan gambar di bawah ini:

Setelah selesai mendesain 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.

Script AxMschart VB 2008 Express Edition:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'AxMschart Plotting Data Real Time V. Hutabalian's Blog'
'======================================================================='
' '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Programing By: Verynandus Hutabalian'
' Publish to V. Hutabalian's Blog 23 July 2010 '
' Copyright © ==>>> Verynandus Hutabalian '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Timer1.Interval = 1000
Label1.Text = "Data :"
MSChart1.ColumnCount = 1
MSChart1.RowCount = 10
MSChart1.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.Auto = False
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.Minimum = -10
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.Maximum = 10
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.MajorDivision = 10
MSChart1.Plot.SeriesCollection(1).Pen.Width = 25
MSChart1.TitleText = "Ploting Data Real Time AxMschart V. Hutabalian's Blog"
MSChart1.Plot.Backdrop.Fill.Style = MSChart20Lib.VtFillStyle.VtFillStyleBrush
MSChart1.Plot.Backdrop.Fill.Brush.FillColor.Set(0, 0, 0)
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX).AxisTitle.Text = "Pergeseran HScroll"
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).AxisTitle.Text = "Nilai HScroll"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Data_HScroll As Integer
Dim n As Integer
Data_HScroll = CStr(HScrollBar1.Value)
Label2.Text = Data_HScroll
n = Label2.Text
For i As Integer = 1 To MSChart1.RowCount - 1
MSChart1.Row = i + 1
n = MSChart1.Data
MSChart1.Row = i
MSChart1.Data = n
Next
MSChart1.Column = 1
MSChart1.Row = MSChart1.RowCount
MSChart1.Data = Data_HScroll

End Sub

End Class

Setelah Anda mengetikkan listing source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini. Gerakkan Scroll pada Form untuk melihat nilai Plotting datanya.

Pengembangan program dapat anda variasikan sesuai dengan keinginan Anda.

Artikel terkait:
MSChart vs Visual Basic 2008 Express Edition===>>Klik disini
BarGraph with AxMSChart20Lib.AxMSChart===>>Klik disini

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