Latihan_13_46110009

Deskripsi Penyelesaian

Latihan_13_36110041

A.     Objek dalam Form Latihan_13:

Dalam form latihan ini hanya ada terdapat satu object yaitu datagridview. Yang terdapat  3 object datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

B.     Script Unique

Untuk scriptnya hanya akan ditampilkan secara keseluruhan dalam prosedur Latihan_13_36110041.

C.     Even

latihan_13_36110041_Load

      Berikut ini adalah rumus untuk menjalankan form di atas:

Public Class latihan_13_46110009

    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_46110009_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"

        DGV1_46110009.DataSource = herawati

        DGV2_46110009.DataSource = LUKMAN

        DGV3_46110009.DataSource = AKBAR

    End Sub

End Class

Latihan_12_46110009

Latihan_12_46110009

A.     Form Latihan_12 terdapat enam object yaitu Label, Textbox, Button, DataGridView, Date TimePicker, dan GroupBox:

==> Object Label

Terdapat sebelas label (yang bertuliskan No. Pembelian, Nama Barang, Harga Perunit, Unit, Tanggal, Jumlah, Total Unit, Total, No. Baris, No. Pembelian, dan Baris Sekarang ) 

==>Object Text Box

Terdapat sembilan textbox (enam status input; tiga status read only). Status input digunakan untuk memasukkan; No. Pembelian, Nama Barang, Harga Perunit, Unit, No. Baris, dan No. Pembelian. Status Read Only  digunakan untuk menampilkan hasil perhitungan; Jumlah, Total Unit, dan Total

==>Object Button

Terdapat tujuh object Button (Simpan, tiga button Tampilkan, dan tiga button Hapus). Button simpan berfungsi untuk menimpan data yang telah diinput ke dalam DataGridView,

Untuk Button Tampilkan berfungsi untuk menampilkan kembali data yang telah di simpan di DataGridView, sedangkan Button Hapus berfungsi untuk menghapus data yang telah disimpan di DataGridView.

==>Object DataGridView

Terdapat satu object DataGridView

==>Object Date TimePicker

Terdapat satu Object Date TimePicker yaitu digunakan untuk menampilkan tanggal pembelian barang

==>Object GroupBox

Terdapat lima Object GroupBox (Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian, dan Berdasarkan Baris Sekarang)

B.     Script Unique 

 

-->

Untuk Button “Simpan”

Dim baris As DataRow

Untuk Button “Tampilkan”

Dim baris As DataRow

Untuk Button “ Hapus”

Dim baris As DataRow

C.     Even

latihan_12_46110009_Load

HarPer_46110009_TextChanged

Simpan_46110009_Click

Tampil1_46110009_Click

Hapus1_46110009_Click

Tampil2_46110009_Click

Hapus2_46110009_Click

Tampil3_46110009_Click

Hapus3_46110009_Click

ULHY()

D.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

Latihan_11_46110009

Latihan_11_46110009

 

  A.     Form Latihan_11  terdapat tiga object yaitu Label, Textbox, dan Button:

  ==>Object Label

Terdapat  empat belas  label (yang bertuliskan; Indeks Prestasi Kumulatif, Stambuk, Nama, Nilai (n), SKS (s), NxS, Mata Kuliah, Pengantar Akuntansi, Akuntansi Intermediete, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK)

      ==>Object Text Box

Terdapat dua puluh textbox (dua belas status input dan delapan status read only). Status input digunakan untuk memasukkan data Nama, Stambuk, Nilai dan SKS Dari setiap Mata Kuliah (Pengantar Akuntansi, Akuntansi Intermediete, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi). Status Read Only digunakan untuk menampilkan hasil perhitungan Total SKS, Total NxS dan IPK.

  B.     Even

ULHY(ByVal N As TextBox, ByVal S As TextBox, ByVal NS As TextBox)

N146110009_TextChanged

N246110009_TextChanged

N346110009_TextChanged

N446110009_TextChanged

N546110009_TextChanged

  C.     Property

  Property TextBox ==> ReadOnly=True