Latihan_41_46110037

Deskripsi 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      

        Dim sekarang As Integer = 0

        For Each MUTH As DataRow In INNA.Rows

            sekarang = sekarang + 1

            chart46110037.Row = sekarang

            chart46110037.RowLabel = MUTH("Tahun")

            chart46110037.Column = 1

            chart46110037.Data = MUTH("Pendapatan") / 1000

            chart46110037.Column = 2

            chart46110037.Data = MUTH("Biaya") / 1000

Even

Load

Property

-

Langkah-Langkah Menjalankan Form Latihan 41 46110037

Click Start Debugging untuk menjalankan Script Latihan_41_46110037

Langkah-langkah Menyelesaikan Form Latihan 41 46110037

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_41_46110037) DataGridView dan Chart.
• Ganti nama DataGridView dan Chart di properties-Name,
• Click Kanan pada design Latihan_41_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_41_46110037

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

    Dim INNA As New DataTable

    Private Sub LATIHAN_41_46110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("select * from keuangan", Jalan)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        view46110037.DataSource = INNA

        chart46110037.RowCount = INNA.Rows.Count

        chart46110037.ColumnCount = 2

        Dim sekarang As Integer = 0

        For Each MUTH As DataRow In INNA.Rows

            sekarang = sekarang + 1

            chart46110037.Row = sekarang

            chart46110037.RowLabel = MUTH("Tahun")

            chart46110037.Column = 1

            chart46110037.Data = MUTH("Pendapatan") / 1000

            chart46110037.Column = 2

            chart46110037.Data = MUTH("Biaya") / 1000

        Next

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form