Latihan_13_46110027

Deskripsi Form Latihan 13

• Object DataGridView    

Hanya ada terdapat satu object dalam latihan 13 yaitu datagridview. Terdapat 3 object datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

  

Langkah-langkah Membuat form latihan 13

1. Buka project yang telah dibuat sebelumnya 
2. Pilih project dan klik add windows form  

        3. Pada kotak "Name" ketik nama file yang akan dibuat.

        4. Buat form seperti dibawah ini dengan menggunakan toolbox.

        5. Pilih menu View lalu klik code..masukkan rumus berikut:

Public Class Latihan_13_46110027

    Dim DTRI As New DataTable
    Dim DTRS As New DataTable
    Dim DTRSS As New DataTable


    Dim ZAHRAH As New DataSet


    Dim herawati As New BindingSource
    Dim LUKMAN As New BindingSource
    Dim AKBAR As New BindingSource

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

        DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DTRI.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        DTRS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DTRS.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        DTRS.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DTRSS.Columns.Add(New DataColumn("Kode Rekening sub", GetType(String)))
        DTRSS.Columns.Add(New DataColumn("Kode Rekening Sub-sub", GetType(String)))
        DTRSS.Columns.Add(New DataColumn("Nama Rekening Sub-sub", GetType(String)))


        Dim Acak As New Random

        For RI As Integer = 1 To Acak.Next(1, 5)
            DTRI.Rows.Add(RI, "Nama Rekening " & RI)
            For RS As Integer = 1 To Acak.Next(1, 5)
                DTRS.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To Acak.Next(1, 5)
                    DTRSS.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next

        ZAHRAH.Tables.Add(DTRI)
        ZAHRAH.Tables.Add(DTRS)
        ZAHRAH.Tables.Add(DTRSS)


        DTRI.TableName = "ICA"
        DTRS.TableName = "DIS"
        DTRSS.TableName = "OCA"


        ZAHRAH.Relations.Add(New DataRelation("TA", ZAHRAH.Tables("ICA").Columns("kode rekening induk"), ZAHRAH.Tables("dis").Columns("kode rekening induk")))
        ZAHRAH.Relations.Add(New DataRelation("HI", ZAHRAH.Tables("DIS").Columns("kode rekening sub"), ZAHRAH.Tables("oca").Columns("kode rekening sub")))


        herawati.DataSource = ZAHRAH
        herawati.DataMember = "ica"

        LUKMAN.DataSource = herawati
        LUKMAN.DataMember = "TA"


        AKBAR.DataSource = LUKMAN
        AKBAR.DataMember = "HI"


        t1_46110027.DataSource = herawati
        t2_46110027.DataSource = LUKMAN
        t3_46110027.DataSource = AKBAR

    End Sub
End Class

Langkah-langkah menjalankan form latihan 13 

              Klik start debugging

• Script Unique  
Untuk membuat Datatable,dataset,bindingsource

    Dim DTRSS As New DataTable


    Dim ZAHRAH As New DataSet


    Dim herawati As New BindingSource
   

Membuat kolom pada data tabel

 DTRSS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

Menambah baris pada Data tabel

For RS As Integer = 1 To Acak.Next(1, 5)
                DTRS.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)

Menambahkan Datatabel ke dataset

ZAHRAH.Tables.Add(DTRI)

Membuat Relationship

ZAHRAH.Relations.Add(New DataRelation("TA", ZAHRAH.Tables("ICA").Columns("kode rekening induk"), ZAHRAH.Tables("dis").Columns("kode rekening induk")))
        ZAHRAH.Relations.Add(New DataRelation("HI", ZAHRAH.Tables("DIS").Columns("kode rekening sub"), ZAHRAH.Tables("oca").Columns("kode rekening sub")))

Mengubah Dataset menjadi data source

herawati.DataSource = ZAHRAH

Mengubah bindingsore menjadi datagridview

 t1_46110027.DataSource = herawati

• Even   

       Load

• Property 

             Default

Latihan_12_46110027

Deskripsi Form Latihan 12

Dalam Form latihan ini terdapat enam object yaitu GroupBox, Label, TextBox, Button, dan DataGriedView dan Datetimepiker.

1. Object GroupBox

      Dalam form ini terdapat lima object groupbox yang berguna untuk menyatukan beberapa object toolbox dalam satu kategori tertentu antara lain "Formulir" "data" "Berdasarkan No.Baris" "Berdasarkan No.Pembelian" dan " Bardasarkan No.Sekarang"

2. Object Label 

          Dalam form ini terdapat terdapat sebelas label antara lain: No Pembelian, Nama Barang, Harga Perunit, Unit Tanggal, Jumlah, Total Unit, Total, No Baris, No Pembelian, Baris Sekarang.

3. Object Textbox

        Dalam form ini terdapat sembilan object textbox (enam status input; tiga status read only). Status input digunakan antara lain No Pembelian, Nama Barang, Harga Perunit, No Baris. Status Read Only digunakan untuk menampilkan hasil rumus yg dimasukkan

4. Object Button

        

         Dalam form ini terdapat tujuh object button antara lain Simpan, Tampilkan dan Hapus . Tombol Simpan digunakan untuk memasukkan data yang telah diinput ke dalam datagridview. Tombol Tampilkan digunakan untuk menampilkan data dalam datagridview  Sedangkan tombol Hapus  untuk menghapus data yang ada di dalam datagridview. 

5. Object Datagridview

        Dalam form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan data yang telah diinput dalam no pembelian, nama barang, harga perunit, unit, jumlah, dan tanggal pembelian.

6. Object Datetimepiker

        Dalam form ini terdapat satu object DateTimePicker yang digunakan untuk menentukan tanggal pembelian.

• Langkah-langkah membuat form latihan 12 

1.  Buka project yang telah dibuat sebelumnya

2.  Pilih project dan klik add windows form

3. Pada kotak "Name" ketik nama file yang akan dibuat.

     

4. Buat form seperti dibawah ini dengan menggunakan toolbox.

5. Pilih menu View lalu klik code..masukkan rumus berikut:

Public Class Latihan_12_46110027

    Dim tabel As New DataTable

    Private Sub Latihan_12_46110027_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))
        tabel.Columns.Add(New DataColumn("nama barang", GetType(String)))
        tabel.Columns.Add(New DataColumn("harga per unit", GetType(Double)))
        tabel.Columns.Add(New DataColumn("tanggal pembelian", GetType(Date)))
        tabel.Columns.Add(New DataColumn("unit", GetType(Integer)))
        tabel.Columns.Add(New DataColumn("jumlah", GetType(Double)))

        Data_46110027.DataSource = tabel

        Dim kolom(1) As DataColumn
        kolom(0) = tabel.Columns("no. pembelian")
        tabel.PrimaryKey = kolom

    End Sub

    Private Sub Hrg_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hrg_46110027.TextChanged, unit_46110027.TextChanged
        jml_46110027.Text = Val(hrg_46110027.Text) * Val(unit_46110027.Text)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem_46110027.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = nopem_46110027.Text
            baris("nama barang") = nabar_46110027.Text
            baris("harga per unit") = Val(hrg_46110027.Text)
            baris("tanggal pembelian") = tgl_46110027.Value.Date
            baris("unit") = Val(unit_46110027.Text)
            baris("jumlah") = Val(jml_46110027.Text)

            tabel.Rows.Add(baris)

            nopem_46110027.Text = ""
            nabar_46110027.Text = ""
            hrg_46110027.Text = ""
            unit_46110027.Text = ""
            jml_46110027.Text = ""

        Else : MsgBox("baris sudah ada")
            jml_46110027.Text = ""
        End If

    End Sub

    Private Sub h3_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H3_46110027.Click
        Dim baris As DataRow

        If Val(Nobar_46110027.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(Nobar_46110027.Text) - 1)

            nopem_46110027.Text = baris("no. pembelian")
            nabar_46110027.Text = baris("nama barang")
            hrg_46110027.Text = baris("harga per unit")
            tgl_46110027.Value = baris("tanggal pembelian")
            unit_46110027.Text = baris("unit")
            jml_46110027.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        Nobar_46110027.Text = ""
    End Sub

    Private Sub H2_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H2_46110027.Click
        Dim baris As DataRow


        If Val(Nobar_46110027.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(Nobar_46110027.Text) - 1)
            baris.Delete()

        Else
            MsgBox("no. baris yang dimasukkan tidak ada")

        End If
        Nobar_46110027.Text = ""

    End Sub


    Private Sub t2_4611007_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T2_46110027.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(npem_46110027.Text)

        If Not baris Is Nothing Then
            nopem_46110027.Text = baris("no. pembelian")
            nabar_46110027.Text = baris("nama barang")
            hrg_46110027.Text = baris("harga per unit")
            tgl_46110027.Value = baris("tanggal pembelian")
            unit_46110027.Text = baris("unit")
            jml_46110027.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        npem_46110027.Text = ""

    End Sub

    Private Sub H1_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H1_46110027.Click
        Dim baris As DataRow
        If Val(Nobar_46110027.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(Nobar_46110027.Text) - 1)
            baris.Delete()

        Else
            MsgBox("no. baris yang dimasukkan tidak ada")

        End If
        Nobar_46110027.Text = ""


    End Sub

    Private Sub T1_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1_46110027.Click
        Dim baris As DataRow
        If Val(Nobar_46110027.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(Nobar_46110027.Text) - 1)


            nopem_46110027.Text = baris("no. pembelian")
            nabar_46110027.Text = baris("nama barang")
            hrg_46110027.Text = baris("harga per unit")
            tgl_46110027.Value = baris("tanggal pembelian")
            unit_46110027.Text = baris("unit")
            jml_46110027.Text = baris("jumlah")
        Else
            MsgBox("baris terlalu besar")

        End If
        Nobar_46110027.Text = ""

    End Sub

    Private Sub T3_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T3_46110027.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row
        baris.Delete()

    End Sub

    Private Sub data_46110027_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles Data_46110027.DataBindingComplete
        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        Totun_46110027.Text = tu
        Tot_46110027.Text = total
    End Sub
