Latihan_41_36110044 Aplikasi Komputer 4

Pada Form Latihan_41  terdapat dua object yaitu DataGridView dan Microsoft Chart

DataGridView

Terdapat 1 DataGridView untuk menampilkan data grafik dari tabel KEUANGAN yang ada dalam Microsoft Access (TAHUN, PENDAPATAN, BIAYA)

Microsoft Chart

Terdapat 1 Microsoft Chart untuk menampilkan bentuk diagram dari data grafik yang telah dimasukkan.

Script Unique

Untuk Script Unique bisa dilihat pada Prosedur Penyelesaian Latihan_41_36110044

Even

Latihan_41_36110044_Load

For Each x As DataRow In DT.Rows

Next

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

2.      Pilih nama project Anda, misalnya Kumpulan_latihan_36110044

 

3.      Jika sudah terbuka, perhatihan Toolbox Anda untuk memastikan apakah Microsoft Chart-nya sudah aktif. Jika belum aktif, buka salah satu design form latihan Anda kemudian klik kanan pada daerah toolboxè choose items..dan akan muncul kotak dialog seperti ini:

            Pada kotak dialog pilih Microsoft Chart Control 6.0 kemudian OK

            Jalankan program dan Microsoft Chart-nya akan aktif pada toolbox Anda.

4.      Lanjutkan dengan membuat form baru dengan klik icon Add New Item

5.      Ubah nama pada lembar “Add New Item” kemudian Add

6.      Buat design form dengan menggunakan DateGridView dan Microsoft Chart

7.      Ganti nama DataGridView dan Microsoft Chart menggunakan "Properties Window"

8.      Klik kanan pada kotak design kemudian klik kanan pilih View Code untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_41

            Public Class Latihan_41_36110044

    '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 DT As New DataTable

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

        'deklarasi adapter

        Dim nisa As New OleDb.OleDbDataAdapter

        nisa = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces

        DT.Rows.Clear() 'membersihkan data tabEL

        nisa.Fill(DT) 'mengisi database ke dlm data table

        DGV_36110044.DataSource = DT 'memunculkan dlm datagridview

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

        'menentkan jumlah baris

        AxMSChart_36110044.ColumnCount = 2

        AxMSChart_36110044.RowCount = DT.Rows.Count

        'menentukan posisi baris

        Dim POSISIBARIS As Integer = 0

        For Each x As DataRow In DT.Rows

            POSISIBARIS = POSISIBARIS + 1

            AxMSChart_36110044.Row = POSISIBARIS

            'memberi nama pada baris grafik dgn nama pada kolom thun.

            AxMSChart_36110044.RowLabel = x("tahun")

            AxMSChart_36110044.Column = 1

            AxMSChart_36110044.Data = x("PENDAPATAN") / 1000

            AxMSChart_36110044.Column = 2

            AxMSChart_36110044.Data = x("BIAYA") / 1000

        Next

    End Sub

End Class

9.      Jalankan program dengan menggunakan  “start debugging”