Latihan_41_46110009

Latihan_41_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2. Deskripsi Form Latihan 41

Pada form latihan 41 ada 2 object yang digunakan yaitu Data Grid View dan Microsoft Chart Control.

3.Object DataGridView

Terdapat 1 data grid view pada form latihan 41 yang nantinya akan menampilkan data tabel yang ada pada data base.

4.Object MicrosoftChartControl             

Pada form ini digunakan 1 object Microsoft chart control yang akan menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

5.Script Unique

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

For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1
            chart_46110009.Row = sekarang
            chart_46110009.RowLabel = kake("Tahun")
            chart_46110009.Column = 1
            chart_46110009.Data = kake("Pendapatan") / 1000
            chart_46110009.Column = 2
            chart_46110009.Data = kake("Biaya") / 1000

6.Rumus

                Dim ULHY As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")

    Dim MARS As New DataTable

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

        Dim INDO As New OleDb.OleDbDataAdapter

        INDO = New OleDb.OleDbDataAdapter("select * from keuangan", ULHY)

        MARS.Rows.Clear()

        INDO.Fill(MARS)

        INDO.Dispose()

        view.DataSource = MARS

        Chart.RowCount = MARS.Rows.Count

        Chart.ColumnCount = 2

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

        Dim sekarang As Integer = 0

        For Each kake As DataRow In MARS.Rows

            sekarang = sekarang + 1

            Chart.Row = sekarang

            Chart.RowLabel = kake("Tahun")

            Chart.Column = 1

            Chart.Data = kake("Pendapatan") / 1000

            Chart.Column = 2

            Chart.Data = kake("Biaya") / 1000

        Next

    End Sub

End Class