Pada Form Latihan_44 terdapat tiga object yaitu DataGridView,
Microsoft Chart, dan Button
DataGridView
Terdapat
1 DataGridView untuk menampilkan data grafik dari Query QPembelianPerBulanan
yang ada dalam Microsoft Access (BULAN, UNIT, RATA-RATA HARGA, JUMLAH)
Microsoft Chart
Terdapat
1 Microsoft Chart untuk menampilkan bentuk diagram dari data grafik yang telah
dimasukkan.
Button
Terdapat
5 object Button yaitu yang bertuliskan Grafik Batang, Grafik Batang 3D, Grafik
Line, Grafik Line 3D, Grafik Lingkaran.
Script Unique
Untuk Script Unique bisa
dilihat pada Prosedur Penyelesaian Latihan_44_36110044
Even
Latihan_44_36110044_Load
For Each BARIS As DataRow
In TABLE.Rows
BATANG_36110044_Click
LINE_36110044_Click
LING_36110044_Click
B3D_36110044_Click
L3D_36110044_Click
PROSEDUR PENYELESAIAN:
1.
Klik star lalu pilih Microsoft
Visual Studio 2008
2.
Pilih nama project Anda, misalnya
Kumpulan_latihan_36110044
3.
Jika sudah terbuka, perhatihan
Toolbox Anda untuk memastikan apakah Microsoft Chart-nya sudah aktif. Jika
belum aktif, buka salah satu design form latihan Anda kemudian klik kanan pada
daerah toolboxè choose items..dan akan muncul kotak
dialog seperti ini:
Pada kotak
dialog pilih Microsoft Chart Control 6.0 kemudian OK
Jalankan
program dan Microsoft Chart-nya akan aktif pada toolbox Anda.
4.
Lanjutkan dengan membuat form
baru dengan klik icon Add New Item
5.
Ubah
nama pada lembar “Add New Item” kemudian Add
6.
Buat
design form dengan menggunakan DateGridView dan Microsoft Chart
7.
Ganti nama DataGridView dan
Microsoft Chart menggunakan "Properties Window"
8.
Klik kanan pada kotak design kemudian
klik kanan pilih View Code untuk membuka lembar vb
Masukkan rumus berikut untuk menyelesaikan latihan_44
Masukkan rumus berikut untuk menyelesaikan latihan_44
Public Class Latihan_44_36110044
Dim CONNECT
As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= " & Application.StartupPath & "\data grafik.accdb;Jet OLEDB:Database
Password=27")
Dim TABLE As New DataTable
Private Sub Latihan_44_36110044_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
ADAPTER As New
OleDb.OleDbDataAdapter
ADAPTER = New
OleDb.OleDbDataAdapter("select * from
qpembelianperbulanan", CONNECT)
TABLE.Rows.Clear()
ADAPTER.Fill(TABLE)
ADAPTER.Dispose()
DGV_36110044.DataSource = TABLE
AxMSChart_36110044.RowCount =
TABLE.Rows.Count
AxMSChart_36110044.ColumnCount = 3
'memasukkan
data ke setiap baris dan setiap kolom dari tabel keuangan
Dim
sekarang As Integer
= 0
For Each BARIS As DataRow
In TABLE.Rows
sekarang = sekarang + 1
AxMSChart_36110044.Row = sekarang
AxMSChart_36110044.RowLabel =
BARIS("Bulan")
AxMSChart_36110044.Column = 1
AxMSChart_36110044.Data = BARIS("Unit")
AxMSChart_36110044.Column = 2
AxMSChart_36110044.Data = BARIS("Rata-Rata Harga") / 10000
AxMSChart_36110044.Column = 3
AxMSChart_36110044.Data = BARIS("Jumlah") / 10000
Next
End Sub
Private Sub BATANG_36110044_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BATANG_36110044.Click
AxMSChart_36110044.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub LINE_36110044_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles LINE_36110044.Click
AxMSChart_36110044.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub LING_36110044_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles LING_36110044.Click
AxMSChart_36110044.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub B3D_36110044_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles B3D_36110044.Click
AxMSChart_36110044.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub L3D_36110044_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles L3D_36110044.Click
AxMSChart_36110044.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
9. Jalankan program dengan menggunakan “start debugging”
Tidak ada komentar:
Posting Komentar