Latihan_13_36110056

Deskripsi Latihan 13:

Form Latihan 13 terdapat satu object yaitu Data Grid View

Object  Data Grid View

Terdapat tiga object Data Grid View digunakan untuk menampilkan data tabel.

Script Unique

Membuat data table

Dim DTRI As New DataTable

Membuat data Set

Dim ZAHRAH As New DataSet

Membuat BiddingSource

Dim herawati As New BindingSource

Menambah data table

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

Membuat Relationship

ilyas.Relations.Add(New DataRelation("TA", ilyas.Tables("D").Columns("kode rekening induk"), ilyas.Tables("R").Columns("kode rekening induk")))

Data set menjadi data source

herawati.DataSource = ilyas

herawati.DataMember = "D"

Binding source menjadi data source pada data grid view

DGV1_36110056.DataSource = herawati

Even

TableClick

FromLoad

Script Unique

Default

 Form Latihan 13

Langkah-langkah penyelesaian latihan 13 :

• 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 yang ada dalam Toolbox
• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class Latihan13_36110056
    Dim DTRI As New DataTable
    Dim DTRS As New DataTable
    Dim DTRSS As New DataTable
    Dim ilyas As New DataSet
    Dim herawati As New BindingSource
    Dim LUKMAN As New BindingSource
    Dim AKBAR As New BindingSource
    Private Sub Latihan13_36110056_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 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

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

        DTRI.TableName = "D"
        DTRS.TableName = "R"
        DTRSS.TableName = "S"

        ilyas.Relations.Add(New DataRelation("TA", ilyas.Tables("D").Columns("kode rekening induk"), ilyas.Tables("R").Columns("kode rekening induk")))
        ilyas.Relations.Add(New DataRelation("HI", ilyas.Tables("R").Columns("kode rekening sub"), ilyas.Tables("S").Columns("kode rekening sub")))

        herawati.DataSource = ilyas
        herawati.DataMember = "D"

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

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

        DGV1_36110056.DataSource = herawati
        DGV2_36110056.DataSource = LUKMAN
        DGV3_36110056.DataSource = AKBAR


      
    End Sub
End Class

  

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

 

Latihan_12_36110056

Deskripsi Latihan 12:

Form Latihan 12 terdapat enam object yaitu Label, Text Box, Button, Date Time Picker, Data Grid View, dan Group Box

Object Label

Terdapat sebelas object label (Diberi nama no pembelian, nama barang, harga perunit, unit, tanggal, jumlah, total unit, total, no baris, no pembelian, baris sekarang)

Object Text Box

Terdapat sembilan textbox (enam status input; tiga status read only). Status input digunakan untuk memasukkan data dari no pembelian, nama barang, harga perunit, no baris. Status Read Only digunakan untuk menampilkan hasil dari perkalian harga perunit dan unit, dan total unit serta jumlah dari data yang dimasukkan dalam datagridview.

Object Button 

Terdapat Tujuh object Button (Diberi nama Simpan, Tampilkan di no.baris, Hapus di no.baris, Tampilkan di no.pembelian, Hapus di no.pembelian, Tampilkan berd.baris sekarang dan Hapus berd.baris skrg).

     Object Date Time Picker

Terdapat satu Date Time Picker

Object Date Grid View

Terdapat satu object datagridview digunakan untuk menampilkan data yang telah diinput dalam no.pembelian, harga perunit, nama barang, jumlah

Object  Group Box

Terdapat dua Lima Object Group Box

Script Unique

Cara membuat tabel baru

Dim tabel As New DataTable

Cara membuat  colom

tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))

Mengatur Primarykey data table

Dim kolom(1) As DataColumn

    kolom(0) = tabel.Columns("no. pembelian")

    tabel.PrimaryKey = kolom

Cara membuat data Source

dgv_36110056.DataSource = tabel

Membuat Call Prosedure

Private Sub iyas()

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        Totu_36110056.Text = tu

        Tot_36110056.Text = total

    End Sub

Even

TextChanged

ButtonClick

Property

Default

 

 From Latihan 12

Langkah-langkah penyelesaian latihan 12 :

• 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 Label, Text Box, Button, Date Time Picker, Data Grid View, dan Group Box

 

• 

