Deskripsi Penyelesaian
Latihan_44_36110041
A. Objek dalam Form Latihan_44:
Dalam form latihan ini terdapat tiga object yaitu DataGridView,
Chart, dan Button.
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 scriptnya akan ditampilkan
secara keseluruhan dalam prosedur
Latihan_44_36110041
C.
Even
Latihan_44_36110041_Load
Batang_36110041_Click
Batang3D_36110041_Click
Line_36110041_Click
Line3D_36110041_Click
Lingkar_36110041_Click
Prosedur penyelesaian
1. Buka Project yang telah dibuat sebelumnya klik Add New Item
==> Add Windows Form
2.
Kemudian beri
nama dan klik Add
3.
Buat
form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada
postingan sebelumnya.
4. Berikut ini adalah rumus untuk menjalankan form di atas.
Public Class
Latihan_44_36110041
Dim rizka As New DataTable
Dim azisah As New OleDb.OleDbConnection("
Provider = microsoft.ace.oledb.12.0; data source = " &
Application.StartupPath & "\Data
Grafik.accdb;Jet OLEDB:Database Password=008")
Private Sub
Latihan_44_36110041_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Dim sis As New OleDb.OleDbDataAdapter
sis = New OleDb.OleDbDataAdapter("Select
* From QPembelianPerBulanan", azisah)
rizka.Rows.Clear()
sis.Fill(rizka)
Rizka_36110041.DataSource = rizka
sis.Dispose()
Grafik_36110041.RowCount = rizka.Rows.Count
Grafik_36110041.ColumnCount = 3
Dim Posisi As Integer = 0
For Each BarisX As DataRow In
rizka.Rows
Posisi =
Posisi + 1
Grafik_36110041.Row = Posisi
Grafik_36110041.RowLabel = BarisX("Bulan")
Grafik_36110041.Column = 1
Grafik_36110041.Data
= BarisX("Unit")
Grafik_36110041.Column = 2
Grafik_36110041.Data = BarisX("Rata-Rata
Harga") / 1000
Grafik_36110041.Column = 3
Grafik_36110041.Data = BarisX("Jumlah")
/ 10000
Next
End Sub
Private Sub
Batang_36110041_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Batang_36110041.Click
Grafik_36110041.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub
Batang3D_36110041_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
Batang3D_36110041.Click
Grafik_36110041.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub
Line_36110041_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Line_36110041.Click
Grafik_36110041.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub
Line3D_36110041_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Line3D_36110041.Click
Grafik_36110041.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
Private Sub
Lingkar_36110041_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
Lingkar_36110041.Click
Grafik_36110041.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
End Class
5. Setelah itu,
jalankan programnya.
