latihan_43_46110004

Deskripsi form latihan 43
Dalam form Latihan 43 terdapat dua object yaitu 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

Object datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Script Unique :
Dalam Form ini tidak terdapat script unique

Even :

Load

Langkah-langkah penyelesaian form latihan 43

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_43_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_43_46110004
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 41-44 GRAFIK\Data grafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub latihan_43_46110004_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 qpembelianperjenisbarang", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110004.DataSource = gitik

        chart_46110004.RowCount = gitik.Rows.Count
        chart_46110004.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_46110004.Row = sekarang
            chart_46110004.RowLabel = kake("Kode Barang")

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

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

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

        Next
    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini: