Larihan_12_46110001

Deskripsi Latihan12_46110001

A.                Object-object yang terdapat pada Latihan_12_46110001 :

1)      Object Groupbox

Pada form ini terdapat Lima groupbox (yang bertuliskan Formulir1,Data,Berdasarkan No Baris,Berdasarkan No Pembelian,dan Berdasarkan Baris Sekarang)

2)      Object Label

Dalam form ini Terdapat sebelas label diantaranya;

( yang bertuliskan” no pembelian, nama barang, harga perunit, tanggal,unit dan jumlah” yang terdapat dalam groupbox “Formulir1” kemudian “total unit dan total” yang terdapat dalam groupbox “Data” dan “No Baris” dalam groupbox “Berdasarkan No Baris”, “No Pembelian” dalam groupbox “Berdasarkan No Pembelian” dan terakhir “ baris sekarang” yang ada dalam groupbox “Berdasarkan Baris Sekarang”).

3)      Object Textbox

Terdapat sembilan textbox (enam dantaranya berstatus input; dan tiga diantaranya berstatus read only). Texbox yang berstatus input digunakan untuk memasukkan no pembelian, nama barang, harga perunit, no baris. Sedangkan yang berstatus Read Only digunakan untuk menampilkan hasil dari perkalian harga perunit dan unit, dan total unit serta jumlah dari data yang dimasukkan dalam datagridview.

4)      Object Button

Terdapat tujuh object button (yang bertuliskan Simpan, serta button Tampilkan dan button Hapus masing-masing ada 3). Button simpan digunakan untuk memasukkan data yang telah diinput ke dalam datagridview. Button tampilkan digunakan untuk menampilkan data dalam datagridview ke dalam textbox tempat menginput data, sedangkan button hapus digunkan untuk menghapus data yang ada di dalam datagridview.

  

5)      Object DataGridView

Terdapat satu objek datagridview yang digunakan untuk menampilkan data yang telah diinput dalam no pembelian, nama barang, harga perunit, unit, jumlah, dan tanggal pembelian.

   

6)      Object DateTimePicker

     Terdapat satu object datetimepicker yang digunakan untuk menentukan tanggal pembelian

 

B.                 Script Unique

Untuk button Simpan, Tampilkan, dan Hapus:

Dim baris As DataRow

C.                 Even

Private Sub bahri()

D.                Property

Property TextBox ==> ReadOnly=True

E.                  Procedure Latihan_12_46110001

1.      Langkah pertama dalam membuat form/ latihan 09 ialah, pada desktop anda, pilih microsoft visual studio 2008.seperti pada langkah dibawah ini 

2.      Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini 

3.      Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan  

 

4.      atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

5.      Buatlah form seperti gambar dibawah ini, 

6.      Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_12_46110001

    Dim tabel As New DataTable

    Private Sub latihan_12_46110001_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_46110001.DataSource = tabel

        Dim kolom(1) As DataColumn

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

        tabel.PrimaryKey = kolom

    End Sub

   

    Private Sub hpu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hpu_46110001.TextChanged, U_46110001.TextChanged

        J_46110001.Text = Val(Hpu_46110001.Text) * Val(U_46110001.Text)

    End Sub

    Private Sub BC1_46110001_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BC1_46110001.Click

        Dim baris As DataRow

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

        If baris Is Nothing Then

            baris = tabel.NewRow

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

            baris("nama barang") = Nb_46110001.Text

            baris("harga per unit") = Val(Hpu_46110001.Text)

            baris("tanggal pembelian") = Tgl_46110001.Value.Date

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

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

            tabel.Rows.Add(baris)

            Np_46110001.Text = ""

            Nb_46110001.Text = ""

            Hpu_46110001.Text = ""

            U_46110001.Text = ""

            J_46110001.Text = ""

        Else : MsgBox("baris sudah ada")

            J_46110001.Text = ""

        End If

        bahri()

    End Sub

    Private Sub BC2_46110001_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BC2_46110001.Click

        Dim baris As DataRow

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

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

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

            Nb_46110001.Text = baris("nama barang")

            Hpu_46110001.Text = baris("harga per unit")

            Tgl_46110001.Value = baris("tanggal pembelian")

            U_46110001.Text = baris("unit")

            J_46110001.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        Nob_46110001.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3_46110001.Click

        Dim baris As DataRow

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

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

            baris.Delete()

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

            Nb_46110001.Text = baris("nama barang")

            Hpu_46110001.Text = baris("harga per unit")

            Tgl_46110001.Value = baris("tanggal pembelian")

            U_46110001.Text = baris("unit")

            J_46110001.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        Nob_46110001.Text = ""

    End Sub

    Private Sub BC3_46110001_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BC3_46110001.Click

    Dim baris As DataRow

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

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

            baris.Delete()

        Else

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

        End If

        Nob_46110001.Text = ""

    End Sub

    Private Sub BC4_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BC4_46110001.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

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

            Nb_46110001.Text = baris("nama barang")

            Hpu_46110001.Text = baris("harga per unit")

            Tgl_46110001.Value = baris("tanggal pembelian")

            U_46110001.Text = baris("unit")

            J_46110001.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        Nop_46110001.Text = ""

    End Sub

    Private Sub BC5_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BC5_46110001.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

            baris.Delete()

            Nop_46110001.Text = ""

        Else

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

            Nop_46110001.Text = ""

        End If

    End Sub

    Private Sub BC6_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BC6_46110001.Click

        Dim baris As DataRow

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

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

        Nb_46110001.Text = baris("nama barang")

        Hpu_46110001.Text = baris("harga per unit")

        Tgl_46110001.Value = baris("tanggal pembelian")

        U_46110001.Text = baris("unit")

        J_46110001.Text = baris("jumlah")

    End Sub

    Private Sub bc7_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BC7_46110001.Click

        Dim baris As DataRow

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

        baris.Delete()

    End Sub

    Private Sub bahri()

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        TU_46110001.Text = tu

        Tot_46110001.Text = total

    End Sub

End Class

7. jalankan program dengan Mengklik start debugging seperti pada gambar dibawah in
8. langkah selanjutnya adalah Isi text box yang berstatus input, sesuai dengan  yang anda inginkan,maka akan muncul hasil dari ketikan anda.