LATIHAN_44_36110043

Latihan_44_36110043

DISKRIPSI

A.            Object-object dalam Latihan_44_36110043 ada 3 yaitu :

                                    

1.    Object DataGridView

     Terdapat satu object datagridview yang digunakan untuk menampilkan data querie QpembelianPerBulanan yang ada pada database Data Grafik.

2.    Object Chart

     Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data yang ada pada datagridview.

3.    Object Button

     Terdapat lima object button (grafik batang, grafik line, grafik lingkar, grafik batang 3D, dan grafik line 3D).  Tombol grafik batang digunakan untuk menampilkan diagram dalam bentuk batang. Tombol grafik line digunakan untuk menampilkan diagram dalam bentuk garis. Tombol grafik lingkar digunakan untuk menampilkan diagram dalam bentuk lingkaran. Tombol grafik batang 3D digunakan untuk menampilkan diagram dalam bentuk batang 3D. Dan tombol grafik line 3D digunakan untuk menampilkan digaram dalam bentuk garis 3D.

B.            Script Unique

Untuk script, silahkan lihat pada Langkah-Langkah  Latihan_44_36110043.

C.           Even

Latihan_44_36110043_Load

GBATANG_36110043_Click

GBATANG3D_36110043_Click

GLINE_36110043_Click

GLINE3D_36110043_Click

GLINGKARAN_36110043_Click

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._44_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_44_36110043

    Dim CONNECT 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_44_36110036_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim fika As New OleDb.OleDbDataAdapter

        fika = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", CONNECT)

        DT.Rows.Clear()

        fika.Fill(DT)

        fika.Dispose()

        data_36110043.DataSource = DT

        chart_36110043.RowCount = DT.Rows.Count

        chart_36110043.ColumnCount = 3

        '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_36110043.Row = sekarang

            chart_36110043.RowLabel = BARIS("Bulan")

            chart_36110043.Column = 1

            chart_36110043.Data = BARIS("Unit")

            chart_36110043.Column = 2

            chart_36110043.Data = BARIS("Rata-Rata Harga") / 10000

            chart_36110043.Column = 3

            chart_36110043.Data = BARIS("Jumlah") / 10000

        Next

    End Sub

    Private Sub grafik1_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik1_36110043.Click

        chart_36110043.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub grafik2_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik2_36110043.Click

        chart_36110043.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub grafik3_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik3_36110043.Click

        chart_36110043.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub grafik4_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik4_36110043.Click

        chart_36110043.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub grafik5_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik5_36110043.Click

        chart_36110043.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    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…….