End Class

• Langkah-langkah menjalankan form latihan 12

1. Klik start debugging
2. Input data ke dalam formulir 1 lalu simpan
3. Apabila ingin mengahapus data atau menampilkan data yang ada pada "DATA" maka gunakan "Berdasarkan No.Baris, Berdasarkan no.Pembelian atau Berdasarkan No. Sekarang"

• Script Unique  
Untuk button Simpan, Tampilkan dan Hapus

Dim baris As DataRow 
• Even   

       Buttonclick TextChanged

• Property 

             Property TextBox è ReadOnly = True

Latihan_11_46110027

Deskripsi from

 Object Label

Pada form latihan 11 ini Terdapat 14 label (Indeks Prestasi Komulatif, Stambuk, Nama, Mata Kuliah, Nilai Mutu (N), SKS (S), NxS, Pengantar Akuntansi, Akuntansi intermediate, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK)

Object Textbox

Pada form ini terdapat 20 textbox(12 status input, 8 berstatus read only).Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan sedangkan status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Pada form ini terdapat 20 textbox(12 status input, 8 berstatus read only).Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan sedangkan status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Script Unique 

Terdapat Script unik pada form ini yaitu

Private Sub rsty(ByVal nilai As TextBox, ByVal sks As TextBox, ByVal hasil As TextBox)

        If nilai.Text = "A" Then

            hasil.Text = 4 * Val(sks.Text)

        ElseIf nilai.Text = "B" Then

            hasil.Text = 3 * Val(sks.Text)

        ElseIf nilai.Text = "C" Then

            hasil.Text = 2 * Val(sks.Text)

        ElseIf nilai.Text = "D" Then

            hasil.Text = 1 * Val(sks.Text)

        Else

            hasil.Text = 0

        End If

    End Sub

script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Untuk menjalankan call prosedur yang telah dibuat:

Private Sub sks1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks1_46110027.TextChanged

        rsty(nm1_46110027, sks1_46110027, ns1_46110027)

        totsks()

        totha()

        ipk()

End Sub

Even

TextChanged.

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah membuat Latihan 11

1.  Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

                                                                                                                                                                      

2.  Ketik nama latihan_11  yang akan dibuat pada kotak “NAME” lalu pilih “add”

3.  Buatlah desain seperti berikut menggunakan toolbox

4.  Pilih menu “view” klik  “code”

                                                                                                                                                                                         

5.  Masukkan rumus berikut:

