Latihan_43_46110002

Deskripsi Form Latihan 43

Pada form latihan 43 ada 2 object yang digunakan yaitu Data Grid View dan Microsoft Chart Control.

Object DataGridView

Terdapat 1 data grid view pada form latihan 43 yang nantinya akan menampilkan data tabel yang ada pada data base.

Object MicrosoftChartControl                                     

Pada form ini digunakan 1 object Microsoft chart control yang akan menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan sebelumnya. 

Even

Load

 

Langkah-Langkah Penyelesaian Form Latihan_43
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_43_46110002" pada name kemudian click add

·  Buat form seperti berikut 

·         Kemudian beri nama pada semua objek

·  Setelah form selesai masukkan rumus seperti dibawah ini 

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

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

        Chart_46110002.RowCount = gitik.Rows.Count
        Chart_46110002.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

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

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

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

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

        Next
    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 43

1.      Klik start debugging lalu klik latihan 43

2.      Maka akan muncul hasil seperti ini