Latihan_42_46110055

Deskripsi Form Latihan 42

Pada form latihan 42 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 42:

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

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_42_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_42_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 qrekapperrekening", 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("KodeRekening")

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

            chart46110055.Column = 2
            chart46110055.Data = kake("Total Kredit") / 1000

        Next

    End Sub

End Class

9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini: