latihan_44_46110004

Deskripsi form latihan 44
Dalam form Latihan 44 terdapat tiga object yaitu, Button Data Grid View dan Microsoft Chart Control.

Microsoft Chart Control :

Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.




Object Button :
Terdapat lima objek button yaitu "Grafik Batang", "Grafik Line", "Grafik Lingkar", "Grafik Batang 3D", dan "Grafik Line 3D". kelima button ini berfungsi untuk menampilkan data grafik berdasarkan nama button. 


Script Unique : 

Perintah untuk menampilkan grafik berbentuk batang 2D  

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

 Perintah untuk menampilkan grafik berbentuk garis 2D 

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

 Perintah untuk menampilkan grafik berbentuk lingkaran 

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

Perintah untuk menampilakan grafik berbentuk batang 3D

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

Perintah untuk menampilkan grafik berbentuk garis 3D

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

 
Even :

Load

Langkah-langkah penyelesaian form latihan 44

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_44_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_44_46110004
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 41-44 GRAFIK\Data grafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub latihan_44_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110004.DataSource = gitik

        chart_46110004.RowCount = gitik.Rows.Count
        chart_46110004.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            chart_46110004.Row = sekarang
            chart_46110004.RowLabel = kake("Bulan")

            chart_46110004.Column = 1
            chart_46110004.Data = kake("Unit")

            chart_46110004.Column = 2
            chart_46110004.Data = kake("Rata-Rata Harga") / 10000

            chart_46110004.Column = 3
            chart_46110004.Data = kake("Jumlah") / 10000

        Next
    End Sub

    Private Sub GB_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub GL_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub GLK_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLK_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub GB3D_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3D_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub GL3D_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3D_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 44 seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 44 sebagai berikut :

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.

latihan_43_46110004

Deskripsi form latihan 43
Dalam form Latihan 43 terdapat dua object yaitu Data Grid View dan Microsoft Chart Control.

Microsoft Chart Control :

Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Script Unique : 
Dalam Form ini tidak terdapat script unique
 
Even :

Load

Langkah-langkah penyelesaian form latihan 43

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_43_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_43_46110004
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 41-44 GRAFIK\Data grafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub latihan_43_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110004.DataSource = gitik

        chart_46110004.RowCount = gitik.Rows.Count
        chart_46110004.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            chart_46110004.Row = sekarang
            chart_46110004.RowLabel = kake("Kode Barang")

            chart_46110004.Column = 1
            chart_46110004.Data = kake("Unit")

            chart_46110004.Column = 2
            chart_46110004.Data = kake("Rata-Rata Harga") / 10000

            chart_46110004.Column = 3
            chart_46110004.Data = kake("Jumlah") / 10000

        Next
    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 43 seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 43 sebagai berikut :

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.

latihan_42_46110004

Deskripsi form latihan 42
Dalam form Latihan 42 terdapat dua object yaitu Data Grid View dan Microsoft Chart Control.

Microsoft Chart Control :

Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Script Unique : 
Dalam Form ini tidak terdapat script unique
 
Even :

Load

Langkah-langkah penyelesaian form latihan 42

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_42_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_42_46110004
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 41-44 GRAFIK\Data grafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub latihan_42_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110004.DataSource = gitik


        chart_46110004.RowCount = gitik.Rows.Count
        chart_46110004.ColumnCount = 2

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            chart_46110004.Row = sekarang
            chart_46110004.RowLabel = kake("KodeRekening")

            chart_46110004.Column = 1
            chart_46110004.Data = kake("Total Debet") / 1000

            chart_46110004.Column = 2
            chart_46110004.Data = kake("Total Kredit") / 1000

        Next
    End Sub
End Class
 

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 42 seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 42 sebagai berikut :

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.

latihan_41_46110004

Deskripsi form latihan 41
Dalam form Latihan 41 terdapat dua object yaitu Data Grid View dan Microsoft Chart Control.

Microsoft Chart Control :

Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Script Unique :Perintah untuk memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan :
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            chart_46110004.Row = sekarang
            chart_46110004.RowLabel = kake("Tahun")

            chart_46110004.Column = 1
            chart_46110004.Data = kake("Pendapatan") / 1000

            chart_46110004.Column = 2
            chart_46110004.Data = kake("Biaya") / 1000

        Next
Even :

Load

Langkah-langkah penyelesaian form latihan 41

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_41_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini : 
Public Class latihan_41_46110004

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 41-44 GRAFIK\Data grafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub latihan_41_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from keuangan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110004.DataSource = gitik

        chart_46110004.RowCount = gitik.Rows.Count
        chart_46110004.ColumnCount = 2

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            chart_46110004.Row = sekarang
            chart_46110004.RowLabel = kake("Tahun")

            chart_46110004.Column = 1
            chart_46110004.Data = kake("Pendapatan") / 1000

            chart_46110004.Column = 2
            chart_46110004.Data = kake("Biaya") / 1000

        Next
    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 41 seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 41 sebagai berikut :

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.

latihan_40b_46110004

Deskripsi form latihan 40b
Dalam form Latihan 40b terdapat lima object yaitu Label, Textbox, Button, StatuSrtip dan DataGridView.

Object Label :
Dalam form ini terdapat empat buah object label yang bertuliskan “No.Transakasi”, “Tgl Transaksi”, “Jenis Transaksi” dan “Total”

Object Textbox :
Dalam form ini terdapat sembilan buah object textbox 3 yang berstatus input dan 1 yang berstatus read only.

Object Button :
Dalam form ini hanya terdapat sebuah object button yang bertuliskan “simpan” berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object StatusStrip :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Script Unique :
Pada latihan ini tidak terdapat script unique

Even :
Button click

Load

CellEndEdit

Langkah-langkah penyelesaian form latihan 40b

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_40b_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class Latihan_40b_46110004

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 35-40 DATA MAJEMUK\Datamajemuk.ACCDB")

    Dim gitik As New DataTable

    Dim baru(1) As DataColumn

    Public Sub botto()

        Dim ttotal As Integer

        For Each hasil As DataRow In gitik.Rows

            ttotal += hasil("Jumlah")

        Next

        Total_46110004.Text = ttotal

    End Sub

    Public Sub makecolumn()

        'mendeklarasikan kendaraan

        Dim bojel As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        bojel = New OleDb.OleDbDataAdapter("SELECT detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI inner join barang on detailtransaksi.kodebarang=barang.kodebarang where detailtransaksi.notrans='" & nt_46110004.Text & "'", Jalan)

        'bersihkan data

        gitik.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        bojel.Fill(gitik)

        bojel.Dispose()

        'untuk menampilkan isi datatable ke data grid view

        gitik.Columns("Kodebarang").DefaultValue = ""

        gitik.Columns("NamaBarang").DefaultValue = ""

        gitik.Columns("unit").DefaultValue = 0

        gitik.Columns("harga").DefaultValue = 0

        gitik.Columns("jumlah").DefaultValue = 0

        gitik.Columns("NamaBarang").ReadOnly = True

        baru(0) = gitik.Columns("kodebarang")

        gitik.PrimaryKey = baru

        dgv_46110004.DataSource = gitik

    End Sub

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

        makecolumn()

    End Sub

    Private Sub dgv_46110004_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_46110004.CellEndEdit

        'mengosongkan data

        If e.ColumnIndex = 0 Then

            dgv_46110004.CurrentRow.Cells("NamaBarang").Value = ""

            dgv_46110004.CurrentRow.Cells("Unit").Value = 0

            dgv_46110004.CurrentRow.Cells("harga").Value = 0

            dgv_46110004.CurrentRow.Cells("Jumlah").Value = 0

            'mencari data yang ada di tabel

            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar

            Pencari.AturPencarianDataBase("barang", "kodebarang", dgv_46110004.CurrentRow.Cells("kodebarang").Value, 1, Jalan)

            If Pencari.JumlanBaris > 0 Then

                dgv_46110004.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)

                dgv_46110004.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)

            Else

                MsgBox("the data is not found")

                If latihan_383940_46110004.ShowDialog = Windows.Forms.DialogResult.OK Then

                    dgv_46110004.CurrentRow.Cells("kodebarang").Value = latihan_383940_46110004.dgv_46110004.CurrentRow.Cells("KodeBarang").Value

                    dgv_46110004.CurrentRow.Cells("Namabarang").Value = latihan_383940_46110004.dgv_46110004.CurrentRow.Cells("namabarang").Value

                End If

            End If

            'mengitung jumlah dan total

        ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then

            dgv_46110004.CurrentRow.Cells("jumlah").Value = dgv_46110004.CurrentRow.Cells("unit").Value * dgv_46110004.CurrentRow.Cells("harga").Value

            botto()

        End If

    End Sub

    Private Sub Simpan_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110004.Click

        'Memeriksa isi textbox

        If nt_46110004.Text.Length = 0 Then

            MsgBox("Please, insert the Number of the transaction")

            Exit Sub

        End If

        If jt_46110004.Text.Length = 0 Then

            MsgBox("Please, insert the type of the transaction")

            Exit Sub

        End If

        If gitik.Rows.Count = 0 Then

            MsgBox("the data is none")

            Exit Sub

        End If

        'Memeriksa nomor transaksi pd master transaksi

        If ganti_46110004.Text <> nt_46110004.Text Then

            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

            PENCARI.AturPencarianDataBase("mastertransaksi", "notrans", nt_46110004.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then

                MsgBox("The data has been exist please insert new data")

                Exit Sub

            End If

        End If

        'Proses delete dan Penyimpanan ke tabel master transaksi

        Dim data As Integer = Val(ganti_46110004.Text)

        Dim kacci As New OleDb.OleDbCommand

        kacci = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans='" & ganti_46110004.Text & "'", Jalan)

        Jalan.Open()

        kacci.ExecuteNonQuery()

        Jalan.Close()

        kacci = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans='" & ganti_46110004.Text & "'", Jalan)

        Jalan.Open()

        kacci.ExecuteNonQuery()

        Jalan.Close()

        kacci = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & nt_46110004.Text & "',#" & tgl_46110004.Value.Month & "/" & tgl_46110004.Value.Day & "/" & tgl_46110004.Value.Year & "#,'" & jt_46110004.Text & "')", Jalan)

        Jalan.Open()

        kacci.ExecuteNonQuery()

        Jalan.Close()

        'penyimpanan isi datatable ke detail transaksi

        For Each nhana As DataRow In gitik.Rows

            kacci = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & nt_46110004.Text & "','" & nhana("kodebarang") & "'," & nhana("unit") & "," & nhana("harga") & ")", Jalan)

            Jalan.Open()

            kacci.ExecuteNonQuery()

            Jalan.Close()

        Next

        kacci.Dispose()

        'Mengosongkan isi text box

        nt_46110004.Text = ""

        jt_46110004.Text = ""

        'Mengosongkan baris datatable

        gitik.Rows.Clear()

        'mengambildata

        latihan_40a_46110004.grabdata()

        'menutup form

        Me.Close()

    End Sub

End Class

5. Program ini akan jalan jika kita menekan tombol “Tambah” atau “Ganti” yang terdapat pada latihan_40a_46110004 maka akan muncul tampilan seperti gambar dibawah ini: