Chart di VB 6

Dalam pembuatan sebuah aplikasi, ada banyak hal yang bisa dilakukan programmer untuk membuat aplikasi buatannya menjadi lebih bagus, enak digunakan, bebas error, informatif, maupun menarik dalam penampilannya.

Nah, dalam rangka memperindah tampilan dan membuat aplikasi tampak lebih informatif, kita sering menggunakan tampilan chart. Pada VB 6,penggunaan chart sering kita jumpai dalam pemakaiannya sehari-hari.Terutama yang berhubungan dengan penampilan data numerik. Tutorial ini merupakan pengalaman saya dalam menggunakan Ms Chart, walaupun sederhana tetapi semoga dapat berguna.

Untuk memulai, anda harus menambahkan kontrol Microsoft Chart Control 6.0(OLEDB) pada Project anda. Kemudian bentuk form anda seperti gambar dibawah ini.

Membuat Chart di VB

silahkan perhatikan source code-nya untuk masalah penamaan kontrol. Pada jendela coding silahkan masukkan code berikut :Private Sub Form_Load()
‘Mengisi combo box dengan beberapa jenis chart types.
With Combo1
.AddItem “3D Bar”
.AddItem “2D Bar”
.AddItem “3D Line”
.AddItem “2D LIne”
.AddItem “3D Area”
.AddItem “2D Area”
.AddItem “3D Step”
.AddItem “2D Step”
.AddItem “3D Combination”
.AddItem “2D Combination”
End With

‘Mendeklarasikan variabel 2D array untuk menyimpan nilai dari chart
Dim X(1 To 7, 1 To 6) As Variant

X(1, 2) = “Jagung”
X(1, 3) = “Padi”
X(1, 4) = “Kedelai”
X(1, 5) = “Singkong”
X(1, 6) = “Tebu”

X(2, 1) = “JAN”
X(2, 2) = 2
X(2, 3) = 3
X(2, 4) = 4
X(2, 5) = 5
X(2, 6) = 6

X(3, 1) = “FEB”
X(3, 2) = 4
X(3, 3) = 6
X(3, 4) = 3
X(3, 5) = 10
X(3, 6) = 18

X(4, 1) = “MAR”
X(4, 2) = 1
X(4, 3) = 3
X(4, 4) = 8
X(4, 5) = 7
X(4, 6) = 9

X(5, 1) = “APR”
X(5, 2) = 4
X(5, 3) = 6
X(5, 4) = 13
X(5, 5) = 10
X(5, 6) = 12

X(6, 1) = “MEI”
X(6, 2) = 2
X(6, 3) = 9
X(6, 4) = 9
X(6, 5) = 12
X(6, 6) = 7

X(7, 1) = “JUN”
X(7, 2) = 13
X(7, 3) = 20
X(7, 4) = 5
X(7, 5) = 18
X(7, 6) = 11

‘2D array merupakan data untuk chart control.
MSChart1.ChartData = X

‘Default chart type adalah  2D bar chart.
MSChart1.chartType = 1

End Sub

Private Sub Check1_Click()
If Check1.Value = 1 Then
‘Show Legends
MSChart1.ShowLegend = True
Check1.Caption = “&Hide Legends”
Else
‘Hide Legends
MSChart1.ShowLegend = False
Check1.Caption = “&Show Legends”
End If
End Sub

Private Sub Combo1_Click()
‘untuk mengubah type chart saat run time.
MSChart1.chartType = Combo1.ListIndex
End Sub

Bila berjalan lancar maka bila di jalankan hasilnya akan sepeti ini :

Membuat Chart dengan VB

Apabila kita perhatikan source code-nya, saya menggunakan array sebagai data untuk chart kita. Pada praktek sehari-hari, biasanya data diambil dari sebuah database sumber. Untuk melakukan hal tersebut, prinsipnya sih mirip-mirip dengan tutorial ini. Silahkan anda mengeksplorasinya dan semoga bermanfaat. Ref : http://octtenz.wordpress.com/2009/06/04/berkenalan-dengan-ms-chart/