Deskripsi form Latihan_44_46110003
Dalam form Latihan_44_46110003 terdapat tiga object yaitu, Button Data Grid View dan Microsoft Chart Control.
Dalam form Latihan_44_46110003 terdapat tiga object yaitu, Button Data Grid View dan Microsoft Chart Control.
Microsoft Chart Control :
Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik
Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik
Object datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Object Button :
Terdapat lima objek button yaitu "Grafik Batang", "Grafik Line", "Grafik Lingkar", "Grafik Batang 3D", dan "Grafik Line 3D". kelima button ini berfungsi untuk menampilkan data grafik berdasarkan nama button.
Script Unique :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Object Button :
Terdapat lima objek button yaitu "Grafik Batang", "Grafik Line", "Grafik Lingkar", "Grafik Batang 3D", dan "Grafik Line 3D". kelima button ini berfungsi untuk menampilkan data grafik berdasarkan nama button.
Script Unique :
Perintah untuk menampilkan
grafik berbentuk batang 2D
grafik_46110003.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
Perintah untuk menampilkan grafik berbentuk
garis 2D
grafik_46110003.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
Perintah untuk menampilkan grafik berbentuk
lingkaran
grafik_46110003.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
Perintah untuk menampilakan
grafik berbentuk batang 3D
grafik_46110003.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
Perintah untuk menampilkan
grafik berbentuk garis 3D
grafik_46110003.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
Even :
Load
Langkah-langkah penyelesaian form Latihan_44_46110003
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_44_46110003
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
Dim gitik As New DataTable
Private Sub Latihan44_083_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
kacci As New
OleDb.OleDbDataAdapter
kacci = New
OleDb.OleDbDataAdapter("select * from
qpembelianperbulanan", Jalan)
gitik.Rows.Clear()
kacci.Fill(gitik)
kacci.Dispose()
DataGridView1_46110003.DataSource =
gitik
chart_46110003.RowCount =
gitik.Rows.Count
chart_46110003.ColumnCount = 3
'memasukkan
data ke setiap baris dan setiap kolom dari tabel keuangan
Dim
sekarang As Integer
= 0
For Each kake As DataRow In gitik.Rows
sekarang = sekarang + 1
chart_46110003.Row = sekarang
chart_46110003.RowLabel = kake("Bulan")
chart_46110003.Column = 1
chart_46110003.Data = kake("Unit")
chart_46110003.Column = 2
chart_46110003.Data = kake("Rata-Rata Harga") / 10000
chart_46110003.Column = 3
chart_46110003.Data = kake("Jumlah") / 10000
Next
End Sub
Private Sub GB1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles batang_46110003.Click
chart_46110003.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub GL_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles line_46110003.Click
chart_46110003.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub GLK_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
lingkaran_46110003.Click
chart_46110003.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub GB2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
batang3d_46110003.Click
chart_46110003.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub GL3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles line3d_46110003.Click
chart_46110003.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar