LATIHAN_41_36110043

Latihan_41_36110043

DISKRIPSI

A.      Object yang terdapat pada Form Latihan_41  ada dua 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.

B.       Script Unique

Untuk Script Unique bisa dilihat pada Prosedur Penyelesaian Latihan_41_36110043

C.      Even

Latihan_41_36110043_Load

For Each x As DataRow In DT.Rows

Next

LANGKAH-LANGKAH

1.      BUKA  Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft Visual Studio 2008

2.      Click icon "Add new Item" 

3.      Pilih Windows Form, lalu isi Name dengan Nama Latihan._41_36110043 dan click add

4.      Buat design Form sesuai dengan Form diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}

5.       Ganti nama setiap object kecuali Label menggunakan "Properties Window"

6.       Klik 2x pada design form yang telah dibuat  untuk membuka lembar Scripnya.

7.       Masukkkan Scrip di bawah ini..

Public Class latihan_41_36110043

    Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\data GRAFIK.accdb;jet oledb:database password=43")

    Dim DT As New DataTable

    Private Sub latihan_41_36110043_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", CONECT)

        DT.Rows.Clear()

        ADAPTER.Fill(DT)

        ADAPTER.Dispose()

        DGV_3611004.DataSource = DT

        Chart_36110043.RowCount = DT.Rows.Count

        Chart_36110043.ColumnCount = 2

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

        Dim sekarang As Integer = 0

        For Each kake As DataRow In DT.Rows

            sekarang = sekarang + 1

            Chart_36110043.Row = sekarang

            Chart_36110043.RowLabel = kake("Tahun")

            Chart_36110043.Column = 1

            Chart_36110043.Data = kake("Pendapatan") / 1000

            Chart_36110043.Column = 2

            Chart_36110043.Data = kake("Biaya") / 1000

        Next

    End Sub

End Class

Keterangan :

“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 è Pada kotak dialog pilih Microsoft Chart Control 6.0 kemudian OK Jalankan program dan Microsoft Chart-nya akan aktif pada toolbox Anda”.

8.       Jalankan program dengan menggunakan  “start debugging”

9.      Hasilnya

10.  Klik save untuk menyimpan Form INI…….