Latihan_41_46110043

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

·  Ketik nama form "Latihan_41_46110043" 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_41_46110043
    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 Latihan_41_46110043_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 keuangan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110043.DataSource = gitik

        Chart_46110043.RowCount = gitik.Rows.Count
        Chart_46110043.ColumnCount = 2

        Dim sekarang As Integer = 0

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

            Chart_46110043.Row = sekarang
            Chart_46110043.RowLabel = kake("Tahun")

            Chart_46110043.Column = 1
            Chart_46110043.Data = kake("Pendapatan") / 1000

            Chart_46110043.Column = 2
            Chart_46110043.Data = kake("Biaya") / 1000
        Next
    End Sub
End Class

·  Untuk menjalankan form tekan F5


B. Deskripsi Form Latihan 41
Pada form latihan 41 ada 2 object yang digunakan yaitu Data Grid View dan Microsoft Chart Control.

Object DataGridView
Terdapat 1 data grid view pada form latihan 41 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
Untuk memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1
            chart_46110043.Row = sekarang
            chart_46110043.RowLabel = kake("Tahun")
            chart_46110043.Column = 1
            chart_46110043.Data = kake("Pendapatan") / 1000
            chart_46110043.Column = 2
            chart_46110043.Data = kake("Biaya") / 1000

Even
Load