Latihan_60_36110056

Latihan_59_36110056

Latihan_58_36110056

Latihan_57_36110056

Latihan_56_36110056

Latihan_55_36110056

Latihan_54_36110056

Latihan_53_36110056

Latihan_52_36110056

Latihan_51_36110056

Latihan_50_36110056

Latihan_49_36110056

Latihan_48_36110056

Latihan_47_36110056

Latihan_46_36110056

Latihan_45_36110056

Deskripsi Latihan 45:


 Report Latihan 45 terdapat enam object antara lain :

1.       text object digunakan untuk menuliskan PT X dan DAFTAR BARANG.

2.       line object digunakan untuk membuat kolom dan baris pada report.

database field berasal dari table Barang, yang terdiri dari field kode barang, nama barang, persediaan awal, dan harga jual.

Langkah-langkah penyelesaian latihan 45:  

• Buka project yang dibuat sebelumnya 
• Pilih add new item Pada kotak reporting dan pilih crystal report. Kemudian pada kotak name tulis nama latihan. Lalu klik add
• pilih as a blank report lalu ok
• Untuk membuat connection, klik kanan pada database fields dan pilih database expert
• Create new connection, pilih OLE DB (ADO) dan Pilih microsoft office 12.0 access database lalu next.
• Untuk data source, copy alamat tempat file yang akan dijadikan database lalu next dan terakhir finish. setelah itu  pilih tabel yang akan digunakan dalam crystal report.
• Karena data yang diperlukan merupakan daftar barang, maka drag kode barang, nama barang, persediaan awal, dan harga jual dari tabel barang.
• Untuk melihat hasilnya, pilih “Main Report Preview”.
•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini 

 

  
 

latihan_44_36110056

Deskripsi Latihan 44:

Form Latihan 44t erdapat 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:\Apkom 4\LATIHAN 41-44 DATA GRAFIK\DataGrafik


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

Script Unique

Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110056.Row =Iyas

            Chart_36110056.RowLabel = r("Tahun")

            Chart_36110756.Column = 1

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

                        ....
Private Sub BATANG_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATANG_36110056.Click

Chart_36110042.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

End sub

.....

Even

FromLoad

ButtonClick
 

Property

Default

Langkah-langkah penyelesaian latihan 44:

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Data Grid View, Button dan MicrosoftChartControl yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama DataGridView , button dan MicrosoftChartControl n yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class Latihan44_36110056

        Dim iyas As New DataTable

                Dim jembatan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Apkom 4\LATIHAN 41-44 DATA GRAFIK\Datagrafik.ACCDB")

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

 os = New OleDb.OleDbDataAdapter("select * qpembelianperbulanan", jembatan)

        iyas.Rows.Clear()

        bos.Fill(iyas)

        bos.Dispose()

        Dgv_36110056.DataSource = iyas

        Chart_36110056.RowCount = iyas.Rows.Count

        Chart_36110056.ColumnCount = 3

        Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110056.Row = Baris

            Chart_36110056.RowLabel = r("Bulan")

            Chart_36110056.Column = 1

            Chart_36110056.Data = r("Unit") / 1000

            Chart_36110056.Column = 2

            Chart_36110056.Data = r("Rata-Rata Harga") / 10000

            Chart_36110056.Column = 3

            Chart_36110056.Data = r("Jumlah") / 1000

 

        Next

    End Sub

End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini

 

latihan_43_36110056

Deskripsi Latihan 43:

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  QpembelianPerJenisBarang yang terdapat dalam data D:\Apkom 4\LATIHAN 41-44 DATA GRAFIK\DataGrafik

Script Unique

Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110056.Row =Iyas

            Chart_36110056.RowLabel = r("Tahun")

            Chart_36110756.Column = 1

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

                        ....

Even

FromLoad

 

Property

Default

 

Langkah-langkah penyelesaian latihan 43:

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Data Grid View dan MicrosoftChartControl yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama DataGridView dan MicrosoftChartControl n yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

 

Public Class Latihan43_36110056

        Dim iyas As New DataTable

                Dim jembatan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Apkom 4\LATIHAN 41-44 DATA GRAFIK\Datagrafik.ACCDB")

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

 os = New OleDb.OleDbDataAdapter("select * qrekapperrekening", jembatan)

        iyas.Rows.Clear()

        bos.Fill(iyas)

        bos.Dispose()

        Dgv_36110056.DataSource = iyas

        Chart_36110056.RowCount = iyas.Rows.Count

        Chart_36110056.ColumnCount = 3

        Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110056.Row = Baris

            Chart_36110056.RowLabel = r("KodeRekening")

            Chart_36110056.Column = 1

            Chart_36110056.Data = r("Unit") / 1000

            Chart_36110056.Column = 2

            Chart_36110056.Data = r("Rata-Rata Harga") / 10000

            Chart_36110056.Column = 3

            Chart_36110056.Data = r("Jumlah") / 1000

 

        Next

    End Sub

End Class

 

 

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini

 

 

 

 

 

 

 

latihan_42_36110056

Deskripsi Latihan 42:

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:\Apkom 4\LATIHAN 41-44 DATA GRAFIK\DataGrafik

Script Unique

Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110056.Row =Iyas

            Chart_36110056.RowLabel = r("Tahun")

            Chart_36110756.Column = 1

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

                        ....

Even

FromLoad

 

Property

Default

 

Langkah-langkah penyelesaian latihan 42:

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Data Grid View dan MicrosoftChartControl yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama DataGridView dan MicrosoftChartControl n yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class Latihan42_36110056

        Dim iyas As New DataTable

                Dim jembatan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Apkom 4\LATIHAN 41-44 DATA GRAFIK\Datagrafik.ACCDB")

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

 os = New OleDb.OleDbDataAdapter("select * qrekapperrekening", jembatan)

        iyas.Rows.Clear()

        bos.Fill(iyas)

        bos.Dispose()

        Dgv_36110056.DataSource = iyas

        Chart_36110056.RowCount = iyas.Rows.Count

        Chart_36110056.ColumnCount = 2

       

        Dim Baris As Integer = 0

        For Each r As DataRow In iyas.Rows

            Baris = Baris + 1

            Chart_36110056.Row = Baris

            Chart_36110056.RowLabel = r("KodeRekening")

            Chart_36110056.Column = 1

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

            Chart_36110056.Column = 2

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

        Next

    End Sub

End Class

 

 

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini