Latihan_12_46110024

DESKRIPSI FORM LATIHAN 12

Form Latihan ini Terdapat 6 object yaitu label, textbox. button, datetimepicker, groupbox, dan datagridview

Object Label

Terdapat 11 label yang bertuliskan ( No. pembelian, Nama Barang, Harga perunit, tanggal, unit, jumlah, total unit, total, no. baris, no. pembelian, dan baris sekarang)

Object  Textbox

Terdapat 9 textbox(6 status input,3 berstatus read only). Status input digunakan untuk memasukkan data sedangkan textbox status Read Only digunakan untuk menampilkan hasil perhitungan dari jumlah, total unit, dan total dengan rumus:

•   Jumlah merupakan hasil perkalian dari harga perunit dan unit 
• Total unit merupakan jumlah dari unit barang yang dibeli
• Total adalah jumlah harga seluruh barang  yang dibeli

Object Button

Terdapat 7 object button (Simpan, Tampilkan(3) dan Hapus(3)). Tombol simpan digunakan untuk menyimpan  data yang telah diinput. Tombol tampilkan digunakan untuk menampilkan data yang diinginkan baik berdasarkan no.baris, no. pembelian maupun baris sekarang . Tombol hapus digunakan untuk menghapus data yang diinginkan baik berdasarkan no.baris, no. pembelian maupun baris sekarang

Object Date Time Picker

Terdapat satu date time picker digunakan untuk menerima input berupa tanggal

Object Groupbox

terdapat 5 buah object groupbox. Group box berfungsi untuk mengelompokkan objek-objek yang diinginkan

Object Data Gridview

Terdapat  sebuah object datagridview. Datagridview digunakan untuk menampilkan data yang ingin ditampilkan.

Script  Unique

Dim tabel As New DataTable ==>  berfungsi untuk mendeklarasikan tabel sebagai nama datatable yang baru

tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))==> berfungsi untuk menambahkan kolom baru 

dgv_46110024.DataSource = tabel ==>berfungsi untuk menampilkan datatable ke dalam datagridview

Dim kolom(1) As DataColumn ==> berfungsi sebagai deklarasi data kolom

kolom(0) = tabel.Columns("no. pembelian") ==> berfungsi untuk mengisi koloom pertama

tabel.PrimaryKey = kolom ==> untuk mengatur primary key

baris = tabel.NewRow ==> untuk membuat baris baru dalam tabel

Even

TextChanged

ButtonClick

Property

Property Textbox ==>  Readonly = True

Langkah- Langkah Membuat Form Latihan 12

1.   Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form 

2.   Ganti nama sesuai dengan nama yang anda ingingkan

3.   Lalu pilih object yang ada di latihan 12 yaitu  label, textbox. button, datetimepicker, groupbox, dan datagridview pada toolbox

 

 4.  Buat form sampai menghasilkan form seperti dibawah

 5.  Pilih menu view lalu code

 

6.   Masukkan script sebagai berikut:

 Public Class Latihan_12_46110024
    Dim tabel As New DataTable
    Private Sub latihan_12_026_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_46110024.DataSource = tabel

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

    End Sub
    Private Sub hp_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hp_46110024.TextChanged, unit_46110024.TextChanged
        jml_46110024.Text = Val(hp_46110024.Text) * Val(unit_46110024.Text)

    End Sub

  
    Private Sub simpan_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110024.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(np_46110024.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = np_46110024.Text
            baris("nama barang") = nb_46110024.Text
            baris("harga per unit") = Val(hp_46110024.Text)
            baris("tanggal pembelian") = tgl_46110024.Value.Date
            baris("unit") = Val(unit_46110024.Text)
            baris("jumlah") = Val(jml_46110024.Text)

            tabel.Rows.Add(baris)

            np_46110024.Text = ""
            nb_46110024.Text = ""
            hp_46110024.Text = ""
            unit_46110024.Text = ""
            jml_46110024.Text = ""

        Else : MsgBox("baris sudah ada")
            jml_46110024.Text = ""
        End If
        abc()
    End Sub
   
    Private Sub tb_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_46110024.Click
        Dim baris As DataRow

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

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

            np_46110024.Text = baris("no. pembelian")
            nb_46110024.Text = baris("nama barang")
            hp_46110024.Text = baris("harga per unit")
            tgl_46110024.Value = baris("tanggal pembelian")
            unit_46110024.Text = baris("unit")
            jml_46110024.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        nobar_46110024.Text = ""
    End Sub
    Private Sub hb_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hb_46110024.Click
        Dim baris As DataRow


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

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

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

        End If
        nobar_46110024.Text = ""

    End Sub
  
    Private Sub tp_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tp_46110024.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem_46110024.Text)

        If Not baris Is Nothing Then
            np_46110024.Text = baris("no. pembelian")
            nb_46110024.Text = baris("nama barang")
            hp_46110024.Text = baris("harga per unit")
            tgl_46110024.Value = baris("tanggal pembelian")
            unit_46110024.Text = baris("unit")
            jml_46110024.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        nopem_46110024.Text = ""

    End Sub

    Private Sub hpe_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpe_46110024.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem_46110024.Text)

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

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

        np_46110024.Text = baris("no. pembelian")
        nb_46110024.Text = baris("nama barang")
        hp_46110024.Text = baris("harga per unit")
        tgl_46110024.Value = baris("tanggal pembelian")
        unit_46110024.Text = baris("unit")
        jml_46110024.Text = baris("jumlah")
    End Sub

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

    End Sub

  
    Private Sub abc()
        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        tu_46110024.Text = tu
        t_46110024.Text = total
    End Sub
End Class
   

   Langkah-Langkah Menjalankan Form Latihan 12 

1. Klick Star Debugging 
2.  Input data pada textbox yang berstatus input pada groupbox formulir 
3.  Clik tombol simpan maka data yang diinput akan tersimpan pada datagridview dan akan menampilkan total unit dan total 
4.  Input data yang anda inginkan pada groupbox baik berdasarkan baris, no. pembelian, maupun baris sekarang 
5.  Pilih tampilkan untuk menampilkan data yang anda inginkan ataupun hapus untuk menghapus data yang anda inginkan