Public Class Latihan_11_46110027

    Private Sub rsty(ByVal nilai As TextBox, ByVal sks As TextBox, ByVal hasil As TextBox)

        If nilai.Text = "A" Then

            hasil.Text = 4 * Val(sks.Text)

        ElseIf nilai.Text = "B" Then

            hasil.Text = 3 * Val(sks.Text)

        ElseIf nilai.Text = "C" Then

            hasil.Text = 2 * Val(sks.Text)

        ElseIf nilai.Text = "D" Then

            hasil.Text = 1 * Val(sks.Text)

        Else

            hasil.Text = 0

        End If

    End Sub

    Private Sub sks1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks1_46110027.TextChanged

        rsty(nm1_46110027, sks1_46110027, ns1_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub sks2_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks2_46110027.TextChanged

        rsty(nm2_46110027, sks2_46110027, ns2_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub sks3_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks3_46110027.TextChanged

        rsty(nm3_46110027, sks3_46110027, ns3_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub sks4_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks4_46110027.TextChanged

        rsty(nm4_46110027, sks4_46110027, ns4_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub sks5_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sks5_46110027.TextChanged

        rsty(nm5_46110027, sks5_46110027, ns5_46110027)

        totsks()

        totha()

        ipk()

    End Sub

    Private Sub totsks()

        tot_46110027.Text = Val(sks1_46110027.Text) + Val(sks2_46110027.Text) + Val(sks3_46110027.Text) + Val(sks4_46110027.Text) + Val(sks5_46110027.Text)

    End Sub

    Private Sub totha()

        tot1_46110027.Text = Val(nm1_46110027.Text) + Val(nm2_46110027.Text) + Val(nm3_46110027.Text) + Val(nm4_46110027.Text) + Val(nm5_46110027.Text)

    End Sub

    Private Sub ipk()

        ipk_46110027.Text = Val(tot_46110027.Text) / Val(tot1_46110027.Text)

    End Sub

End Class

Langkah – Langkah Menjalankan Form 11

    1.    Klik start debugging.

2.    Isi text box yang berstatus input

3.     Secara otomatis hasil akan muncul pada textbox yang berstatus read only.

Latihan_10_46110027

Deskripsi from

 Object Label

Pada form latihan 10 ini terdapat 9 label (Nama Perusahaan,Nama Pegawai, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5, PKP, dan PPh)

Object Textbox

Pada form ini terdapat 11 textbox(6status input, 5 berstatus read only). Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan sedangkan status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Script Unique

Terdapat Script unik pada form ini yaitu Private Sub p1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p1_46110027.TextChanged

        pph(p1_46110027, pp1_46110027)script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut. Urutan text box nya harus sama dengan urutan yang ada di prosedure.

Even

TextChanged

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah membuat Latihan 10

1.  Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

                                                                                                                                                                        

2.  Ketik nama latihan_10  yang akan dibuat pada kotak “NAME” lalu pilih “add”

3.  Buatlah desain seperti berikut menggunakan toolbox

4.  Pilih menu “view” klik  “code”

                                                                                                                                                                                         

5.  Masukkan rumus berikut:

Public Class Latihan_10_46110027

    Private Sub pph(ByVal pkp As TextBox, ByVal pph As TextBox)

        If Val(pkp.Text) >= 500000000 Then

            pph.Text = Val(0.5 * 50000000) + Val(0.15 * 200000000) + Val(0.25 * 250000000) + Val(0.3 * (Val(pkp.Text) - 500000000))

        ElseIf Val(pkp.Text) >= 250000000 Then

            pph.Text = Val(0.5 * 50000000) + Val(0.15 * 200000000) + (0.25 * (Val(pkp.Text) - 250000000))

        ElseIf Val(pkp.Text) >= 50000000 Then

            pph.Text = Val(0.5 * 50000000) + (0.15 * (Val(pkp.Text) - 50000000))

        ElseIf Val(pkp.Text) >= 0 Then

            pph.Text = 0.05 * Val(pkp.Text)

        End If

    End Sub

    Private Sub p1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p1_46110027.TextChanged

        pph(p1_46110027, pp1_46110027)

    End Sub

    Private Sub p2__46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p2_46110027.TextChanged

        pph(p2_46110027, pp2_46110027)

    End Sub

    Private Sub p3_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p3_46110027.TextChanged

        pph(p3_46110027, pp3_46110027)

    End Sub

    Private Sub p4_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p4_46110027.TextChanged

        pph(p4_46110027, pp4_46110027)

    End Sub

    Private Sub p5_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p5_46110027.TextChanged

        pph(p5_46110027, pp5_46110027)

    End Sub

End Class

Langkah – Langkah Menjalankan Form 10

    1.    Klik start debugging.

2.    Isi text box yang berstatus input

3.     Secara otomatis hasil akan muncul pada textbox yang berstatus read only.