Latihan_13_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 13
1. Bukalah Kumpulan Project yang telah dibuat.
2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_13_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kite temukan di ToolBox

5. Beri nama pada Object DataGridView pada properties, contoh:
Lakukan hingga semua nama terganti sesuai kriteria Latihan_13
6. Ubah nama pada setiap Object TextBox, Data Grid View, Button sesuai dengan yag kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Contoh pada salah satu textbox:

7. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:


Public Class Latihan_13_46110043

    Dim A As New DataTable
    Dim B As New DataTable
    Dim C As New DataTable

    Dim TRINITA As New DataSet

    Dim CAROLINE As New BindingSource
    Dim AISYAH As New BindingSource
    Dim JAMES As New BindingSource

    Private Sub Latihan_13_46110043_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


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

        B.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        B.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        B.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

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


        Dim BONGKAR As New Random

        For RI As Integer = 1 To BONGKAR.Next(1, 5)
            A.Rows.Add(RI, "Nama Rekening " & RI)
            For RS As Integer = 1 To BONGKAR.Next(1, 5)
                B.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To BONGKAR.Next(1, 5)
                    C.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next


        TRINITA.Tables.Add(A)
        TRINITA.Tables.Add(B)
        TRINITA.Tables.Add(C)


        A.TableName = "ICA"
        B.TableName = "DIS"
        C.TableName = "OCA"


        TRINITA.Relations.Add(New DataRelation("TA", TRINITA.Tables("ICA").Columns("kode rekening induk"), TRINITA.Tables("dis").Columns("kode rekening induk")))
        TRINITA.Relations.Add(New DataRelation("HI", TRINITA.Tables("DIS").Columns("kode rekening sub"), TRINITA.Tables("oca").Columns("kode rekening sub")))


        CAROLINE.DataSource = TRINITA
        CAROLINE.DataMember = "ica"


        AISYAH.DataSource = CAROLINE
        AISYAH.DataMember = "TA"


        JAMES.DataSource = AISYAH
        JAMES.DataMember = "HI"


        WE46110043.DataSource = CAROLINE
        ARE46110043.DataSource = AISYAH
        YOUNG46110043.DataSource = JAMES
    End Sub


End Class


8. Klik Start Debugging untuk menjalankan form. Lalu input data yang ingin ditampilkan.


B. Deskripsi Form Latihan_13
Pada Form Latihan_13 pada gambar diatas hanya terdapat 1 Object DataGridView.

Object DataGridView
Terdapat 3 object datagridview yang berfungsi untuk menampilkan data.

Script Unique

Untuk membuat data Set

 Dim TRINITA As New DataSet

Membuat Data Table

 Dim A As New Data Table

Membuat Binding Source
Dim AISYAH As New BindingSource

Membuat Kolom pada Data Table
A.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

Menambah baris (isi) pada Data Table

For RI As Integer = 1 To 9

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

Next

Membuat nama lain Data Tabel

A.TableName = "ICA"

Membuat Relationship

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

Data Set menjadi Data Source

CAROLINE.DataSource = TRINITA

        CAROLINE.DataMember = "ica"

Data Binding Source menjadi Data Source pada Data Grid View

ARE46110043.DataSource = AISYAH

Even

Formload
Table click

Property

Default

Latihan_12_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 12
1. Bukalah Kumpulan Project yang telah dibuat.
2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_12_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kite temukan di ToolBox

5. Beri nama pada Object Label, Button dan GroupBox melului properties properties, contoh pada label1:
Lakukan hingga semua nama terganti sesuai kriteria Latihan_12
6. Ubah nama pada setiap Object TextBox, Data Grid View, Button sesuai dengan yag kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Contoh pada salah satu textbox:

7. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan scrip dibawah ini pada window:


Public Class Latihan_12_46110043

    Dim TRINITA As New DataTable

    Private Sub Latihan_12_46110007_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TRINITA.Columns.Add(New DataColumn("no. pembelian", GetType(String)))
        TRINITA.Columns.Add(New DataColumn("nama barang", GetType(String)))
        TRINITA.Columns.Add(New DataColumn("harga per unit", GetType(Double)))
        TRINITA.Columns.Add(New DataColumn("tanggal pembelian", GetType(Date)))
        TRINITA.Columns.Add(New DataColumn("unit", GetType(Integer)))
        TRINITA.Columns.Add(New DataColumn("jumlah", GetType(Double)))

        dgv46110043.DataSource = TRINITA

        Dim kolom(1) As DataColumn
        kolom(0) = TRINITA.Columns("no. pembelian")
        TRINITA.PrimaryKey = kolom

    End Sub

    Private Sub hp46110043_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles hp46110043.TextChanged, unit46110043.TextChanged
        jumlah46110043.Text = Val(hp46110043.Text) * Val(unit46110043.Text)
    End Sub

    Private Sub save46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110043.Click
        Dim baris As DataRow
        baris = TRINITA.Rows.Find(nopem46110043.Text)

        If baris Is Nothing Then
            baris = TRINITA.NewRow

            baris("no. pembelian") = nopem46110043.Text
            baris("nama barang") = naba46110043.Text
            baris("harga per unit") = Val(hp46110043.Text)
            baris("tanggal pembelian") = tgl46110043.Value.Date
            baris("unit") = Val(unit46110043.Text)
            baris("jumlah") = Val(jumlah46110043.Text)

            TRINITA.Rows.Add(baris)

            nopem46110043.Text = ""
            naba46110043.Text = ""
            hp46110043.Text = ""
            unit46110043.Text = ""
            jumlah46110043.Text = ""

        Else : MsgBox("baris sudah ada")
            jumlah46110043.Text = ""
        End If
        TRI()
    End Sub
    Private Sub tampilkan1_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan1_46110043.Click
        Dim baris As DataRow

        If Val(nobar46110043.Text) <= TRINITA.Rows.Count Then

            baris = TRINITA.Rows(Val(nobar46110043.Text) - 1)

            nopem46110043.Text = baris("no. pembelian")
            naba46110043.Text = baris("nama barang")
            hp46110043.Text = baris("harga per unit")
            tgl46110043.Value = baris("tanggal pembelian")
            unit46110043.Text = baris("unit")
            jumlah46110043.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        nobar46110043.Text = ""
    End Sub

    Private Sub hapus1_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus1_46110043.Click
        Dim baris As DataRow


        If Val(nobar46110043.Text) <= TRINITA.Rows.Count Then

            baris = TRINITA.Rows(Val(nobar46110043.Text) - 1)
            baris.Delete()

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

        End If
        nobar46110043.Text = ""
    End Sub
    Private Sub tampilkan2_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan2_46110043.Click
        Dim baris As DataRow
        baris = TRINITA.Rows.Find(nobel46110043.Text)

        If Not baris Is Nothing Then
            nopem46110043.Text = baris("no. pembelian")
            naba46110043.Text = baris("nama barang")
            hp46110043.Text = baris("harga per unit")
            tgl46110043.Value = baris("tanggal pembelian")
            unit46110043.Text = baris("unit")
            jumlah46110043.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        nobel46110043.Text = ""
    End Sub
    Private Sub hapus2_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus2_46110043.Click
        Dim baris As DataRow
        baris = TRINITA.Rows.Find(nobel46110043.Text)

        If Not baris Is Nothing Then
            baris.Delete()
            nobel46110043.Text = ""

        Else
            MsgBox("no. pembelian yang dimasukkan tidak ada")
            nobel46110043.Text = ""
        End If

    End Sub
    Private Sub tampilkan3_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan3_46110043.Click
        Dim baris As DataRow
        baris = TRINITA.DefaultView(BindingContext(TRINITA).Position).Row

        nopem46110043.Text = baris("no. pembelian")
        naba46110043.Text = baris("nama barang")
        hp46110043.Text = baris("harga per unit")
        tgl46110043.Value = baris("tanggal pembelian")
        unit46110043.Text = baris("unit")
        jumlah46110043.Text = baris("jumlah")
    End Sub

    Private Sub hapus3_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus3_46110043.Click
        Dim baris As DataRow
        baris = TRINITA.DefaultView(BindingContext(TRINITA).Position).Row
        baris.Delete()
    End Sub


    Private Sub TRI()
        Dim TU, total As Integer
        For Each x As DataRow In TRINITA.Rows
            TU = TU + x("UNIT")
            total = total + x("JUMLAH")
        Next
        totalunit46110043.Text = TU
        total46110043.Text = total
    End Sub

End Class

8. Klik Start Debugging untuk menjalankan form. Lalu input data yang ingin ditampilkan.



B. Deskripsi Form Latihan_12
Pada Form Latihan_12 pada gambar diatas terdapat 6 Object yaitu, Object Label, TextBox, GroupBox, Button, DataGridView dan DateTimePicker.

Object Label
Terdapat 11 object Label pada form Latihan_12 yang masing-masing bernama : No Pembelian, Nama Barang, Harga Perunit, Unit, Jumlah, Tanggal, Total Unit, Total, No. Barisku, No. Pembelian dan Baris Sekarang.

Object TextBox

Terdapat 9 textbox yang digunakan pada form Latihan_12 ini yaitu 6 status input dan 3 status readonly. Status input digunakan untuk memasukkan data sedangkan readonly akan menampilkan hasil analisa setelah data di input ke textbox yang berstatus input dan datetimepicker

Object GroupBox

Terdapat 5 object groupbox pada form Latihan_12 ini yaitu masing-masing bernama:  Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian dan Berdasarkan Baris Sekarang.

Object Button

Terdapat 7 object button yang digunakan pada form Latihan_12 ini yaitu masing-masing bernama Simpan, Tampilkan(3) dan Hapus(3). Tombol simpan digunakan untuk menyimpan hasil penginputan data. Tombol tampilkan digunakan untuk menampilkan data yang diinginkan. Tombol hapus digunakan untuk menghapus data yang diinginkan.

Object DataGridView

Terdapat 1 object datagridview pada form Latihan_12 ini yang berfungsi untuk menampilkan datatable yang telah disimpan sebelumnya.

Object DateTimePicker

Terdapat 1 object DateTimePicker pada form Latihan_12 ini yang berfungsi untuk menampilkan Tanggal, Bulan, dan Tahun sesuai dengan data yang di input.

Script Unique

Untuk membuat data tabel

Dim TRINITA As New DataTable

Membuat kolom pada data tabel

TRINITA.Columns.Add(NewDataColumn("no.pembelian",GetType(String))

TRINITA.Columns.Add(NewDataColumn("namabarang", GetType(String)))

Membuat data source

dvg46110043.DataSource = TRINITA

Even

ButtonClick.

Text changed

Property

Property TextBox => ReadOnly = True

C. Langkah-Langkah Menjalankan Form Latihan 12

1. Input no pembelian pada textbox yang berlabelkan “No Pembelian”
2. Input tanggal, bulan dan tahun pembelian pada datetimepicker yang berlabelkan “Tanggal” 
3.  Input nama barang pada textbox yang berlabelkan “Nama Barang”
4. Input harga perunit pada textbox yang berlabelkan “Harga Perunit” 
5.  Input jumlah unit pada textbox yang berlabelkan “Unit”
6. Setelah langkah-langkah diatas selesai, textbox berlabel “Jumlah” akan terisi secara otomatis. 
7. Klik tombol “Simpan”, untuk menyimpan data yang telah diinput tadi.
8. Datagridview akan menampilkankan data yang telah disimpan tersebut.
9. Untuk menampilkan atau menghapus data yang telah disimpan cukup menekan tombol berlabel “Tampilkan dan Hapus”. 

Latihan_11_46110043

Deskripsi Form

Pada form Latihan_11 ini kita dapat menemukan 2 object, yaitu:

Object Label dan Object TextBox

1. Object Label

    Pada form terdapat 14 label yang masing-masing bertuliskan à Indeks Prestasi Komulatif, Stambuk, Nama, Mata Kuliah, Pengantar Akuntansi, Akuntansi Intermediate, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK, Nilai Mutu [N], SKS [S], N X S)

2. Object Textbox

    Pada form terdapat 20 textbox 12 merupakan status input dan 8 diantaranya merupakan status ReadOnly. Status input pada form ini digunakan untuk menginput stambuk, nama, dan nilai mutu serta sks dari masing-masing mata kuliah. Status ReadOnly untuk menampilkan hasil analisa nilai mutu dikali sks, serta total dan IPK akhir. Rumus hasil konversi nilai mutu menjadi angka yang dikalikan SKS:

Misalkan:

A = "A" Then C = B * 4

A = "B" Then C = B * 3

A = "C" Then C = B * 2

A = "D" Then C = B * 1

A = "E" Then C = B * 0

Rumus perhitungan IPK :

IPK = (TOTAL N X S) / TOTAL SKS

Langkah-langkah menjalankan Form:

