Latihan_41_46110055

Deskripsi Form Latihan 41

Pada form latihan 41 Terdapat 2 object yaitu DataGridView dan Chart
Sebelum mengerjakan Latihan ini, terlebih dahulu menambahkan tool Chart pada toolbox, caranya clik kanan – Choose items – Com Components kemudian Browse mschrt20.ocx kemudian pilih ye, tunggu beberapa menit, kemudian cek apakah tools tersebut sudah muncul di toolbox.

Object DataGridView
Terdapat 1 DataGridView yang akan menampilkan data table.

Object Chart
 Terdapat  1 Chart

Script Unique
'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("Tahun")

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

            chart46110055.Column = 2
            chart46110055.Data = kake("Biaya") / 1000
        Next

Langkah-langkah membuat Latihan 41:

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 41”

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_41_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_41_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 keuangan", Jalan)
        gitik.Rows.Clear()
        feiby.Fill(gitik)
        feiby.Dispose()
        dgv46110055.DataSource = gitik

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

        '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("Tahun")

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

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

End Class

9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini: