Latihan_41_36110046

Deskripsi & Prosedur Form Latihan_41_36110046

Deskripsi Form Latihan_41_36110046

Pada Form Latihan 41 terdapat 2 object, yaitu datagridview dan Ms.Chart.

Object Pada Form

Object DataGridView

Terdapat 1 objek datagridview (seperti terlihat gambar di atas)

Object Ms.Chart

Terdapat 1 objek Ms.Chart (seperti terlihat gambar di atas)

Script Unique

-Menghubungkan DataTable dengan Chart

CHART_36110046.RowCount = DT.Rows.Count

Event

FormLoad

Property

ReadOnly

Deskripsi Form Latihan_41_36110046

Langkah-langkah mengerjakan Latihan 41, sbb:

1.        Buka Ms. Visual Studio

2.        Klik Create Project

3.        Ketik nama file yang ingin disimpan

4.        Akan terbuka jendela pekerjaan Ms. Visual Studio

5.        Design form dengan menggunakan tools pada toolbox

6.        Buat  objek semua objek sesuai dengan design pada latihan 41 dengan toolbox, ikuti gambar dibawah ini:

7.        Setelah design sudah bagus, saatnya untuk membuat script

8.        Buat script prosedur sendiri seperti dibawah ini:

Public Class Latihan_41_36110046

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

    Dim DT As New DataTable

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

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        ADAPTER = New OleDb.OleDbDataAdapter("select * from keuangan", CONNECT)

        DT.Rows.Clear()

        ADAPTER.Fill(DT)

        ADAPTER.Dispose()

        DGV_36110046.DataSource = DT

        CHART_36110046.RowCount = DT.Rows.Count

        CHART_36110046.ColumnCount = 2

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan

        Dim sekarang As Integer = 0

        For Each BARIS As DataRow In DT.Rows

            sekarang = sekarang + 1

            CHART_36110046.Row = sekarang

            CHART_36110046.RowLabel = BARIS("Tahun")

            CHART_36110046.Column = 1

            CHART_36110046.Data = BARIS("Pendapatan") / 1000

            CHART_36110046.Column = 2

            CHART_36110046.Data = BARIS("Biaya") / 1000

        Next

    End Sub

End Class

9.        Silahkan jalankan program anda. Wassalam.