Latihan_44_46110022
Deskripsi Form Latihan_44 46110022
Dalam
form ini terdapat 3 buah object yaitu object DataGriedView, Microsoft Chart Control
dan button.
Object DataGriedView
Terdapat
sebuah objek DataGriedView yang berfungsi untuk menampilkan data ke dalam
bentuk tabel yang terdiri dari baris dan kolom.
Object Microsoft Chart
Control
Terdapat
sebuah objek Microsoft Chart Control dalam bentuk grafik untuk menampilkan
pendapatan dan biaya setiap tahunnya.
Object
Button
Terdapat
5 buah object button yaitu Grafik batang,
Grafik Line, Grafik Lingkar, Grafik batang 3D dan Grafik Line 3D.
Script Unique
1. Menampilkan grafik berbentuk
batang 2D :
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
2. Menampilkan grafik berbentuk
garis 2D :
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
3. Menampilkan grafik berbentuk
lingkaran :
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
4. Menampilkan grafik berbentuk
batang 3D :
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
5. Menampilkan grafik berbentuk
garis 3D :
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
Even
Load
Click
Langkah-Langkah Membuat Form Latihan 44_46110022
1. Buat form baru
seperti langkah berikut :
2. Input nama form
pada kolom yang tersedia, lalu klik "add" seperti berikut :
3. Buat desain form
seperti gambar berikut :
4. Input script di
bawah ini :
Public Class Latihan_44_46110022
Dim alfa As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
Dim ega As New DataTable
Private Sub Latihan_44_46110022_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim
kacci As New
OleDb.OleDbDataAdapter
kacci = New
OleDb.OleDbDataAdapter("select * from
qpembelianperbulanan", alfa)
ega.Rows.Clear()
kacci.Fill(ega)
kacci.Dispose()
dgv46110022.DataSource = ega
grafik46110022.RowCount =
ega.Rows.Count
grafik46110022.ColumnCount = 3
Dim
sekarang As Integer
= 0
For Each kake As DataRow In ega.Rows
sekarang = sekarang + 1
grafik46110022.Row = sekarang
grafik46110022.RowLabel = kake("Bulan")
grafik46110022.Column = 1
grafik46110022.Data = kake("Unit")
grafik46110022.Column = 2
grafik46110022.Data = kake("Rata-Rata Harga") / 10000
grafik46110022.Column = 3
grafik46110022.Data = kake("Jumlah") / 10000
Next
End Sub
Private Sub GB146110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles GB146110022.Click
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub GL46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles GL46110022.Click
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub GLK46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles GLK46110022.Click
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub GB246110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles GB246110022.Click
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub GL246110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles GL246110022.Click
grafik46110022.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
5. Jalankan program dengan cara mengklik start debugging seperti berikut
:
6. Setelah menekan start debug, maka akan tampil hasil dari latihan 44 seperti
berikut :
7.
Selamat mencoba, semoga berhasil :)
Postingan
