Latihan_12_36110044 Aplikasi Komputer 4

Form Latihan_12 terdapat enam object yaitu Label,Textbox, Button, GroupBox, DataGridView, dan DateTimePicker:

Object Label

Terdapat sembilan object Label (yang bernama  No. Pembelian, Nama Barang, Harga Perunit, Unit, Jumlah, No. Barang, No, Pembelian, Baris Sekarang)

Object Textbox

Terdapat sembilan object textbox (enam status input; tiga status read only). Status input digunakan untuk memasukkan data/angka. Status Read Only digunakan untuk menampilkan hasil perhitungan dari data-data  yang telah diinput.

Object Button

Terdapat delapan object button (yang bertuliskan Simpan, Tampilkan (ada tiga tombol), Hapus (ada tiga tombol), dan tombol Close.) 

GroupBox

Terdapat lima object GroupBox (yang bertuliskan Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian, dan Baris Sekarang)

DataGridView

Terdapat satu object DataGridView yang berfungsi untuk menampilkan data yang telah disimpan.

DateTimePicker

Terdapat satu object DateTimePicker

Script Unique

Membuat DataTable

Dim table As New DataTable

Menambahkan kolom pada DataTable

table.Columns.Add(New DataColumn("No. Pembelian", GetType(String)))

Membuat DataSource

dgv_36110044.DataSource = table

Untuk Tombol Simpan

Dim baris As DataRow

        baris = table.Rows.Find(NP_36110044.Text)

        If baris Is Nothing Then

            baris = table.NewRow

            baris("No. Pembelian") = NP_36110044.Text

            baris("Nama Barang") = NB_36110044.Text

            baris("Harga Perunit") = Val(HP_36110044.Text)

            baris("Tanggal Pembelian") = TANGGAL_36110044.Value.Date

            baris("Unit") = Val(UNIT_36110044.Text)

            baris("Jumlah") = Val(JML_36110044.Text)

            table.Rows.Add(baris)

            NP_36110044.Text = ""

            NB_36110044.Text = ""

            HP_36110044.Text = ""

            UNIT_36110044.Text = ""

            JML_36110044.Text = ""

        Else : MsgBox("baris sudah ada")

            JML_36110044.Text = ""

        End If

        tiya()

Untuk tombol Tampilkan

Dim baris As DataRow

        If Val(NOBAR_36110044.Text) <= table.Rows.Count Then

            baris = table.Rows(Val(NOBAR_36110044.Text) - 1)

            NP_36110044.Text = baris("No. Pembelian")

            NB_36110044.Text = baris("Nama Barang")

            HP_36110044.Text = baris("Harga Perunit")

            TANGGAL_36110044.Value = baris("Tanggal Pembelian")

            UNIT_36110044.Text = baris("Unit")

            JML_36110044.Text = baris("Jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        NOBAR_36110044.Text = ""

Untuk tombol Hapus

Dim baris As DataRow

        If Val(NOBAR_36110044.Text) <= table.Rows.Count Then

            baris = table.Rows(Val(NOBAR_36110044.Text) - 1)

            baris.Delete()

            tiya()

Membuat Pemanggilan

    Private Sub tiya()

        Dim tu, total As Integer

        For Each x As DataRow In table.Rows

            tu = tu + x("Unit")

            total = total + x("Jumlah")

        Next

        TOTUNIT_36110044.Text = tu

        TOTAL_36110044.Text = total

Even

HP_36110044_TextChanged

SIMPAN_36110044_Click

Property

Property TextBox ==> ReadOnly=True

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

2. Pilih Project yang sebelumnya telah dibuat

 

3.Pada kotak "Solution Explorer" klik kanan nama project => add => new item

 

4. Ubah nama pada lembar "Add New Item" kemudian add

 

5. Buat design form dengan menggunakan Label,Textbox, Button, GroupBox, DataGridView, dan DateTimePicker yang ada dalam ToolBox

 

6. Ganti nama TextBox dan Button menggunakan "Properties Window

  7. Klik 2x pada kotak design untuk membuka lembar vb

 Masukkan rumus berikut untuk menyelesaikan latihan_12

Public Class Latihan_12_36110044

    Dim table As New DataTable

    Private Sub Latihan_12_36110044_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        table.Columns.Add(New DataColumn("No. Pembelian", GetType(String)))

        table.Columns.Add(New DataColumn("Nama Barang", GetType(String)))

        table.Columns.Add(New DataColumn("Harga Perunit", GetType(Double)))

        table.Columns.Add(New DataColumn("Tanggal Pembelian", GetType(Date)))

        table.Columns.Add(New DataColumn("Unit", GetType(Integer)))

        table.Columns.Add(New DataColumn("Jumlah", GetType(Double)))

        dgv_36110044.DataSource = table

        Dim kolom(1) As DataColumn

        kolom(0) = table.Columns("No. Pembelian")

        table.PrimaryKey = kolom

    End Sub

    Private Sub HP_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HP_36110044.TextChanged, UNIT_36110044.TextChanged

        JML_36110044.Text = Val(HP_36110044.Text) * Val(UNIT_36110044.Text)

    End Sub

   

    Private Sub SIMPAN_36110044_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SIMPAN_36110044.Click

        Dim baris As DataRow

        baris = table.Rows.Find(NP_36110044.Text)

        If baris Is Nothing Then

            baris = table.NewRow

            baris("No. Pembelian") = NP_36110044.Text

            baris("Nama Barang") = NB_36110044.Text

            baris("Harga Perunit") = Val(HP_36110044.Text)

            baris("Tanggal Pembelian") = TANGGAL_36110044.Value.Date

            baris("Unit") = Val(UNIT_36110044.Text)

            baris("Jumlah") = Val(JML_36110044.Text)

            table.Rows.Add(baris)

            NP_36110044.Text = ""

            NB_36110044.Text = ""

            HP_36110044.Text = ""

            UNIT_36110044.Text = ""

            JML_36110044.Text = ""

        Else : MsgBox("baris sudah ada")

            JML_36110044.Text = ""

        End If

        tiya()

    End Sub

    Private Sub TAMPIL1_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPIL1_36110044.Click

        Dim baris As DataRow

        If Val(NOBAR_36110044.Text) <= table.Rows.Count Then

            baris = table.Rows(Val(NOBAR_36110044.Text) - 1)

            NP_36110044.Text = baris("No. Pembelian")

            NB_36110044.Text = baris("Nama Barang")

            HP_36110044.Text = baris("Harga Perunit")

            TANGGAL_36110044.Value = baris("Tanggal Pembelian")

            UNIT_36110044.Text = baris("Unit")

            JML_36110044.Text = baris("Jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        NOBAR_36110044.Text = ""

    End Sub

    Private Sub HAPUS1_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS1_36110044.Click

        Dim baris As DataRow

        If Val(NOBAR_36110044.Text) <= table.Rows.Count Then

            baris = table.Rows(Val(NOBAR_36110044.Text) - 1)

            baris.Delete()

            tiya()

        Else

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

        End If

        NOBAR_36110044.Text = ""

    End Sub

    Private Sub TAMPIL2_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPIL2_36110044.Click

        Dim baris As DataRow

        baris = table.Rows.Find(NOPEM_36110044.Text)

        If Not baris Is Nothing Then

            NP_36110044.Text = baris("No. Pembelian")

            NB_36110044.Text = baris("Nama Barang")

            HP_36110044.Text = baris("Harga Perunit")

            TANGGAL_36110044.Value = baris("Tanggal Pembelian")

            UNIT_36110044.Text = baris("Unit")

            JML_36110044.Text = baris("Jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        NOPEM_36110044.Text = ""

    End Sub

    Private Sub HAPUS2_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS2_36110044.Click

        Dim baris As DataRow

        baris = table.Rows.Find(NOPEM_36110044.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            tiya()

            NOPEM_36110044.Text = ""

        Else

            MsgBox("no. pembelian yang dimasukkan tidak ada")

            NOPEM_36110044.Text = ""

        End If

    End Sub

    Private Sub TAMPIL3_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPIL3_36110044.Click

        Dim baris As DataRow

        baris = table.DefaultView(BindingContext(table).Position).Row

        NP_36110044.Text = baris("No. Pembelian")

        NB_36110044.Text = baris("Nama Barang")

        HP_36110044.Text = baris("Harga Perunit")

        TANGGAL_36110044.Value = baris("Tanggal Pembelian")

        UNIT_36110044.Text = baris("Unit")

        JML_36110044.Text = baris("Jumlah")

    End Sub

    Private Sub HAPUS3_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS3_36110044.Click

        Dim baris As DataRow

        baris = table.DefaultView(BindingContext(table).Position).Row

        baris.Delete()

        tiya()

    End Sub

   

    Private Sub tiya()

        Dim tu, total As Integer

        For Each x As DataRow In table.Rows

            tu = tu + x("Unit")

            total = total + x("Jumlah")

        Next

        TOTUNIT_36110044.Text = tu

        TOTAL_36110044.Text = total

    End Sub

  

   

    Private Sub Close_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close_36110044.Click

        NP_36110044.Text = ""

        NB_36110044.Text = ""

        HP_36110044.Text = ""

        UNIT_36110044.Text = ""

        JML_36110044.Text = ""

        TOTUNIT_36110044.Text = ""

        TOTAL_36110044.Text = ""

    End Sub

End Class

8. Jalankan program dengan menggunakan  “start debugging”