Latihan_41_46110045

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

Object Microsoft chart control

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

Object DataGridView

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

 Script Unique
 For Each x As DataRow In rsty.Rows
            POSISIBARIS = POSISIBARIS + 1
            chart_46110045.Row = POSISIBARIS

            'memberi nama pada baris grafik dgn nama pada kolom thun.
            chart_46110045.RowLabel = x("tahun")

            chart_46110045.Column = 1
            chart_46110045.Data = x("PENDAPATAN") / 1000

            chart_46110045.Column = 2
            chart_46110045.Data = x("BIAYA") / 1000

        Next

Even

Load

 

Langkah-Langkah membuat Form Latihan_41

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2. Ketik nama Latihan_41  yang akan dibuat pada kotak “NAME” lalu pilih “add”

3. Buatlah desain menggunakan toolbox

4. Masukkan rumus berikut: 

 

Public Class latihan_41_46110045

    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_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dina As New OleDb.OleDbDataAdapter
        dina = New OleDb.OleDbDataAdapter("select * from keuangan", Jalan)
        gitik.Rows.Clear()
        dina.Fill(gitik)
        dina.Dispose()
        dgv_46110045.DataSource = gitik

        chart46110045.RowCount = gitik.Rows.Count
        chart46110045.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

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

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

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

End Class