latihan_44_36110056

Deskripsi Latihan 44:

Form Latihan 44t erdapat tiga object yaitu Microsoft Chart Control, Button dan Dategridview

Object  Microsoft chart control
Terdapat satu buah MicrosofChartControl digunakan untuk menampilkan chart atau diagram dari database
 
Object  DateGridView
Terdapat satu object DataGridView digunakan untuk menampilkan  field  QpembelianPerBulanan yang terdapat dalam data D:\Apkom 4\LATIHAN 41-44 DATA GRAFIK\DataGrafik


Object  Button
Terdapat lima object button (grafik batang, grafik line, grafik lingkar, grafik batang 3D, dan grafik line 3D).

Script Unique

Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110056.Row =Iyas

            Chart_36110056.RowLabel = r("Tahun")

            Chart_36110756.Column = 1

            Chart_36110056.Data = r("Pendapatan") / 1000

                        ....
Private Sub BATANG_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATANG_36110056.Click

Chart_36110042.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

End sub

.....

Even

FromLoad

ButtonClick
 

Property

Default

Langkah-langkah penyelesaian latihan 44:

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Data Grid View, Button dan MicrosoftChartControl yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama DataGridView , button dan MicrosoftChartControl n yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class Latihan44_36110056

        Dim iyas As New DataTable

                Dim jembatan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Apkom 4\LATIHAN 41-44 DATA GRAFIK\Datagrafik.ACCDB")

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

 os = New OleDb.OleDbDataAdapter("select * qpembelianperbulanan", jembatan)

        iyas.Rows.Clear()

        bos.Fill(iyas)

        bos.Dispose()

        Dgv_36110056.DataSource = iyas

        Chart_36110056.RowCount = iyas.Rows.Count

        Chart_36110056.ColumnCount = 3

        Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110056.Row = Baris

            Chart_36110056.RowLabel = r("Bulan")

            Chart_36110056.Column = 1

            Chart_36110056.Data = r("Unit") / 1000

            Chart_36110056.Column = 2

            Chart_36110056.Data = r("Rata-Rata Harga") / 10000

            Chart_36110056.Column = 3

            Chart_36110056.Data = r("Jumlah") / 1000

 

        Next

    End Sub

End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini