latihan_43_36110056

Deskripsi Latihan 43:

Form Latihan 43terdapat dua object yaitu Microsoft Chart Control, 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  QpembelianPerJenisBarang yang terdapat dalam data D:\Apkom 4\LATIHAN 41-44 DATA GRAFIK\DataGrafik

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

                        ....

Even

FromLoad

 

Property

Default

 

Langkah-langkah penyelesaian latihan 43:

• 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 dan MicrosoftChartControl yang terdapat dalam toolsbox

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

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

 

Public Class Latihan43_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 Latihan43_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 os = New OleDb.OleDbDataAdapter("select * qrekapperrekening", 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("KodeRekening")

            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