1. Masukkan data stambuk, nama, nilai mutu dan sks dari masing-masing mata kuliah pada form.

2. Setelah itu, secara otomatis akan ditampilkan hasil konversi nilai mutu dikali sks, total, dan IPK akhir.

Langkah-langkah Penyelesaian :

1. Pada Solution Explorer, klik kanan Kumpulan Latihan, pilih Add, New Item.

2. Pilih Windows Form, lalu ubah nama form menjadi Latihan_11_46110043 tanpa mengubah ekstension file (vb)

3. Gunakan toolbox untuk membuat Label dan Textbox, kemudian buat object sesuai dengan deskripsi form diatas.

4. Ubah object name textbox menjadi singkatan sesuai dengan keinginan dan disertai Nim pada akhit nama.

5. Klik kanan Form, pilih View Code, lalu ketik script yang sesuai. Pada Latihan 11 scriptnya seperti dibawah ini:

Public Class Latihan_11_46110043

    Private Sub NILAI(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)
        If A.Text = "A" Then
            C.Text = Val(B.Text) * 4
        ElseIf A.Text = "B" Then
            C.Text = Val(B.Text) * 3
        ElseIf A.Text = "C" Then
            C.Text = Val(B.Text) * 2
        ElseIf A.Text = "D" Then
            C.Text = Val(B.Text) * 1
        ElseIf A.Text = "E" Then
            C.Text = Val(B.Text) * 0
        Else : MsgBox("NILAI MUTU TIDAK DITEMUKAN")
        End If
    End Sub
    Private Sub TOTAL()
        total46110043.Text = Val(SPA46110043.Text) + Val(SAI46110043.Text) + Val(saa46110043.Text) + Val(sab46110043.Text) + Val(ssa46110043.Text)
        totalns46110043.Text = Val(nspa46110043.Text) + Val(nsai46110043.Text) + Val(nsaa46110043.Text) + Val(nsab46110043.Text) + Val(nssa46110043.Text)
        ipk46110043.Text = totalns46110043.Text / total46110043.Text
    End Sub

    Private Sub spa46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spa46110043.TextChanged
        NILAI(npa46110043, spa46110043, nspa46110043)
        total()
    End Sub

    Private Sub sai46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sai46110043.TextChanged
        NILAI(nai46110043, sai46110043, nsai46110043)
        total()
    End Sub

    Private Sub saa46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saa46110043.TextChanged
        hani(naa46110043, saa46110043, nsaa46110043)
        total()
    End Sub

    Private Sub sab46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sab46110043.TextChanged
        NILAI(NAB46110044, sab46110043, nsab46110043)
        total()
    End Sub

    Private Sub ssa46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ssa46110043.TextChanged
        NILAI(nsa46110043, ssa46110043, nssa46110043)
        total()
    End Sub
End Class

6. Klik simbol 'Start Debugging' untuk mulai menjalankan form.

Script Unique

 Private Sub NILAI()
        hasil346110043.Text = angka1_46110043.Text * angka2_46110043.Text

Private Sub hitung1_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung1_46110043.Click
        hasil1_46110043.Text = Val(angka1_46110043.Text) + Val(angka2_46110043.Text)
        hasil2_46110043.Text = Val(angka2_46110043.Text) + Val(angka3_46110043.Text)
        hasil4_46110043.Text = Val(angka3_46110043.Text) + Val(angka4_46110043.Text)
        hasil5_46110043.Text = Val(angka4_46110043.Text) + Val(angka5_46110043.Text)
        NILAI()
    End Sub

Script Unique

Private Sub NILAI(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)
        If A.Text = "A" Then
            C.Text = Val(B.Text) * 4
        ElseIf A.Text = "B" Then
            C.Text = Val(B.Text) * 3
        ElseIf A.Text = "C" Then
            C.Text = Val(B.Text) * 2
        ElseIf A.Text = "D" Then
            C.Text = Val(B.Text) * 1
        ElseIf A.Text = "E" Then
            C.Text = Val(B.Text) * 0
        Else : MsgBox("NILAI MUTU TIDAK DITEMUKAN")
        End If
    End Sub

script tersebut merupakan fungsi prosedur yang menggunakan rumus untuk meng-konversi nilai mutu menjadi angka berdasarkan kriteria penilaian untuk mendapatkan hasil perkalian nilai dengan sks.

Even

TextChanged

Property

Property TextBox --> ReadOnly = True