LATIHAN_41_36110052

Latihan_41_36110052

A.    Object-object dalam Latihan_41_36110052

1.      Object Label

Tidak terdapat object label

2.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan tahun,pendapatan dan  biaya.

3.      Object Microsoft Chart Control 6.0 (SP4) (OLEDB)

Terdapat satu object Microsoft chart control yang digunakan untuk menampilkan bentuk grafik dari data yang ditampilkan dalam datagridview

B.     Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-langkah kerja  latihan_41_36110052

C.     Even

LATIHAN_41_36110052_load

Langkah-langkah kerja  latihan_41_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_41_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

    Public Class LATIHAN_41_36110052

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb;jet OLEDB:DATABASE PASSWORD=VEAHOUSE")

    Dim TABEL As New DataTable

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

        Dim VIA As New OleDb.OleDbDataAdapter

        VIA = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)

        TABEL.Rows.Clear()

        VIA.Fill(TABEL)

        DataGridView_36110052.DataSource = TABEL

        VIA.Dispose()

        GRAFIK_36110052.ColumnCount = 2

        GRAFIK_36110052.RowCount = TABEL.Rows.Count

        Dim POSISIBARIS As Integer = 0

        For Each x As DataRow In TABEL.Rows

            POSISIBARIS = POSISIBARIS + 1

            GRAFIK_36110052.Row = POSISIBARIS

            GRAFIK_36110052.RowLabel = x("tahun")

            GRAFIK_36110052.Column = 1

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

            GRAFIK_36110052.Column = 2

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

        Next

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI