Deskripsi Latihan_44_36110042
A.
Object-object
dalam Latihan_44_36110042:
1. Object DataGridView
Terdapat satu object datagridview yang digunakan untuk menampilkan data querie
QpembelianPerBulanan yang ada pada database Data Grafik.
2. Object Chart
Terdapat satu object chart yang digunakan untuk menampilkan diagram
berdasarkan data yang ada pada datagridview.
3. Object Button
Terdapat lima object button (grafik batang, grafik line, grafik lingkar,
grafik batang 3D, dan grafik line 3D). Tombol grafik batang digunakan untuk
menampilkan diagram dalam bentuk batang. Tombol grafik line digunakan untuk
menampilkan diagram dalam bentuk garis. Tombol grafik lingkar digunakan untuk
menampilkan diagram dalam bentuk lingkaran. Tombol grafik batang 3D digunakan
untuk menampilkan diagram dalam bentuk batang 3D. Dan tombol grafik line 3D
digunakan untuk menampilkan digaram dalam bentuk garis 3D.
B.
Script Unique
Untuk script,
silahkan lihat selengkapnya pada Langkah-Langkah
Latihan_44_36110042.
C.
Even
Latihan_44_36110042_Load
GBATANG_36110042_Click
GBATANG3D_36110042_Click
GLINE_36110042_Click
GLINE3D_36110042_Click
GLINGKARAN_36110042_Click
Langkah-Langkah Latihan_44_36110042
1.
Klik Start lalu pilih Microsoft
Visual Studio 2008.
2.
Lalu akan muncul Start
Page Microsoft Visual Studio 2008.
3.
Pilih Recent Project
“Kumpulan_Latihan_36110042”
4.
Setelah terbuka, pilih icon Add
New Item atau Ctrl+Shift+A
5.
Akan terbuka jendela Add New
Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_44_36110042”
6. Kemudian buat form sesuai dengan form
di bawah ini.
7. Berikut ini adalah rumus untuk
menjalankan form di atas.
Public Class Latihan_44_36110042
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_36110042_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_36110042.DataSource = TABLE
GRAFIK_36110042.RowCount =
TABLE.Rows.Count
GRAFIK_36110042.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
GRAFIK_36110042.Row = sekarang
GRAFIK_36110042.RowLabel = BARIS("Bulan")
GRAFIK_36110042.Column = 1
GRAFIK_36110042.Data = BARIS("Unit")
GRAFIK_36110042.Column = 2
GRAFIK_36110042.Data = BARIS("Rata-Rata Harga") / 10000
GRAFIK_36110042.Column = 3
GRAFIK_36110042.Data = BARIS("Jumlah") / 10000
Next
End Sub
Private Sub
GBATANG_36110042_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GBATANG_36110042.Click
GRAFIK_36110042.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub
GLINE_36110042_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GLINE_36110042.Click
GRAFIK_36110042.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub
GLINGKARAN_36110042_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GLINGKARAN_36110042.Click
GRAFIK_36110042.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub
GBATANG3D_36110042_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GBATANG3D_36110042.Click
GRAFIK_36110042.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub
GLINE3D_36110042_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GLINE3D_36110042.Click
GRAFIK_36110042.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
8. Setelah itu, jalankan
programnya dengan klik Icon
Start Debugging kemudian akan mucul form navigator dan klik Latihan 44.
Tidak ada komentar:
Posting Komentar