LATIHAN_44_36110052

Latihan_44_36110052

A.    Object-object dalam Latihan_44_36110052

1.      Object 5 Button

Terdapat 5 object button yang bertuliskan grafik batang,grafik line,grafik lingkar,grafik batang 3D,grafik line 3D yang digunakan untuk mengubah bentuk dari grafik yang telah ada sesuai dengan namanya.

2.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan bulan,unit,rata-rata harga,jumlah.

3.      Object Microsoft Chart Control 6.0 (SP4) (OLEDB)

Terdapat satu object Microsoft chart control yang digunakan untuk menampilkan bentuk grafik dari data yang ditampilkan dalam datagridview

B.     Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-langkah kerja  latihan_44_36110052

C.     Even

LATIHAN_44_36110052_load

BATANG_36110052_Click

    LINE_36110052_Click

    LINGKAR_36110052_Click

    BATANG3D_36110052_Click

    LINE3D_36110052_Click

Langkah-langkah kerja  latihan_43_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_44_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

    Public Class LATIHAN_44_36110052

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb;jet OLEDB:DATABASE PASSWORD=VEAHOUSE")

    Dim Table As New DataTable

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

        Dim VIA As New OleDb.OleDbDataAdapter

        VIA = New OleDb.OleDbDataAdapter("Select * From QPembelianPerBulanan", CONECT)

        Table.Rows.Clear()

        VIA.Fill(Table)

        DataGridView_36110052.DataSource = Table

        VIA.Dispose()

        GRAFIK_36110052.RowCount = Table.Rows.Count

        GRAFIK_36110052.ColumnCount = 3

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In Table.Rows

            Posisi = Posisi + 1

            GRAFIK_36110052.Row = Posisi

            GRAFIK_36110052.RowLabel = BarisX("Bulan")

            GRAFIK_36110052.Column = 1

            GRAFIK_36110052.Data = BarisX("Unit")

            GRAFIK_36110052.Column = 2

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

            GRAFIK_36110052.Column = 3

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

        Next

    End Sub

    Private Sub BATANG_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATANG_36110052.Click

        GRAFIK_36110052.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub LINE_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LINE_36110052.Click

        GRAFIK_36110052.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub LINGKAR_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LINGKAR_36110052.Click

        GRAFIK_36110052.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub BATANG3D_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATANG3D_36110052.Click

        GRAFIK_36110052.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub LINE3D_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LINE3D_36110052.Click

        GRAFIK_36110052.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

End Class

 

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI