Latihan 12_36110055

PROSEDUR LATIHAN 12:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  

Ø  Buat textbox sebanyak 9 dengan nama :

v  “No_36001155”

v  “Nama_36001155”

v  “Harga_36001155”

v  “Unit_36001155”

v  “NoBaris_36001155”

v  “NoPem_36001155”

v  “Jumlah_36001155” ( property ReadOnly textbox di atur jadi true)

v  “TotalUnit_36001155” ( property ReadOnly textbox di atur jadi true)

v  “Total_36001155” ( property ReadOnly textbox di atur jadi true)

Ø  Buat tanggal dengan menggunakan “DataTimePicker” pada toolbox

Ø  Buat tempat data per kelompok dengan menggunakan”GroupBox”

Ø  Buat tempat di mana hasil input tersimpan di situ dengan menggunakan”DataGridView”

Ø  Buat tombol simpan dengan menggunakan”Button” pada toolbox

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_12_36001155

    Dim tabel As New DataTable

    Private Sub Latihan_12_36001155_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 perunit", GetType(Double)))

        tabel.Columns.Add(New DataColumn("tanggal", GetType(Date)))

        tabel.Columns.Add(New DataColumn("unit", GetType(Integer)))

        tabel.Columns.Add(New DataColumn("jumlah", GetType(Double)))

        DataGridView1.DataSource = tabel

        Dim kolom(1) As DataColumn

        kolom(0) = tabel.Columns("no.pembelian")

        tabel.PrimaryKey = kolom

    End Sub

    Private Sub Harga_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Harga_36001155.TextChanged, Unit_36001155.TextChanged

        Jumlah_36001155.Text = Val(Harga_36001155.Text) * Val(Unit_36001155.Text)

    End Sub

    Private Sub Simpan_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36001155.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(No_36001155.Text)

        If baris Is Nothing Then

            baris = tabel.NewRow

            baris("no.pembelian") = No_36001155.Text

            baris("nama barang") = Nama_36001155.Text

            baris("harga perunit") = Val(Harga_36001155.Text)

            baris("tanggal") = Tanggal_36001155.Value.Date

            baris("unit") = Val(Unit_36001155.Text)

            baris("jumlah") = Val(Jumlah_36001155.Text)

            tabel.Rows.Add(baris)

        Else : MsgBox("baris sudah ada")

            Jumlah_36001155.Text = ""

        End If

        Masnur()

    End Sub

    Private Sub Tampil1_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tampil1_36001155.Click

        Dim baris As DataRow

        If Val(NoBaris_36001155) <= tabel.Rows.Count Then

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

            No_36001155.Text = baris("no.pembelian")

            Nama_36001155.Text = baris("nama barang")

            Harga_36001155.Text = baris("harga perunit")

            Tanggal_36001155.Value = baris("tanggal")

            Unit_36001155.Text = baris("unit")

            Jumlah_36001155.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        NoBaris_36001155.Text = ""

    End Sub

    Private Sub Hapus1_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus1_36001155.Click

        Dim baris As DataRow

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

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

            baris.Delete()

        Else

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

        End If

        NoBaris_36001155.Text = ""

        Masnur()

    End Sub

    Private Sub Tampil2_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tampil2_36001155.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(NoPem_36001155.Text)

        If Not baris Is Nothing Then

            No_36001155.Text = baris("no.pembelian")

            Nama_36001155.Text = baris("nama barang")

            Harga_36001155.Text = baris("harga perunit")

            Tanggal_36001155.Value = baris("tanggal")

            Unit_36001155.Text = baris("unit")

            Jumlah_36001155.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        NoPem_36001155.Text = ""

    End Sub

    Private Sub Hapus2_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus2_36001155.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(NoPem_36001155)

        If Not baris Is Nothing Then

            baris.Delete()

            NoPem_36001155.Text = ""

        Else

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

            NoPem_36001155.Text = ""

            Masnur()

        End If

    End Sub

    Private Sub Tampil3_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tampil3_36001155.Click

        Dim baris As DataRow

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

        No_36001155.Text = baris("no. pembelian")

        Nama_36001155.Text = baris("nama barang")

        Harga_36001155.Text = baris("harga perunit")

        Tanggal_36001155.Value = baris("tanggal")

        Unit_36001155.Text = baris("unit")

        Jumlah_36001155.Text = baris("jumlah")

    End Sub

    Private Sub Hapus3_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus3_36001155.Click

        Dim baris As DataRow

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

        baris.Delete()

        Masnur()

    End Sub

    Private Sub Masnur()

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        TotalUnit_36001155.Text = tu

        Total_36001155.Text = total

    End Sub

End Class