Latihan_12_46110007

A. Langkah-Langkah Penyelesaian Form Latihan_12

·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini 
 

·  Ketik nama form "Latihan_12_46110007" pada name kemudian click add 

·  Buat form seperti berikut  
 


 

·         Setelah itu beri teks pada label, group box dan button
 

·         Kemudian beri nama pada semua objek, kecuali label
 

·   Setelah form selesai masukkan rumus seperti dibawah ini  
 Public Class Latihan_12_46110007

    Dim tabel As New DataTable

    Private Sub Latihan_12_46110007_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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)))

        ISI_46110007.DataSource = tabel

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

    End Sub

    Private Sub HP_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HP_46110007.TextChanged, UNIT_46110007.TextChanged
        JUMLAH_46110007.Text = Val(HP_46110007.Text) * Val(UNIT_46110007.Text)
    End Sub

    Private Sub SIMPAN_46110007_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110007.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NP_46110007.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = NP_46110007.Text
            baris("nama barang") = NB_46110007.Text
            baris("harga per unit") = Val(HP_46110007.Text)
            baris("tanggal pembelian") = TGL_46110007.Value.Date
            baris("unit") = Val(UNIT_46110007.Text)
            baris("jumlah") = Val(JUMLAH_46110007.Text)

            tabel.Rows.Add(baris)

            NP_46110007.Text = ""
            NB_46110007.Text = ""
            HP_46110007.Text = ""
            UNIT_46110007.Text = ""
            JUMLAH_46110007.Text = ""

        Else : MsgBox("baris sudah ada")
            JUMLAH_46110007.Text = ""
        End If
        FANTY()
    End Sub
    Private Sub TAMPILKAN1_46110007_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPILKAN1_46110007.Click
        Dim baris As DataRow

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

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

            NP_46110007.Text = baris("no. pembelian")
            NB_46110007.Text = baris("nama barang")
            HP_46110007.Text = baris("harga per unit")
            TGL_46110007.Value = baris("tanggal pembelian")
            UNIT_46110007.Text = baris("unit")
            JUMLAH_46110007.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        NBARIS_46110007.Text = ""
    End Sub
   
    Private Sub HAPUS1_46110007_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS1_46110007.Click
        Dim baris As DataRow


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

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

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

        End If
        NBARIS_46110007.Text = ""
    End Sub
    Private Sub TAMPILKAN2_46110007_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPILKAN2_46110007.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NPEMBELIAN_46110007.Text)

        If Not baris Is Nothing Then
            NP_46110007.Text = baris("no. pembelian")
            NB_46110007.Text = baris("nama barang")
            HP_46110007.Text = baris("harga per unit")
            TGL_46110007.Value = baris("tanggal pembelian")
            UNIT_46110007.Text = baris("unit")
            JUMLAH_46110007.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        NPEMBELIAN_46110007.Text = ""
    End Sub
    Private Sub HAPUS2_46110007_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS2_46110007.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NPEMBELIAN_46110007.Text)

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

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

        NP_46110007.Text = baris("no. pembelian")
        NB_46110007.Text = baris("nama barang")
        HP_46110007.Text = baris("harga per unit")
        TGL_46110007.Value = baris("tanggal pembelian")
        UNIT_46110007.Text = baris("unit")
        JUMLAH_46110007.Text = baris("jumlah")
    End Sub
   
    Private Sub HAPUS3_46110007_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS3_46110007.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row
        baris.Delete()
    End Sub
   

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

End Class

·  Untuk menjalankan form tekan F5 

B. Deskripsi Form Latihan 12
Pada form latihan 12 ada 6 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker, Data Grid View, dan Group Box.

Object Label
Terdapat 11 label pada form latihan 12 (No Pembelian, Nama Barang, Harga Perunit, Unit, Jumlah, Tanggal, Total Unit, Total, No. Barisku, No. Pembelian dan Baris Sekarang).

Object TextBox
Pada form ini ada 9 textbox yang digunakan (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 Button                                                                
Terdapat 7 object button (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 DateTimePicker
Pada latihan 12 terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

Object GroupBox
Terdapat 5 object groupbox pada latihan 12 (Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian dan Berdasarkan Baris Sekarang)

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data yang telah disimpan sebelumnya.

Script Unique
Untuk membuat data tabel
Dim tabel As New DataTable

Membuat kolom pada data tabel
tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))
tabel.Columns.Add(New DataColumn("nama barang", GetType(String)))

Membuat data source
ISI_46110007.DataSource = tabel

Even
ButtonClick.
Text changed

Property
Property TextBox => ReadOnly = True

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”. 
  10.  Selamat mencoba (:
Label: edit post
0 Responses

Posting Komentar

Langganan: Posting Komentar (Atom)