v Tahap Penyelesaian Latihan_44_36110040
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_36110040
4. Buat Form Latihan_44 dibawah ini:
5. Berikut
ini Rumus untuk menjalankan Form diatas:
Public
Class Latihan_44_36110040
'Mendeklarasikan
object connection
Dim
Jembatan As New
OleDb.OleDbConnection(" Provider =
microsoft.ace.oledb.12.0; data source = " &
Application.StartupPath & "\Data
Grafik.accdb; jet OLEDB:Database Password=040")
'Mendeklarasikan
datatable
Dim Table As New DataTable
Private Sub Latihan_44_36110040_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
'Menampillkan
data ke datagridview
Dim
Angkut As New
OleDb.OleDbDataAdapter
Angkut = New
OleDb.OleDbDataAdapter("Select * From
QPembelianPerBulanan", Jembatan)
Table.Rows.Clear()
Angkut.Fill(Table)
dgv36110040.DataSource = Table
Angkut.Dispose()
'Menghitung
jumlah baris
grafik36110040.RowCount =
Table.Rows.Count
'Menghitung
jumlah kolom
grafik36110040.ColumnCount = 3
'Memasukkan
data ke grafik
Dim
Posisi As Integer
= 0
For Each BarisX As
DataRow In Table.Rows
Posisi = Posisi + 1
grafik36110040.Row = Posisi
grafik36110040.RowLabel = BarisX("Bulan")
grafik36110040.Column = 1
grafik36110040.Data = BarisX("Unit")
grafik36110040.Column = 2
grafik36110040.Data = BarisX("Rata-Rata Harga") / 1000
grafik36110040.Column = 3
grafik36110040.Data = BarisX("Jumlah") / 10000
Next
End Sub
Private Sub Batang36110040_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Batang36110040.Click
grafik36110040.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub Batang3D_36110040_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
Batang3D_36110040.Click
grafik36110040.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub Line36110040_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Line36110040.Click
grafik36110040.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub Line3D_36110040_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Line3D_36110040.Click
grafik36110040.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
Private Sub Lingkar361_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Lingkar36110040.Click
grafik36110040.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
End Class
6. Setelah itu
jalankan Programnya dengan menekan “start debugging”
7. Kemudian simpan
file tersebut dengan menekan icon “save”
8. Selesai
v Deskripsi Latihan_44_36110040
A.
Object data
gridview
Terdapat satu data gridview yang
digunakan untuk menampilkan data
querie QpembelianPerBulanan yang terdiri dari
bulan, unit, rata-rata harga, jumlah.
B.
Object Microsoft chart
Terdapat satu object chart yang
digunakan untuk menampilkan diagram berdasarkan data querie QpembelianPerBulanan yang ada pada data gridview.
C.
Object button
Terdapat lima object button (grafik
batang, grafik line, grafik lingkaran, grafik batang 3D, dan grafik line 3D).
button grafik batang digunakan untuk menampilkan diagram batang, button grafik
line digunakan untuk menampilkan diagram garis, button grafik lingkaran
digunakan untuk menampilkan diagram lingkaran, button grafik batang 3D
digunakan untuk menampilkan diagram batang 3D, button grafik line 3D digunakan
untuk menampilkan diagram garis 3D.
D.
Script
Unique
Untuk
script unique dapat dilihat pada Langkah-langkah mengerjakan
latihan_44_36110044.
E.
Even
LATIHAN_44_36110040_Load
grafik1_36110040_Click
grafik2_36110040_Click
grafik3_36110040_Click
grafik4_36110040_Click
grafik5_36110040_Click
Tidak ada komentar:
Posting Komentar