• Setelah form selesai, ubah nama textbox,dan button yang terdapat dalam properties window
• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan12_36110056
    Dim tabel As New DataTable
    Private Sub latihan12_36110056_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)))

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

    End Sub

    Private Sub unit_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit_36110056.TextChanged
        jml_36110056.Text = Val(hp_36110056.Text) * Val(unit_36110056.Text)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NP_36110056.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = NP_36110056.Text
            baris("nama barang") = nb_36110056.Text
            baris("harga per unit") = Val(hp_36110056.Text)
            baris("tanggal pembelian") = dtp_36110056.Value.Date
            baris("unit") = Val(unit_36110056.Text)
            baris("jumlah") = Val(jml_36110056.Text)

            tabel.Rows.Add(baris)

            NP_36110056.Text = ""
            nb_36110056.Text = ""
            hp_36110056.Text = ""
            unit_36110056.Text = ""
            jml_36110056.Text = ""

        Else : MsgBox("baris sudah ada")
            jml_36110056.Text = ""
        End If
        iyas()
    End Sub

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

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

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

            NP_36110056.Text = baris("no. pembelian")
            nb_36110056.Text = baris("nama barang")
            hp_36110056.Text = baris("harga per unit")
            dtp_36110056.Value = baris("tanggal pembelian")
            unit_36110056.Text = baris("unit")
            jml_36110056.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        nobar_36110056.Text = ""

    End Sub
    Private Sub hapus1_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus1_36110056.Click
        Dim baris As DataRow

        If Val(nobar_36110056.Text) <= tabel.Rows.Count Then
            baris = tabel.Rows(Val(nobar_36110056.Text) - 1)
            baris.Delete()
            iyas()

        Else
            MsgBox("no. baris yang dimasukkan tidak ada")
            nobar_36110056.Text = ""
        End If

    End Sub

    Private Sub tampil2_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil2_36110056.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nope_36110056.Text)

        If Not baris Is Nothing Then
            NP_36110056.Text = baris("no. pembelian")
            nb_36110056.Text = baris("nama barang")
            hp_36110056.Text = baris("harga per unit")
            dtp_36110056.Value = baris("tanggal pembelian")
            unit_36110056.Text = baris("unit")
            jml_36110056.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        nope_36110056.Text = ""

    End Sub

    Private Sub hapus2_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus2_36110056.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nope_36110056.Text)

        If Not baris Is Nothing Then
            baris.Delete()
            iyas()
            nope_36110056.Text = ""
        Else
            MsgBox("no. pembelian yang dimasukkan tidak ada")
            nope_36110056.Text = ""
        End If

    End Sub

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

        NP_36110056.Text = baris("no. pembelian")
        nb_36110056.Text = baris("nama barang")
        hp_36110056.Text = baris("harga per unit")
        dtp_36110056.Value = baris("tanggal pembelian")
        unit_36110056.Text = baris("unit")
        jml_36110056.Text = baris("jumlah")

    End Sub

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

    Private Sub iyas()

        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        Totu_36110056.Text = tu
        Tot_36110056.Text = total
    End Sub

  
End Class

• Selanjutnya jika ingin menjalankannya pilih Start de Bugging

 

 

Latihan_11_36110056

Deskripsi Latihan 11:

Form Latihan 11 terdapat dua object yaitu Label dan textbox

Object Label

Terdapat empat belas object label(yang diberi nama indek prestasi komulatif, stambuk, nama, mata kuliah, nilai mutu (N), sks (S), N x S, pengantar akuntansi, akuntansi intermediate, akuntansi advance, akuntansi biaya, system akuntansi, total, ipk).

Object Text Box

Terdapat dua puluh textbox yang terdiri dari (12 textbox yang berstatus input dan 8 textbox berstatus read only).

Script Unique 

Private Sub NL(ByVal n As TextBox, ByVal s As TextBox, ByVal y As TextBox)

        If n.Text = "A" or n.Text = “a” Then

            y.Text = 4 * Val(s.Text)

       ElseIf n.Text = "B" or n.Text = “b” Then

            y.Text = 3 * Val(s.Text)

        End If

 Textchanged  

Private Sub S1_36110056_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pas_36110037.TextChanged

       NL(N1_36110056, S1_36110037,  NS1_36110056)

      Even

Textchanged

Property

Property TextBox ReadOnly=True

                                                  FORM LATIHAN 11

Langkah-langkah penyelesaian latihan 11 :

• 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 Label dan Textbox yang ada dalam Toolbox
• Setelah form selesai, ubah nama textbox yang terdapat dalam properties window
• Selanjutnya masukkan formula atau rumus untuk menjalan form  :
 Public Class Latihan11_36110056

    Private Sub NL(ByVal n As TextBox, ByVal s As TextBox, ByVal y As TextBox)
        If n.Text = "A" Or n.Text = "a" Then
            y.Text = 4 * Val(s.Text)
        ElseIf n.Text = "B" Or n.Text = "b" Then
            y.Text = 3 * Val(s.Text)
        ElseIf n.Text = "C" Or n.Text = "c" Then
            y.Text = 2 * Val(s.Text)
        ElseIf n.Text = "D" Or n.Text = "d" Then
            y.Text = 1 * Val(s.Text)
        Else
            y.Text = ""
        End If

    End Sub

    Private Sub s1_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s1_36110056.TextChanged
        NL(n1_36110056, s1_36110056, ns1_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

    Private Sub s2_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s2_36110056.TextChanged
        NL(n2_36110056, s2_36110056, ns2_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

    Private Sub s3_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s3_36110056.TextChanged
        NL(n3_36110056, s3_36110056, ns3_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

    Private Sub s4_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s4_36110056.TextChanged
        NL(n4_36110056, s4_36110056, ns4_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

    Private Sub s5_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s5_36110056.TextChanged
        NL(n5_36110056, s5_36110056, ns5_36110056)
        ts_36110056.Text = Val(s1_36110056.Text) + Val(s2_36110056.Text) + Val(s3_36110056.Text) + Val(s4_36110056.Text) + Val(s5_36110056.Text)
        tns_36110056.Text = Val(ns1_36110056.Text) + Val(ns2_36110056.Text) + Val(ns3_36110056.Text) + Val(ns4_36110056.Text) + Val(ns5_36110056.Text)
        ins_36110056.Text = Val(tns_36110056.Text) / Val(ts_36110056.Text)
    End Sub

 

• Selanjutnya jika ingin menjalankannya pilih Startde bungging atau dapat menekan F5 pada keyboard