Deskripsi Latihan_43_36110034
Form
Latihan 43 terdapat dua object yaitu datagridview, dan Microsoft chart 6.0:
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_36110034 yang telah dibuat sebelumnya.
2. Buka visual basic Kumpulan_Latihan_36110034 yang telah dibuat sebelumnya.
3. Buat form baru dengan nama Latihan_43_36110034 sesuai 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_43
Public
Class Latihan_43_36110034
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_43_36110034_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
QPembelianPerJenisBarang", connec)
Table.Rows.Clear()
Angkut.Fill(Table)
dgv_36110034.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("Kode Barang")
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
End Class
6. Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar