Latihan_44_36110033

A.           Object-object dalam Latihan_44_36110033:

 1.       Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan data tabel keuangan 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

Latihan_44_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_44_36110033.

C.            Even

  Latihan_44_36110033_Load

  LINGKAR_36110033_Click

  LINE3D_36110033_Click

  LINE_36110033_Click

  BATANG3D_36110033_Click

  BATANG_36110033_Click

Prosedur

1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

5.       Buat satu object datagridview, satu object chart dan lima object button Kemudian beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi  from  sesuai dengan design pada latihan 44 berikut:

6.      Untuk menuliskan rumus pada latihan 44, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_44_36110033

    Dim BRIDGEILHA As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\Data Grafik.accdb")

    Dim TABLEILHA As New DataTable

    Private Sub Latihan_44_36110033_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim TRUCKILHA As New OleDb.OleDbDataAdapter

        TRUCKILHA = New OleDb.OleDbDataAdapter("Select * From QPembelianPerBulanan", BRIDGEILHA)

        TABLEILHA.Rows.Clear()

        TRUCKILHA.Fill(TABLEILHA)

        datag_36110033.DataSource = TABLEILHA

        TRUCKILHA.Dispose()

        chart_36110033.RowCount = TABLEILHA.Rows.Count

        chart_36110033.ColumnCount = 3

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In TABLEILHA.Rows

            Posisi = Posisi + 1

            chart_36110033.Row = Posisi

            chart_36110033.RowLabel = BarisX("Bulan")

            chart_36110033.Column = 1

            chart_36110033.Data = BarisX("Unit")

            chart_36110033.Column = 2

            chart_36110033.Data = BarisX("Rata-Rata Harga") / 1000

            chart_36110033.Column = 3

            chart_36110033.Data = BarisX("Jumlah") / 10000

        Next

    End Sub

    Private Sub BATANG_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BATANG_36110033.Click

        chart_36110033.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub BATANG3D_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BATANG3D_36110033.Click

        chart_36110033.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub LINE_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LINE_36110033.Click

        chart_36110033.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub LINE3D_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LINE3D_36110033.Click

        chart_36110033.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

    Private Sub LINGKAR_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LINGKAR_36110033.Click

        chart_36110033.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

End Class

7.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.    Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan  44  selesai.