Latihan_43_46110055

Deskripsi Form Latihan 43

Pada form Latihan 43 Terdapat 2 object yaitu DataGridView dan Chart

Object DataGridView
Terdapat 1 DataGridView yang akan menampilkan data table.

Object Chart
Terdapat  1 Chart

Script Unique
Tidak ada Script Unique, krn scriptnya hampir sama dengan latihan sebelumnya

Even
Load

Property
-

Langkah-langkah membuat Latihan 43:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 43”

6. Setelah itu buatlah DataGridview dan Chart serta ganti nama design yang diakhiri nim anda pada kedua object tersebut.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_43_46110055
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Data grafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub Latihan_43_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim feiby As New OleDb.OleDbDataAdapter
        feiby = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Jalan)
        gitik.Rows.Clear()
        feiby.Fill(gitik)
        feiby.Dispose()
        dgv46110055.DataSource = gitik

        chart46110055.RowCount = gitik.Rows.Count
        chart46110055.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

            chart46110055.Row = sekarang
            chart46110055.RowLabel = kake("Kode Barang")

            chart46110055.Column = 1
            chart46110055.Data = kake("Unit")

            chart46110055.Column = 2
            chart46110055.Data = kake("Rata-Rata Harga") / 10000

            chart46110055.Column = 3
            chart46110055.Data = kake("Jumlah") / 10000

        Next
    End Sub

End Class

9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini: