Deskripsi_Latihan_44_36110054

Cara Membuat Progam/Apliaksi Latihan 44

Dengan Software Microsoft Visual Basic 2008

Form Latihan 44 terdapat tiga object yaitu Microsoft Chart Control, Button 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  QpembelianPerBulanan yang terdapat dalam data D:\RusLan\Materi Kuliah\Apkom 4\LATIHAN 41-44 GRAFIK\Data Grafik.accdb")

 
Object  Button
Terdapat lima object button (grafik batang, grafik line, grafik lingkar, grafik batang 3D, dan grafik line 3D).

Even

FromLoad

ButtonClick

 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_44_36110054

    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")

    Dim ruslan As New DataTable

    Private Sub Latihan_44_36110054_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim ruru As New OleDb.OleDbDataAdapter

        ruru = New OleDb.OleDbDataAdapter("Select * From QPembelianPerBulanan", cullank)

        ruslan.Rows.Clear()

        ruru.Fill(ruslan)

        dgv_36110054.DataSource = ruslan

        ruru.Dispose()

        chart_36110054.RowCount = ruslan.Rows.Count

        chart_36110054.ColumnCount = 3

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In ruslan.Rows

            Posisi = Posisi + 1

            chart_36110054.Row = Posisi

            chart_36110054.RowLabel = BarisX("Bulan")

            chart_36110054.Column = 1

            chart_36110054.Data = BarisX("Unit")

            chart_36110054.Column = 2

            chart_36110054.Data = BarisX("Rata-Rata Harga") / 1000

            chart_36110054.Column = 3

            chart_36110054.Data = BarisX("Jumlah") / 10000

        Next

    End Sub

    Private Sub gb1_36110054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb1_36110054.Click

        chart_36110054.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub line1_36110054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles line1_36110054.Click

        chart_36110054.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub gl_36110054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gl_36110054.Click

        chart_36110054.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub gb2_36110054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb2_36110054.Click

        chart_36110054.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub line2_36110054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles line2_36110054.Click

        chart_36110054.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

End Class

Deskripsi_Latihan_43_36110054

Cara Membuat Progam/Apliaksi Latihan 43

Dengan Software Microsoft Visual Basic 2008

Form Latihan 43terdapat 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  QpembelianPerJenisBarangyang 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_43_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 Latihan_43_36110054_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim ruru As New OleDb.OleDbDataAdapter

        ruru = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", cullank)

        ruslan.Rows.Clear()

        ruru.Fill(ruslan)

        dgv_36110054.DataSource = ruslan

        ruru.Dispose()

        chart_36110054.RowCount = ruslan.Rows.Count

        chart_36110054.ColumnCount = 3

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In ruslan.Rows

            Posisi = Posisi + 1

            chart_36110054.Row = Posisi

            chart_36110054.RowLabel = BarisX("Kode Barang")

            chart_36110054.Column = 1

            chart_36110054.Data = BarisX("Unit")

            chart_36110054.Column = 2

            chart_36110054.Data = BarisX("Rata-Rata Harga") / 1000

            chart_36110054.Column = 3

            chart_36110054.Data = BarisX("Jumlah") / 10000

        Next

    End Sub

End Class

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

Deskripsi_Latihan_41_36110054

Cara Membuat Progam/Apliaksi Latihan 41

Dengan Software Microsoft Visual Basic 2008

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:\RusLan\Materi Kuliah\Apkom 4\LATIHAN 41-44 GRAFIK\Data Grafik.accdb")

   

Script Unique

Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110054.Row =ruslan

            Chart_36110054.RowLabel = r("Tahun")

            Chart_36110054.Column = 1

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

             ....
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_41_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 Latihan41_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 keuangan", cullank)

        ruslan.Rows.Clear()

        ruru.Fill(ruslan)

        ruru.Dispose()

        dgv_36110054.DataSource = ruslan

        chart_36110054.RowCount = ruslan.Rows.Count

        chart_36110054.ColumnCount = 2

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

       

Dim Baris As Integer = 0

        For Each r As DataRow In ruslan.Rows

            Baris = Baris + 1

            chart_36110054.Row = Baris

            chart_36110054.RowLabel = r("Tahun")

            chart_36110054.Column = 1

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

            chart_36110054.Column = 2

            chart_36110054.Data = r("Biaya") / 1000

        Next

    End Sub

End Class

Deskripsi_Latihan_383940_36110054

Cara Membuat Progam/Apliaksi Latihan 383940

Dengan Software Microsoft Visual Basic 2008

Form Latihan 383940 terdapat dua object yaitu button, dan Dategridview

Object  Button
Terdapat dua buah object Button yaitu  Pilih dan Batal.

Object  DateGridView
Terdapat satu object DataGridView digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DATAMAJEMUK.accdb")

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 383940

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_383940_36110054

    Dim RUSLAN As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DATAMAJEMUK.accdb")

    Dim tabelruslan As New DataTable

    Private Sub Latihan_383940_36110054_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim ruru As New OleDb.OleDbDataAdapter

        ruru = New OleDb.OleDbDataAdapter("Select KODEBARANG, NAMABARANG From BARANG", RUSLAN)

        tabelruslan.Clear()

        ruru.Fill(tabelruslan)

        ruru.Dispose()

        dgv_36110054.DataSource = tabelruslan

    End Sub

End Class