latihan_41_36110056

Deskripsi Latihan 41:

Form Latihan 41 terdapat 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  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 41:

• 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 Latihan41_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 Latihan41_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim bos As New OleDb.OleDbDataAdapter

       bos = New OleDb.OleDbDataAdapter("select * from keuangan", jembatan)

        iyas.Rows.Clear()

        bos.Fill(iyas)

        bos.Dispose()

        Dgv_36110056.DataSource = iyas

        Chart_36110056.RowCount = iyas.Rows.Count

        Chart_36110056.ColumnCount = 2

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan

        Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110056.Row = Baris

            Chart_36110056.RowLabel = r("Tahun")

            Chart_36110056.Column = 1

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

            Chart_36110056.Column = 2

            Chart_36110056.Data = r("Biaya") / 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