latihan_12_36110036

Deskripsi latihan_12_36110036

A.         Object label

          Terdapat 11 label (yang bertuliskan No pembelian, nama barang, harga perunit, tanggal, unit, jumlah, total unit, total, No. baris, No. pembelian, Baris sekarang).

B.         Object textbox

      Terdapat Sembilan textbox yang terdiri dari status input dan status read only.

C.         Object button

      Terdapat tujuh object button (yang bertuliskan simpan, bertuliskan tampilkan yang terdiri dari tiga, dan bertuliskan hapus yang terdiri dari tiga).

D.         Object Data timepicker

      Terdapat satu object data timepicker yang digunakan untuk menentukan tanggal  pembelian.

E.          Object Groupbox

                         Terdapat lima object groupbox.

F.          Object Data Gridview

      Terdapat satu object data gridview yang digunakan untuk menampilkan table serta data yang telah diinput, yakni No pembelian, nama barang, harga perunit, tanggal, unit, dan jumlah.

G.        Script Unique

          Membuat New datatable

          Dim tabel As New DataTable

     Saat membuat kolom pada datatable

                    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)))

          Saat menyimpan Data

                          Dim baris As DataRow

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

          If baris Is Nothing Then

            baris = tabel.NewRow

          Membuat call prosedur:

      Private Sub anna()

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        totalunit_36110036.Text = tu

        Total_36110036.Text = total

H.  Even

   simpan_36110036_Click

    haper_36110036_TextChanged

I.       Property

Property TextBox ==> ReadOnly=True

Langkah-langkah mengerjakan latihan_12_36110036

           1.          Buka project yang telah dibuat, dan buka solution explorer

           2.          Klik  kanan nama project ==> add ==> new item

3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add

4.        Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual       Studio

 

5.          Desaign form dengan menggunakan tools pada toolbox.

6.      setelah desaign selesai  dibuatlah rumusnya

7.    Berikut adalah rumus untuk menjalankan latihan_12_36110036

        Public Class latihan_12_36110036

    Dim tabel As New DataTable

    Private Sub latihan_12_36110036_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)))

        Data_36110036.DataSource = tabel

        Dim kolom(1) As DataColumn

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

        tabel.PrimaryKey = kolom

    End Sub

    Private Sub haper_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles haper_36110036.TextChanged, unit_36110036.TextChanged

        jumlah_36110036.Text = Val(haper_36110036.Text) * Val(unit_36110036.Text)

    End Sub

    Private Sub simpan_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110036.Click

        Dim baris As DataRow

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

        If baris Is Nothing Then

            baris = tabel.NewRow

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

            baris("nama barang") = naba_36110036.Text

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

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

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

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

            tabel.Rows.Add(baris)

            nopemb_36110036.Text = ""

            naba_36110036.Text = ""

            haper_36110036.Text = ""

            unit_36110036.Text = ""

            jumlah_36110036.Text = ""

        Else : MsgBox("baris sudah ada")

            jumlah_36110036.Text = ""

        End If

        anna()

    End Sub

    Private Sub tampilkan1_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan1_36110036.Click

        Dim baris As DataRow

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

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

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

            naba_36110036.Text = baris("nama barang")

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

            tgl_36110036.Value = baris("tanggal pembelian")

            unit_36110036.Text = baris("unit")

            jumlah_36110036.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        Nobaris_36110036.Text = ""

    End Sub

    Private Sub hapus1_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus1_36110036.Click

        Dim baris As DataRow

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

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

            baris.Delete()

        Else

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

        End If

        Nobaris_36110036.Text = ""

        anna()

    End Sub

    Private Sub tampilkan2_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan2_36110036.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

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

            naba_36110036.Text = baris("nama barang")

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

            tgl_36110036.Value = baris("tanggal pembelian")

            unit_36110036.Text = baris("unit")

            jumlah_36110036.Text = baris("jumlah")

         

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        pemb_36110036.Text = ""

    End Sub

    Private Sub hapus2_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus2_36110036.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

            baris.Delete()

            pemb_36110036.Text = ""

        Else

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

            pemb_36110036.Text = ""

        End If

        anna()

    End Sub

    Private Sub tampilkan3_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan3_36110036.Click

        Dim baris As DataRow

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

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

        naba_36110036.Text = baris("nama barang")

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

        tgl_36110036.Value = baris("tanggal pembelian")

        unit_36110036.Text = baris("unit")

        jumlah_36110036.Text = baris("jumlah")

    End Sub

    Private Sub hapus3_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus3_36110036.Click

        Dim baris As DataRow

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

        baris.Delete()

        anna()

    End Sub

    Private Sub anna()

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        totalunit_36110036.Text = tu

        Total_36110036.Text = total

    End Sub

End Class

8.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

 

9.    Setelah program jalan maka file disave.

latihan_13_36110036

Deskripsi latihan_13_36110036

       A.         Object Data Gridview

          Terdapat tiga data gridview yang digunakan untuk menampilkan table serta data yang telah dibuat dalam rumus.

       B.         Script Unique

          Membuat New Datatable, Dataset, dan BindingSource

          Dim DTRI As New DataTable

      Dim DTRS As New DataTable

      Dim DTRSS As New DataTable

      Dim DTRI As New DataTable

      Dim DTRS As New DataTable

      Dim DTRSS As New DataTable

      Dim ZAHRAH As New DataSet

      Dim herawati As New BindingSource

      Dim LUKMAN As New BindingSource

      Dim AKBAR As New BindingSource

          Saat membuat kolom pada datatable

             DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DTRI.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

C.   Even     

      latihan_13_36110036_Load

     

Langkah-langkah mengerjakan latihan_13_36110036

         1.    Buka project yang telah dibuat, dan buka solution explorer

         2.        Klik  kanan nama project ==> add ==> new item

3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add

4.    Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio

5.     Desaign form dengan menggunakan tools pada toolbox.

6.     Setelah desaign selesai  dibuatlah rumusnya

7.     Berikut adalah rumus untuk menjalankan latihan_13_36110036

              

Public Class latihan_13_36110036

    Dim DTRI As New DataTable

    Dim DTRS As New DataTable

    Dim DTRSS As New DataTable

    Dim ZAHRAH As New DataSet

    Dim herawati As New BindingSource

    Dim LUKMAN As New BindingSource

    Dim AKBAR As New BindingSource

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

        DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DTRI.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        DTRS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DTRS.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))

        DTRS.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Kode Rekening sub", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Kode Rekening Sub-sub", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Nama Rekening Sub-sub", GetType(String)))

        Dim Acak As New Random

        For RI As Integer = 1 To Acak.Next(1, 5)

            DTRI.Rows.Add(RI, "Nama Rekening " & RI)

            For RS As Integer = 1 To Acak.Next(1, 5)

                DTRS.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)

                For RSS As Integer = 1 To Acak.Next(1, 5)

                    DTRSS.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)

                Next

            Next

        Next

        ZAHRAH.Tables.Add(DTRI)

        ZAHRAH.Tables.Add(DTRS)

        ZAHRAH.Tables.Add(DTRSS)

        DTRI.TableName = "ICA"

        DTRS.TableName = "DIS"

        DTRSS.TableName = "OCA"

        ZAHRAH.Relations.Add(New DataRelation("TA", ZAHRAH.Tables("ICA").Columns("kode rekening induk"), ZAHRAH.Tables("dis").Columns("kode rekening induk")))

        ZAHRAH.Relations.Add(New DataRelation("HI", ZAHRAH.Tables("DIS").Columns("kode rekening sub"), ZAHRAH.Tables("oca").Columns("kode rekening sub")))

        herawati.DataSource = ZAHRAH

        herawati.DataMember = "ica"

        LUKMAN.DataSource = herawati

        LUKMAN.DataMember = "TA"

        AKBAR.DataSource = LUKMAN

        AKBAR.DataMember = "HI"

        data1_36110036.DataSource = herawati

        data2_36110036.DataSource = LUKMAN

        data3_36110036.DataSource = AKBAR

    End Sub

End Class

8.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

9.       Setelah program jalan maka file disave.