Deskripsi_Latihan_42_36110054

Cara Membuat Progam/Apliaksi Latihan 42

Dengan Software Microsoft Visual Basic 2008

Form Latihan 42 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  QrekapPerRekening yang terdapat dalam data D:\RusLan\Materi Kuliah\Apkom 4\LATIHAN 41-44 GRAFIK\Data Grafik.accdb")

Even

FromLoad

Langkah 1:

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2 :

  Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut : 

Langkah 3 :

Rancanglah Form Seperti Gambar Berikut Berikut :

      Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_42_36110054

    Dim ruslan As New DataTable

    Dim cullank As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\RusLan\Materi Kuliah\Apkom 4\LATIHAN 41-44 GRAFIK\Data Grafik.accdb")

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

        Dim ruru As New OleDb.OleDbDataAdapter

        ruru = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", cullank)

        ruslan.Rows.Clear()

        ruru.Fill(ruslan)

        ruru.Dispose()

        dgv_36110054.DataSource = ruslan

        chart_36110054.RowCount = ruslan.Rows.Count

        chart_36110054.ColumnCount = 2

        Dim Baris As Integer = 0

        For Each r As DataRow In ruslan.Rows

            Baris = Baris + 1

            chart_36110054.Row = Baris

            chart_36110054.RowLabel = r("KodeRekening")

            chart_36110054.Column = 1

            chart_36110054.Data = r("Total Debet") / 1000

            chart_36110054.Column = 2

            chart_36110054.Data = r("Total Kredit") / 1000

        Next

    End Sub

End Class