Tahap
Penyelesaian Latihan_44_36110031
1.
Buka Project yang telah dibuat, lalu
buka solution Explorer
2.
Setelah
itu klik kanan nama project, pilih add dan klik “new item”
3.
Click Add New Item terbuka,
pilih Windows Form, lalu isi Name dengan Nama Latihan_44 dan add. seperti pada gambar dibawah:
4.
Buat Form Latihan_44 dibawah ini:
5.
Berikut ini Rumus untuk menjalankan
Form diatas:
Public Class Latihan_44_36110031
Dim Audry As
New OleDb.OleDbConnection("Provider = microsoft.ace.oledb.12.0;data
source=" & Application.StartupPath & "\Data Grafik.accdb;Jet OLEDB:Database
Password=3711")
Dim Tabel As
New DataTable
Private Sub
Latihan_44_36110031_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
Dim Ias
As New
OleDb.OleDbDataAdapter
Ias = New
OleDb.OleDbDataAdapter("Select * From
QPembelianPerBulanan", Audry)
Tabel.Rows.Clear()
Ias.Fill(Tabel)
DGV_36110031.DataSource = Tabel
Ias.Dispose()
Grafik_36110031.RowCount =
Tabel.Rows.Count
Grafik_36110031.ColumnCount = 3
Dim
Posisi As Integer
= 0
For Each BarisX As
DataRow In Tabel.Rows
Posisi = Posisi + 1
Grafik_36110031.Row = Posisi
Grafik_36110031.RowLabel = BarisX("Bulan")
Grafik_36110031.Column = 1
Grafik_36110031.Data =
BarisX("Unit")
Grafik_36110031.Column = 2
Grafik_36110031.Data = BarisX("Rata-Rata Harga") / 1000
Grafik_36110031.Column = 3
Grafik_36110031.Data = BarisX("Jumlah") / 10000
Next
End Sub
Private Sub
GBatang_36110031_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GBatang_36110031.Click
Grafik_36110031.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub
GLine_36110031_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GLine_36110031.Click
Grafik_36110031.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub
GLingkar_36110031_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GLingkar_36110031.Click
Grafik_36110031.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub
GBatang3D_36110031_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GBatang3D_36110031.Click
Grafik_36110031.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub
Gline3D_36110031_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Gline3D_36110031.Click
Grafik_36110031.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
End Class
6.
Setelah itu
jalankan Programnya dengan menekan “start debugging”
7.
Setelah
memasukkan rumus diatas, maka akan muncul tampilan seperti dibawah ini:
8.
Kemudian simpan
file tersebut dengan menekan icon “save”
9.
Selesai
Deskripsi
Latihan_44_36110031
-
Object DataGridView
Terdapat satu object datagridview yang digunakan untuk
menampilkan data querie QpembelianPerBulanan yang ada pada database Data
Grafik.
-
Object Chart
Terdapat satu object chart yang digunakan untuk
menampilkan diagram berdasarkan data yang ada pada datagridview.
-
Object Button
Terdapat lima object button (grafik batang, grafik
line, grafik lingkar, grafik batang 3D, dan grafik line 3D). Dimana 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.
Script
Unique
Script dapat
dilihat secara menyeluruh pada tahap penyelesaian yang tertera diatas…
Even
Latihan_44_36110031_Load
GBatang_36110031_Click
GLine_36110031_Click
GLingkar_36110031_Click
GBatang3D_36110031_Click
GLine3D_36110031_Click
