Latihan_41_46110027

Deskripsi Form Latihan 41
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_46110027.Row = POSISIBARIS

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

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

            chart_46110027.Column = 2
            chart_46110027.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

     

  

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_41_46110027
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    'deklarasi data tabel
    Dim rsty As New DataTable

    Private Sub LATIHAN_41_46110027_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'deklarasi adapter
        Dim yosna As New OleDb.OleDbDataAdapter
        yosna = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
        rsty.Rows.Clear() 'membersihkan data tabEL
        yosna.Fill(rsty) 'mengisi database ke dlm data table
        data_46110027.DataSource = rsty 'memunculkan dlm datagridview

        yosna.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

        'menentkan jumlah baris
        chart_46110027.ColumnCount = 2
        chart_46110027.RowCount = rsty.Rows.Count

        'menentukan posisi baris
        Dim POSISIBARIS As Integer = 0

        For Each x As DataRow In rsty.Rows
            POSISIBARIS = POSISIBARIS + 1
            chart_46110027.Row = POSISIBARIS

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

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

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

        Next

    End Sub
End Class

6.    Klik start debugging

7. Maka akan tampil sbb: