Latihan_44_46110009
Deskripsi Latihan_44_46110009
Form
Latihan 44 terdapat tiga object yaitu button, datagridview, dan Microsoft chart 6.0:
Object Button
Terdapat
lima object button (Grafik Batang, Grafik Line, Grafik Lingkar, Grafik Batang
3D dan Grafik Line 3D). Semua object button digunakan untuk menampilkan grafik
yang sesuai dengan button yang di klik.
Object Data GridView
Terdapat
satu data gridview yang digunakan untuk menampilkan DataTabel.
Object Microsoft Chart 6.0
Terdapat satu object Microsoft chart
6.0. digunakan untuk menampilkan grafik
Even
FormLoad
Prosedur penyelesaian
1. Buka Project_46110009yang telah
dibuat sebelumnya.
2. Buka visual basic Kumpulan_Latihan_46110009yang telah dibuat sebelumnya.
3. Buat form baru dengan nama Latihan_44_46110009sesuai form dibawah ini.
4. Ganti
semua nama objek yang ada selain label menggunakan "Properties
Window" sesuai dengan yang diinginkan dengan menambahkan stambuk
dibelakang nama obyek.
5. Klik
2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan
rumus berikut untuk menyelesaikan Latihan_44
Public
Class Latihan_44_46110009
Dim connec As New
OleDb.OleDbConnection(" Provider =
microsoft.ace.oledb.12.0; data source = " &
Application.StartupPath & "\Data
Grafik.accdb")
Dim Table As New DataTable
Private Sub Latihan_44_46110009_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim
Angkut As New
OleDb.OleDbDataAdapter
Angkut = New
OleDb.OleDbDataAdapter("Select * From
QPembelianPerBulanan", connec)
Table.Rows.Clear()
Angkut.Fill(Table)
dgv_36110038.DataSource = Table
Angkut.Dispose()
Grafik.RowCount = Table.Rows.Count
Grafik.ColumnCount = 3
Dim
Posisi As Integer
= 0
For Each BarisX As
DataRow In Table.Rows
Posisi = Posisi + 1
Grafik.Row = Posisi
Grafik.RowLabel = BarisX("Bulan")
Grafik.Column = 1
Grafik.Data = BarisX("Unit")
Grafik.Column = 2
Grafik.Data = BarisX("Rata-Rata
Harga") / 1000
Grafik.Column = 3
Grafik.Data = BarisX("Jumlah") / 10000
Next
End Sub
Private Sub batang_46110009_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles batang_46110009.Click
grafik.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub batang3d_36110038_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
batang3d_46110009.Click
grafik.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub Line_46110009_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Line_36110038.Click
grafik.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub line3d_46110009_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles line3d_46110009.Click
grafik.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
Private Sub lingkar_46110009_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
lingkar_46110009.Click
grafik.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
End Class
6. Tekan
F5 pada keyboard untuk menjalankan form.
