Latihan_13_46110006

Deskripsi Form Latihan 13  

 

• Object DataGridView

Hanya terdapat satu object dalam latihan 13 yaitu Datagridview. Pada from ini 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" ubah 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_46110006
    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_46110006_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_46110006.DataSource = herawati

• Even   

       Load

• Property 

             Default

Latihan_12_46110006

DESKRIPSI

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

1. Object GroupBox

      Pada 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

 

          Pada 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

        Pada 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

        

         Pada 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

 

        Pada 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 DataTimePicker

 

        Pada 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" ubah 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_46110006

    Dim tabel As New DataTable

    Private Sub Latihan_12_46110006_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_46110006.DataSource = tabel

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

    End Sub

    Private Sub Hrg_46110006_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hrg_46110006.TextChanged, unit_46110006.TextChanged
        jml_46110006.Text = Val(hrg_46110006.Text) * Val(unit_46110006.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_46110006.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = nopem_46110006.Text
            baris("nama barang") = nabar_46110006.Text
            baris("harga per unit") = Val(hrg_46110006.Text)
            baris("tanggal pembelian") = tgl_46110006.Value.Date
            baris("unit") = Val(unit_46110006.Text)
            baris("jumlah") = Val(jml_46110006.Text)

            tabel.Rows.Add(baris)

            nopem_46110006.Text = ""
            nabar_46110006.Text = ""
            hrg_46110006.Text = ""
            unit_46110006.Text = ""
            jml_46110006.Text = ""

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

    End Sub

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

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

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

            nopem_46110006.Text = baris("no. pembelian")
            nabar_46110006.Text = baris("nama barang")
            hrg_46110006.Text = baris("harga per unit")
            tgl_46110006.Value = baris("tanggal pembelian")
            unit_46110006.Text = baris("unit")
            jml_46110006.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        Nobar_46110006.Text = ""
    End Sub

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


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

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

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

        End If
        Nobar_46110006.Text = ""

    End Sub

    Private Sub t2_4611006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T2_46110006.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(npem_46110006.Text)

        If Not baris Is Nothing Then
            nopem_46110006.Text = baris("no. pembelian")
            nabar_46110006.Text = baris("nama barang")
            hrg_46110006.Text = baris("harga per unit")
            tgl_46110006.Value = baris("tanggal pembelian")
            unit_46110006.Text = baris("unit")
            jml_46110006.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        npem_46110006.Text = ""

    End Sub

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

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

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

        End If
        Nobar_46110006.Text = ""

    End Sub

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

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


            nopem_46110006.Text = baris("no. pembelian")
            nabar_46110006.Text = baris("nama barang")
            hrg_46110006.Text = baris("harga per unit")
            tgl_46110006.Value = baris("tanggal pembelian")
            unit_46110006.Text = baris("unit")
            jml_46110006.Text = baris("jumlah")
        Else
            MsgBox("baris terlalu besar")

        End If
        Nobar_46110006.Text = ""

    End Sub

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

    End Sub

    Private Sub data_46110006_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles Data_46110006.DataBindingComplete
        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        Totun_46110006.Text = tu
        Tot_4611000.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_46110006

1.      Deskripsi from

Object Label

Terdapat 13 label (yang bertuliskan stambuk, Nama, Mata Kuliah, Nila Mutu (N), SKA (S), NxS)

                                                                                     

Object TexBox

Terdapat 25 textbox (12 status input, 8 berstatus read only. Status input digunakan untuk memasukkan nilai Sedangkan Status Read Only digunakan untuk menampilkan hasil pada fungsi yang telah di kerjakan.

Script Unique

Script Unique yang terdapat pada latihan 11 ini adalah Private Sub ABC().,, script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Event :

      Textchanged

Property :

Property TextBox ==> ReadOnly=True

2.      Cara Membuat From Latihan 11 :

      1.  Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

           

      2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_09_46110006”.

    3. Buatlah desain dibawah ini dengan menggunakan toolbox, TextBox dan Label.

                                   

                          4.  Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_11_46110006

    Private Sub fitry(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)

        If A.Text = "A" Then

            C.Text = Val(B.Text) * 4

        ElseIf A.Text = "B" Then

            C.Text = Val(B.Text) * 3

        ElseIf A.Text = "C" Then

            C.Text = Val(B.Text) * 2

        ElseIf A.Text = "D" Then

            C.Text = Val(B.Text) * 1

        ElseIf A.Text = "E" Then

            C.Text = Val(B.Text) * 0

        Else : MsgBox("NILAI MUTU TIDAK DITEMUKAN")

        End If

    End Sub

    Private Sub TOTAL()

        total_46110006.Text = Val(s1_46110006.Text) + Val(s2_46110006.Text) + Val(s3_46110006.Text) + Val(s4_46110006.Text) + Val(s5_46110006.Text)

        total2_46110006.Text = Val(ns1_46110006.Text) + Val(ns2_46110006.Text) + Val(ns3_46110006.Text) + Val(ns4_46110006.Text) + Val(ns5_46110006.Text)

        ipk_46110006.Text = total2_46110006.Text / total_46110006.Text

    End Sub

    Private Sub s1_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s1_46110006.TextChanged

        fitry(n1_46110006, s1_46110006, ns1_46110006)

        TOTAL()

    End Sub

    Private Sub s2_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s2_46110006.TextChanged

        fitry(n2_46110006, s2_46110006, ns2_46110006)

        TOTAL()

    End Sub

    Private Sub s3_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s3_46110006.TextChanged

        fitry(n3_46110006, s3_46110006, ns3_46110006)

        TOTAL()

    End Sub

    Private Sub s4_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s4_46110006.TextChanged

        fitry(n4_46110006, s4_46110006, ns4_46110006)

        TOTAL()

    End Sub

    Private Sub s5_46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles s5_46110006.TextChanged

        fitry(n5_46110006, s5_46110006, ns5_46110006)

        TOTAL()

    End Sub

End Class

3. Langkah untuk menjalankan from 11 :

1.    Klik start debugging.

2.    Isi TextBox yang berstatus input, sesuai dengan keinginan anda.

3.  Setelah anda menginput textbox yang tersedia, hasilnya akan muncul sendiri pada form.