latihan_41_36110036

Deskripsi latihan_41_36110036

A.           Object data gridview

Terdapat satu data gridview yang digunakan untuk menampilkan data tabel keuangan yang terdiri dari tahun, pendapatan, dan biaya.

B.            Object Microsoft chart

Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data tabel keuangan yang ada pada data gridview.

C.           Script Unique

          Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_41_36110036.

D.    Even

        LATIHAN_41_36110036_Load

Langkah-langkah mengerjakan latihan_41_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

      

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

          

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.     Kemudian buat form seperti dibawah ini: 

 

                  

6.    Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_41_36110036.

Public Class latihan_41_36110036

    'DEKLARASI CONECTION

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")

    'deklarasi data tabel

    Dim anna As New DataTable

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

        'deklarasi adapter

        Dim fika As New OleDb.OleDbDataAdapter

        fika = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces

        anna.Rows.Clear() 'membersihkan data tabEL

        fika.Fill(anna) 'mengisi database ke dlm data table

        data_36110036.DataSource = anna 'memunculkan dlm datagridview

        fika.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

        'menentkan jumlah baris

        chart_36110036.ColumnCount = 2

        chart_36110036.RowCount = anna.Rows.Count

        'menentukan posisi baris

        Dim POSISIBARIS As Integer = 0

        For Each x As DataRow In anna.Rows

            POSISIBARIS = POSISIBARIS + 1

            chart_36110036.Row = POSISIBARIS

'memberi nama pada baris grafik dgn nama pada kolom thun.

            chart_36110036.RowLabel = x("tahun")

            chart_36110036.Column = 1

            chart_36110036.Data = x("PENDAPATAN") / 1000

            chart_36110036.Column = 2

            chart_36110036.Data = x("BIAYA") / 1000

        Next

      End Sub

End Class

7.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.