Latihan_12_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 12
1. Bukalah Kumpulan Project yang telah dibuat.
2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_12_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kite temukan di ToolBox

5. Beri nama pada Object Label, Button dan GroupBox melului properties properties, contoh pada label1:
Lakukan hingga semua nama terganti sesuai kriteria Latihan_12
6. Ubah nama pada setiap Object TextBox, Data Grid View, Button sesuai dengan yag kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Contoh pada salah satu textbox:

7. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan scrip dibawah ini pada window:


Public Class Latihan_12_46110043

    Dim TRINITA As New DataTable

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

        dgv46110043.DataSource = TRINITA

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

    End Sub

    Private Sub hp46110043_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles hp46110043.TextChanged, unit46110043.TextChanged
        jumlah46110043.Text = Val(hp46110043.Text) * Val(unit46110043.Text)
    End Sub

    Private Sub save46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110043.Click
        Dim baris As DataRow
        baris = TRINITA.Rows.Find(nopem46110043.Text)

        If baris Is Nothing Then
            baris = TRINITA.NewRow

            baris("no. pembelian") = nopem46110043.Text
            baris("nama barang") = naba46110043.Text
            baris("harga per unit") = Val(hp46110043.Text)
            baris("tanggal pembelian") = tgl46110043.Value.Date
            baris("unit") = Val(unit46110043.Text)
            baris("jumlah") = Val(jumlah46110043.Text)

            TRINITA.Rows.Add(baris)

            nopem46110043.Text = ""
            naba46110043.Text = ""
            hp46110043.Text = ""
            unit46110043.Text = ""
            jumlah46110043.Text = ""

        Else : MsgBox("baris sudah ada")
            jumlah46110043.Text = ""
        End If
        TRI()
    End Sub
    Private Sub tampilkan1_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan1_46110043.Click
        Dim baris As DataRow

        If Val(nobar46110043.Text) <= TRINITA.Rows.Count Then

            baris = TRINITA.Rows(Val(nobar46110043.Text) - 1)

            nopem46110043.Text = baris("no. pembelian")
            naba46110043.Text = baris("nama barang")
            hp46110043.Text = baris("harga per unit")
            tgl46110043.Value = baris("tanggal pembelian")
            unit46110043.Text = baris("unit")
            jumlah46110043.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        nobar46110043.Text = ""
    End Sub

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


        If Val(nobar46110043.Text) <= TRINITA.Rows.Count Then

            baris = TRINITA.Rows(Val(nobar46110043.Text) - 1)
            baris.Delete()

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

        End If
        nobar46110043.Text = ""
    End Sub
    Private Sub tampilkan2_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan2_46110043.Click
        Dim baris As DataRow
        baris = TRINITA.Rows.Find(nobel46110043.Text)

        If Not baris Is Nothing Then
            nopem46110043.Text = baris("no. pembelian")
            naba46110043.Text = baris("nama barang")
            hp46110043.Text = baris("harga per unit")
            tgl46110043.Value = baris("tanggal pembelian")
            unit46110043.Text = baris("unit")
            jumlah46110043.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        nobel46110043.Text = ""
    End Sub
    Private Sub hapus2_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus2_46110043.Click
        Dim baris As DataRow
        baris = TRINITA.Rows.Find(nobel46110043.Text)

        If Not baris Is Nothing Then
            baris.Delete()
            nobel46110043.Text = ""

        Else
            MsgBox("no. pembelian yang dimasukkan tidak ada")
            nobel46110043.Text = ""
        End If

    End Sub
    Private Sub tampilkan3_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan3_46110043.Click
        Dim baris As DataRow
        baris = TRINITA.DefaultView(BindingContext(TRINITA).Position).Row

        nopem46110043.Text = baris("no. pembelian")
        naba46110043.Text = baris("nama barang")
        hp46110043.Text = baris("harga per unit")
        tgl46110043.Value = baris("tanggal pembelian")
        unit46110043.Text = baris("unit")
        jumlah46110043.Text = baris("jumlah")
    End Sub

    Private Sub hapus3_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus3_46110043.Click
        Dim baris As DataRow
        baris = TRINITA.DefaultView(BindingContext(TRINITA).Position).Row
        baris.Delete()
    End Sub


    Private Sub TRI()
        Dim TU, total As Integer
        For Each x As DataRow In TRINITA.Rows
            TU = TU + x("UNIT")
            total = total + x("JUMLAH")
        Next
        totalunit46110043.Text = TU
        total46110043.Text = total
    End Sub

End Class

8. Klik Start Debugging untuk menjalankan form. Lalu input data yang ingin ditampilkan.



B. Deskripsi Form Latihan_12
Pada Form Latihan_12 pada gambar diatas terdapat 6 Object yaitu, Object Label, TextBox, GroupBox, Button, DataGridView dan DateTimePicker.

Object Label
Terdapat 11 object Label pada form Latihan_12 yang masing-masing bernama : No Pembelian, Nama Barang, Harga Perunit, Unit, Jumlah, Tanggal, Total Unit, Total, No. Barisku, No. Pembelian dan Baris Sekarang.

Object TextBox

Terdapat 9 textbox yang digunakan pada form Latihan_12 ini yaitu 6 status input dan 3 status readonly. Status input digunakan untuk memasukkan data sedangkan readonly akan menampilkan hasil analisa setelah data di input ke textbox yang berstatus input dan datetimepicker

Object GroupBox

Terdapat 5 object groupbox pada form Latihan_12 ini yaitu masing-masing bernama:  Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian dan Berdasarkan Baris Sekarang.

Object Button

Terdapat 7 object button yang digunakan pada form Latihan_12 ini yaitu masing-masing bernama Simpan, Tampilkan(3) dan Hapus(3). Tombol simpan digunakan untuk menyimpan hasil penginputan data. Tombol tampilkan digunakan untuk menampilkan data yang diinginkan. Tombol hapus digunakan untuk menghapus data yang diinginkan.

Object DataGridView

Terdapat 1 object datagridview pada form Latihan_12 ini yang berfungsi untuk menampilkan datatable yang telah disimpan sebelumnya.

Object DateTimePicker

Terdapat 1 object DateTimePicker pada form Latihan_12 ini yang berfungsi untuk menampilkan Tanggal, Bulan, dan Tahun sesuai dengan data yang di input.

Script Unique

Untuk membuat data tabel

Dim TRINITA As New DataTable

Membuat kolom pada data tabel

TRINITA.Columns.Add(NewDataColumn("no.pembelian",GetType(String))

TRINITA.Columns.Add(NewDataColumn("namabarang", GetType(String)))

Membuat data source

dvg46110043.DataSource = TRINITA

Even

ButtonClick.

Text changed

Property

Property TextBox => ReadOnly = True

C. Langkah-Langkah Menjalankan Form Latihan 12

1. Input no pembelian pada textbox yang berlabelkan “No Pembelian”
2. Input tanggal, bulan dan tahun pembelian pada datetimepicker yang berlabelkan “Tanggal” 
3.  Input nama barang pada textbox yang berlabelkan “Nama Barang”
4. Input harga perunit pada textbox yang berlabelkan “Harga Perunit” 
5.  Input jumlah unit pada textbox yang berlabelkan “Unit”
6. Setelah langkah-langkah diatas selesai, textbox berlabel “Jumlah” akan terisi secara otomatis. 
7. Klik tombol “Simpan”, untuk menyimpan data yang telah diinput tadi.
8. Datagridview akan menampilkankan data yang telah disimpan tersebut.
9. Untuk menampilkan atau menghapus data yang telah disimpan cukup menekan tombol berlabel “Tampilkan dan Hapus”.