Latihan_13_46110055

Deskripsi Latihan 13

Pada form latihan 13 hanya 1 object yang digunakan yaitu Data Grid View.

Object DataGridView

Terdapat 3 object datagridview yang berfungsi untuk menampilkan data

Script Unique

* Membuat data set => Dim DT1 As New DataTable 

* Membuat data tabel => Dim DS As New DataSet 

* Membuat BindingSource => Dim DBS1 As New BindingSource 

* Membuat kolom pada data tabel => DT1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String))) 

* Menambah baris (isi) pada data table => For RI As Integer = 1 To RPT.Next(1, 5)

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

Next

* Menambahkan data table di data set => DS.Tables.Add(DT1)  

* Membuat nama lain data table  => DT1.TableName = "FB1"  

* Membuat Relationship => DS.Relations.Add(New DataRelation("DN1", DS.Tables("FB1").Columns("Kode Rekening Induk"), DS.Tables("FB2").Columns("Kode Rekening Induk")))

* ketika data set menjadi data source => DBS1.DataSource = DS

        DBS1.DataMember = "FB1"

* ketika binding source menjadi data source pada data grid view => dgv146110055.DataSource = DBS1

Even

Formload

Table click

Property

Default

Cara membuat Latihan 13 :

1. Buka  Microsoft Visual Studio 2008

2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 13”

6. Setelah itu ganti nama design yang diakhiri nim anda, pada ketiga object DataGridView.

7. Pilih menu “view” klik  “code”.

8. Masukkan rumus berikut :

Public Class Latihan_13_46110055

    Dim DT1 As New DataTable

    Dim DT2 As New DataTable

    Dim DT3 As New DataTable

    Dim DS As New DataSet

    Dim DBS1 As New BindingSource

    Dim DBS2 As New BindingSource

    Dim DBS3 As New BindingSource

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

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

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

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

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

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

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

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

        DT3.Columns.Add(New DataColumn("Konde Rekening Sub-Sub", GetType(String)))

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

        Dim RPT As New Random

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

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

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

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

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

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

                Next

            Next

        Next

        DS.Tables.Add(DT1)

        DS.Tables.Add(DT2)

        DS.Tables.Add(DT3)

        DT1.TableName = "FB1"

        DT2.TableName = "FB2"

        DT3.TableName = "FB3"

        DS.Relations.Add(New DataRelation("DN1", DS.Tables("FB1").Columns("Kode Rekening Induk"), DS.Tables("FB2").Columns("Kode Rekening Induk")))

        DS.Relations.Add(New DataRelation("DN2", DS.Tables("FB2").Columns("Kode Rekening Sub"), DS.Tables("FB3").Columns("Kode Rekening sub")))

        DBS1.DataSource = DS

        DBS1.DataMember = "FB1"

        DBS2.DataSource = DBS1

        DBS2.DataMember = "DN1"

        DBS3.DataSource = DBS2

        DBS3.DataMember = "DN2"

        dgv146110055.DataSource = DBS1

        dgv246110055.DataSource = DBS2

        dgv346110055.DataSource = DBS3

    End Sub

End Class

9. Klik start debugging.

Langkah menjalankan Form:

Setelah meng-klik tombol start debugging program akan menganalisa data script yang telah dibuat, dan menghasilkan tampilan data pada setiap object DataGridView.

Latihan_12_46110055

Deskripsi Latihan 12

Pada Form Latihan 12 terdapat enam object yaitu label, textbox, button, datetimepicker, datagridview, dan GroupBox.

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.

Object Textbox

Terdapat 9 textbox (6 status input dan 3 Read Only). Status input digunakan untuk menginput data No Pembelian, Nama Barang, Harga Perunit, Unit, No. Baris. Status Read only untuk menampilkan hasil analisa pada Jumlah, Total Unit, Total.

Object Button

Terdapat 7 object button (1 tombol Simpan; 3 tombol Tampilkan, dan 3 tombol Hapus). Tombol Simpan untuk menyimpan data yang diinput pada tabel yang diatur dalam DataGridView. Tombol Tampilkan dan Hapus digunakan untuk menampilkan ataupun menghapus data berdasarkan no.baris, no.pembelian, ataupun baris sekarang yang tersedia.

Object DateTimePicker

Terdapat 1 object datetimepicker untuk menginput data dalam format tanggal, bulan, dan tahun.

Object DataGridView

Terdapat 1 object datagridview untuk menginput data dari formulir pembelian yang diinput.

Object GroupBox

Terdapat 5 object GroupBox (Formulir; Data; Berdasarkan No. Baris; Berdasarkan No. Pembelian; Berdasarkan Baris Sekarang). Object GroupBox digunakan untuk mengelompokkan beberapa object dalam suatu box.

Script Unique

-  Dim tabel As New DataTable

=> digunakan untuk menambahkan tabel baru dengan pemberian nama tabel pada datagridview.

-  tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))

=> digunakan untuk menambahkan kolom baru dengan pemberian nama kolom.

-  view46110055.DataSource = tabel

=> digunakan untuk membuat data source (sumber data).

Even

TextChanged

ButtonClick

Property

Property TextBox ==> ReadOnly=True

Cara  membuat Latihan 12:

1. Buka  Microsoft Visual Studio 2008

2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 12”

6. Setelah itu beri teks pada label, group box dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.

8. Masukkan rumus berikut :

Public Class Latihan_12_46110055

    Dim tabel As New DataTable

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

        dgv46110055.DataSource = tabel

        Dim kolom(1) As DataColumn

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

        tabel.PrimaryKey = kolom

    End Sub

    Private Sub hpu46110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpu46110055.TextChanged, unit46110055.TextChanged

        jml46110055.Text = Val(hpu46110055.Text) * Val(unit46110055.Text)

    End Sub

    Private Sub simpan46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110055.Click

        Dim baris As DataRow

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

        If baris Is Nothing Then

            baris = tabel.NewRow

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

            baris("nama barang") = nb46110055.Text

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

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

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

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

            tabel.Rows.Add(baris)

            np46110055.Text = ""

            nb46110055.Text = ""

            hpu46110055.Text = ""

            unit46110055.Text = ""

            jml46110055.Text = ""

        Else : MsgBox("baris sudah ada")

            jml46110055.Text = ""

        End If

    End Sub

    Private Sub tampil146110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil146110055.Click

        Dim baris As DataRow

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

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

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

            nb46110055.Text = baris("nama barang")

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

            tgl46110055.Value = baris("tanggal pembelian")

            unit46110055.Text = baris("unit")

            jml46110055.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        nobar46110055.Text = ""

    End Sub

    Private Sub hapus146110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus146110055.Click

        Dim baris As DataRow

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

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

            baris.Delete()

        Else

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

        End If

        nobar46110055.Text = ""

    End Sub

    Private Sub tampil246110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil246110055.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

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

            nb46110055.Text = baris("nama barang")

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

            tgl46110055.Value = baris("tanggal pembelian")

            unit46110055.Text = baris("unit")

            jml46110055.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        nopem46110055.Text = ""

    End Sub

    Private Sub hapus246110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus246110055.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

            baris.Delete()

            nopem46110055.Text = ""

        Else

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

            nopem46110055.Text = ""

        End If

    End Sub

    Private Sub tampil346110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil346110055.Click

        Dim baris As DataRow

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

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

        nb46110055.Text = baris("nama barang")

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

        tgl46110055.Value = baris("tanggal pembelian")

        unit46110055.Text = baris("unit")

        jml46110055.Text = baris("jumlah")

    End Sub

    Private Sub hapus346110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus346110055.Click

        Dim baris As DataRow

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

        baris.Delete()

    End Sub

    Private Sub dgv46110055_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dgv46110055.DataBindingComplete

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        tu46110055.Text = tu

        total46110055.Text = total

    End Sub

End Class

9. Klik start debugging.

Langkah-langkah menjalankan Form:

1. Isi text box yang berstatus input, sesuai dengan keinginan anda (No Pembelian, Nama Barang, Harga Perunit, Unit, No. Baris).

2. setelah itu program akan menganalisa data yang telah diinput dan menampilkan hasil dari analisa pada textbox berstatus Read Only yang tersedia (Jumlah, Total Unit, Total).

3. Tekan tombol Simpan,  maka data yang diinput pada formulir akan tersimpan pada tabel di object DataGridView.

4. Jika ingin menampilkan data, input pada box berdasarkan no baris, no pembelian, ataupun baris sekarang yang ingin ditampilkan, lalu klik tombol tampilkan.

5. Jika ingin menghapus data, input pada box berdasarkan no baris, no pembelian, ataupun baris sekarang yang ingin dihapus, lalu klik tombol hapus.

Latihan_11_46110055

Deskripsi Latihan 11

Form Latihan 11 Terdapat 2 object yaitu label, dan textbox:

Object Label
Pada form Latihan 11 Terdapat 14 label yang bertuliskan indeks prestasi kumulatif, stambuk, nama, mata kuliah, pengantar akuntansi, akuntansi intermediate, akuntansi advance, akuntansi biaya, sistem akuntansi, total, IPK, nilai mutu (n) , SKS (s) dan N x S.

Object Text Box
pada form ini Terdapat juga Terdapat 20 textbox (12 status input dan 8 lainnya berstatus read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.


Script Unique
Private Sub TOTAL() ==> script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Even
TextChanged.

Property
Property TextBox  => ReadOnly = True

Cara  membuat Latihan 11:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 11”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_11_46110055

    Private Sub feby(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
        Else : MsgBox("NILAI MUTU TIDAK DITEMUKAN")
        End If
    End Sub
    Private Sub TOTAL()
        totals46110055.Text = Val(s146110055.Text) + Val(s246110055.Text) + Val(s346110055.Text) + Val(s446110055.Text) + Val(s546110055.Text)
        totalns46110055.Text = Val(ns146110055.Text) + Val(ns246110055.Text) + Val(ns346110055.Text) + Val(ns446110055.Text) + Val(ns546110055.Text)
        ipk46110055.Text = totalns46110055.Text / totals46110055.Text
    End Sub

    Private Sub s146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s146110055.TextChanged
        feby(n146110055, s146110055, ns146110055)
        TOTAL()
    End Sub

    Private Sub s246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s246110055.TextChanged
        feby(n246110055, s246110055, ns246110055)
        TOTAL()
    End Sub

    Private Sub s346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s346110055.TextChanged
        feby(n346110055, s346110055, ns346110055)
        TOTAL()
    End Sub

    Private Sub s446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s446110055.TextChanged
        feby(n446110055, s446110055, ns446110055)
        TOTAL()

    End Sub

    Private Sub s546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s546110055.TextChanged
        feby(n546110055, s546110055, ns546110055)
        TOTAL()
    End Sub
End Class


Langkah - langkah menjalankan Latihan 11:
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  setelah itu program akan menganalisa data yang telah diinput dan menampilkan hasil dari analisa pada textbox berstatus Read Only yang tersedia.

Latihan_10_46110055

Deskripsi Latihan 10

Form Latihan 10 Terdapat 2 object yaitu label, dan textbox:

Object Label
Pada form Latihan 10 Terdapat 9 label yang bertuliskan Nama Perusahaan, Nama Pegawai, PKP, PPH, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, dan Pegawai 5.

Object Text Box
pada form ini Terdapat juga Terdapat 11 textbox (6 status input dan 5 lainnya berstatus read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.


Script Unique
feby(pkp146110055, pph146110055) ==> Script ini digunakan sebagai data dari fungsi prosedur yang telah di buat. Urutan text box nya harus sama dengan urutan yang ada di prosedur.

Even
TextChanged.

Property
Property TextBox  => ReadOnly = True

Cara  membuat Latihan 10:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 10”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_10_46110055

    Private Sub feby(ByVal gaji As TextBox, ByVal pajak As TextBox)
        If Val(gaji.Text) <= 50000000 Then
            pajak.Text = Val(gaji.Text) * 5 / 100
        ElseIf Val(gaji.Text) <= 250000000 Then
            pajak.Text = ((Val(gaji.Text) - 50000000) * (15 / 100)) + (50000000 * (5 / 100))
        ElseIf Val(gaji.Text) <= 500000000 Then
            pajak.Text = ((Val(gaji.Text) - 250000000) * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))
        ElseIf Val(gaji.Text) > 500000000 Then
            pajak.Text = ((Val(gaji.Text) - 500000000) * (30 / 100)) + (250000000 * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))
        Else
        End If
    End Sub

    Private Sub pkp146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp146110055.TextChanged
        feby(pkp146110055, pph146110055)
    End Sub

    Private Sub pkp246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp246110055.TextChanged
        feby(pkp246110055, pph246110055)
    End Sub

    Private Sub pkp346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp346110055.TextChanged
        feby(pkp346110055, pph346110055)
    End Sub

    Private Sub pkp446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp446110055.TextChanged
        feby(pkp446110055, pph446110055)
    End Sub

    Private Sub pkp546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp546110055.TextChanged
        feby(pkp546110055, pph546110055)
    End Sub
End Class


Langkah - langkah menjalankan Latihan 10:
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  setelah itu program akan menganalisa data yang telah diinput dan menampilkan hasil dari analisa pada textbox berstatus Read Only yang tersedia.

Latihan_09_46110055

Deskripsi Latihan 09

Form Latihan 09 Terdapat 3 object yaitu label, textbox, dan button:

Object Label
Pada form Latihan 09 Terdapat 12 label yang bertuliskan Nama Perusahaan, Tahun I, Tahun II, Tahun III, Total Aktiva, Modal Kerja, Penjualan, Laba ditahan, EBIT, Harga pasar Equity, Nilai Buku Hutang, dan Tingkat Kesehatan Keuangan


Object Text Box
Pada form ini Terdapat juga 25 textbox (22 status input dan 3 lainnya berstatus read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.

Object Button
Terdapat 1 buah object button yaitu Analisa. Tombol analisa ini akan memunculkan kriteria hasil perhitungan z score,yang rumusnya sudah diketahui sebelumnya. Untuk tiap tahun ,rumus menghitung z-score itu sama, maka dari itu buatkan procedure nyaa. akan tetapi kali ini kita akan menggunakan procedure yang dilengkapi parameter.
==> z-scor e= (1,2 * modal kerja/total aktiva)+(1,4*laba ditahan/total aktiva)+(3,3*ebit/total aktiva)+(0,6*Harga pasar equity/Nilai buku hutang)

jika nilainya lebih dari 3,3 maka sehat
>= 1,81 waspada
>= mengalami kesulitan

Script Unique
feby(a146110055, a246110055, a346110055, a446110055, a546110055, a646110055, a746110055, a846110055) ==> Script ini digunakan sebagai data dari fungsi prosedur yang telah di buat. Urutan text box nya harus sama dengan urutan yang ada di prosedur.

Even
Button click

Cara  membuat Latihan 09 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 09”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_09_46110055

    Private Sub feby(ByVal a1 As TextBox, ByVal a2 As TextBox, ByVal a3 As TextBox, ByVal a4 As TextBox, ByVal a5 As TextBox, ByVal a6 As TextBox, ByVal a7 As TextBox, ByVal a8 As TextBox)
        If 1.2 * Val(a2.Text) / Val(a1.Text) + 1.4 * Val(a4.Text) / Val(a1.Text) + 3.3 * Val(a5.Text) / Val(a1.Text) + 0.6 * Val(a6.Text) / Val(a7.Text) >= 3.3 Then
            a8.Text = "SEHAT"
        ElseIf 1.2 * Val(a2.Text) / Val(a1.Text) + 1.4 * Val(a4.Text) / Val(a1.Text) + 3.3 * Val(a5.Text) / Val(a1.Text) + 0.6 * Val(a6.Text) / Val(a7.Text) >= 1.81 Then
            a8.Text = "WASPADA"
        ElseIf 1.2 * Val(a2.Text) / Val(a1.Text) + 1.4 * Val(a4.Text) / Val(a1.Text) + 3.3 * Val(a5.Text) / Val(a1.Text) + 0.6 * Val(a6.Text) / Val(a7.Text) >= 0 Then
            a8.Text = "MENGALAMI KESULITAN"
        Else
            a8.Text = ""
        End If
    End Sub

    Private Sub analisa46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analisa46110055.Click
        feby(a146110055, a246110055, a346110055, a446110055, a546110055, a646110055, a746110055, a846110055)
        feby(b146110055, b246110055, b346110055, b446110055, b546110055, b646110055, b746110055, b846110055)
        feby(c146110055, c246110055, c346110055, c446110055, c546110055, c646110055, c746110055, c846110055)
    End Sub
End Class


Langkah - langkah menjalankan Latihan 09:
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  setelah itu Klik tombol analisa , untuk mengetahui hasilnya.

Latihan_08_46110055

Deskripsi Latihan 08

Pada Form Latihan 08 Terdapat 3 object yaitu label, textbox, dan button:

Object Label
Pada form Latihan 08 Terdapat 12 label yang bertuliskan Nama, Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5, Cerita 1, Cerita 2,Cerita 3, dan Cerita 4.

Object Text Box
pada form ini Terdapat juga 16 textbox (12 status input, 4 berstatus read only dan have a scrollbar(vertikal)). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.

Object Button
Terdapat 1 buah object button yaitu Close yang berfungsi untuk menutup window form.

Script Unique
Private Sub cerita1() script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Even
TextChanged


Cara  membuat Latihan 08 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 08”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_08_46110055

    Private Sub cerita1()
        crt146110055.Text = "Nama saya adalah " & nama46110055.Text & " saya tinggal di " & alamat46110055.Text & " saya mempunyai teman baik yang bernama " & teman146110055.Text & " dia tinggal di " & ala146110055.Text
    End Sub

    Private Sub cerita2()
        crt246110055.Text = "Saya mempunyai teman-teman yang selalu menemani saya mereka adalah " & teman246110055.Text & " dan " & teman346110055.Text & "mereka tinggal di " & ala246110055.Text & " dan " & ala346110055.Text & "." & "kami memiliki hobi yang sama."
    End Sub

    Private Sub cerita3()
        crt346110055.Text = "sewaktu SMA saya mempunyai teman sebangku yang bernama " & teman446110055.Text & " dia tinggal di " & ala446110055.Text & ", dia sangat menyenangkan sebagai teman."
    End Sub

    Private Sub cerita4()
        crt446110055.Text = teman546110055.Text & " adalah kecil saya, dia tinggal di " & ala546110055.Text & ". Kami sudah lama tidak bertemu karena sekarang dia melanjutkan sekolahnya di daerah lain."
    End Sub

 

    Private Sub nama46110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama46110055.TextChanged
        cerita1()
    End Sub

    Private Sub alamat46110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alamat46110055.TextChanged
        cerita2()
    End Sub

    Private Sub teman146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman146110055.TextChanged
        cerita1()
    End Sub

    Private Sub ala146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala146110055.TextChanged
        cerita1()
    End Sub

    Private Sub teman246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman246110055.TextChanged
        cerita2()
    End Sub

    Private Sub ala246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala246110055.TextChanged
        cerita2()
    End Sub

    Private Sub teman346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman346110055.TextChanged
        cerita2()
    End Sub

    Private Sub ala346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala346110055.TextChanged
        cerita2()
    End Sub

    Private Sub teman446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman446110055.TextChanged
        cerita3()
    End Sub

    Private Sub ala446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala446110055.TextChanged
        cerita3()
    End Sub

    Private Sub teman546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman546110055.TextChanged
        cerita4()
    End Sub

    Private Sub ala546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala546110055.TextChanged
        cerita4()
    End Sub

 
    Private Sub close46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close46110055.Click
        crt146110055.Text = ""
        crt246110055.Text = ""
        crt346110055.Text = ""
        crt446110055.Text = ""
        nama46110055.Text = ""
        teman146110055.Text = ""
        teman246110055.Text = ""
        teman346110055.Text = ""
        teman446110055.Text = ""
        teman546110055.Text = ""
        alamat46110055.Text = ""
        ala146110055.Text = ""
        ala246110055.Text = ""
        ala346110055.Text = ""
        ala446110055.Text = ""
        ala546110055.Text = ""
    End Sub

 
End Class


Langkah - langkah menjalankan Latihan 08 :
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  Hasil akan muncul sendiri setelah anda menginput textbox yang tersedia untuk di input.
4.  Untuk menutup klik close.

Latihan_07_46110055

Deskripsi Latihan 07

Pada Form  Latihan 07  terdapat 3 object yaitu  label, textbox, dan button.

Object Label

Pada form latihan 07 ini terdapat 2 label yang bertuliskan “Masukkan Angka” & “Hasil Perhitungan”.

Object Textbox

Pada form ini terdapat juga 30 textbox :

1-5 , merupakan status input yang digunakan untuk menginput nilai yang digunakan dalam perhitungan.

6-30 , merupakan status Read Only yang digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Dimana textbox 6,7,29,30 rumusnya berbeda pada setiap Tombol HITUNG, sedangkan textbox 8-28 rumusnya sama untuk semua tombol HITUNG 1,2,dan3.

Object Button

Pada form ini terdapat 3 object button .Button 1 digunakan untuk menampilkan hasil perhitungan dari nilai” yang telah dimasukkan pada textbox yang berstatus read only. Button 2 dan Button 3 digunakan untuk menampilakn perubahan nilai pada textbox ke 6,7,29 dan 30 disebabkan rumus yang digunakan berbeda dengan yg sebelumnya.

Script Unique

Private Sub feby() à script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Even

Button click

Property

Property TextBox ==> ReadOnly=True

Cara  membuat Latihan 07 :

1. Buka  Microsoft Visual Studio 2008

2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan “Latihan 07”

6. Pilih menu “view” klik  “code”

7. Masukkan rumus berikut :

Public Class Latihan_07_46110055

    Private Sub feby()

        tb846110055.Text = Val(tb146110055.Text) + Val(tb246110055.Text)

        tb946110055.Text = Val(tb246110055.Text) + Val(tb346110055.Text)

        tb1046110055.Text = Val(tb446110055.Text) + Val(tb546110055.Text)

        tb1146110055.Text = Val(tb246110055.Text) + Val(tb146110055.Text)

        tb1246110055.Text = Val(tb346110055.Text) + Val(tb246110055.Text)

        tb1346110055.Text = Val(tb146110055.Text) + Val(tb546110055.Text)

        tb1446110055.Text = Val(tb146110055.Text) + Val(tb346110055.Text)

        tb1546110055.Text = Val(tb546110055.Text) + Val(tb346110055.Text)

        tb1646110055.Text = Val(tb446110055.Text) + Val(tb546110055.Text)

        tb1746110055.Text = Val(tb346110055.Text) + Val(tb446110055.Text)

        tb1846110055.Text = Val(tb246110055.Text) + Val(tb546110055.Text)

        tb1946110055.Text = Val(tb346110055.Text) + Val(tb146110055.Text)

        tb2046110055.Text = Val(tb346110055.Text) + Val(tb246110055.Text)

        tb2146110055.Text = Val(tb546110055.Text) + Val(tb146110055.Text)

        tb2246110055.Text = Val(tb246110055.Text) + Val(tb446110055.Text)

        tb2346110055.Text = Val(tb146110055.Text) + Val(tb346110055.Text)

        tb2446110055.Text = Val(tb546110055.Text) + Val(tb346110055.Text)

        tb2546110055.Text = Val(tb146110055.Text) + Val(tb246110055.Text)

        tb2646110055.Text = Val(tb246110055.Text) + Val(tb346110055.Text)

        tb2746110055.Text = Val(tb346110055.Text) + Val(tb246110055.Text)

        tb2846110055.Text = Val(tb546110055.Text) + Val(tb446110055.Text)

    End Sub

    Private Sub hit146110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hit146110055.Click

        tb646110055.Text = Val(tb146110055.Text) + Val(tb246110055.Text)

        tb746110055.Text = Val(tb146110055.Text) + Val(tb346110055.Text)

        tb2946110055.Text = Val(tb346110055.Text) + Val(tb546110055.Text)

        tb3046110055.Text = Val(tb546110055.Text) + Val(tb446110055.Text)

    End Sub

    Private Sub hit246110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hit246110055.Click

        tb646110055.Text = Val(tb246110055.Text) * Val(tb346110055.Text)

        tb746110055.Text = Val(tb546110055.Text) * Val(tb446110055.Text)

        tb2946110055.Text = Val(tb2446110055.Text) * Val(tb346110055.Text)

        tb3046110055.Text = Val(tb246110055.Text) * Val(tb446110055.Text)

        feby()

    End Sub

    Private Sub hit346110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hit346110055.Click

        tb646110055.Text = Val(tb346110055.Text) - Val(tb146110055.Text)

        tb746110055.Text = Val(tb446110055.Text) - Val(tb246110055.Text)

        tb2946110055.Text = Val(tb546110055.Text) - Val(tb346110055.Text)

        tb3046110055.Text = Val(tb446110055.Text) - Val(tb546110055.Text)

        feby()

    End Sub

End Class

Langkah - langkah menjalankan Latihan 07 :

1.    Klik start debugging,

2.    Isi text box yang berstatus input, sesuai dengan angka pilihan anda,

3.    Untuk mengetahui hasil perhitungan, klik HITUNG 1 atau HITUNG 2 atau HITUNG 3.

Latihan_06_46110055

Deskripsi Latihan 06

Form Latihan 06 terdapat empat object yaitu label, textbox, checkbox, dan radiobutton:

Object Label
Terdapat 7 label yang bertuliskan Makanan Khas Makassar, Makanan, Harga, Qty, Jumlah, Total, Jumlah Bersih.

Object Text Box
Terdapat 21 textbox (6 status input dan 15 status Read Only). Status input digunakan untuk menginput jumlah porsi makanan yang dipesan (Qty). Status Read only untuk menampilkan harga makanan serta hasil perhitungan Jumlah, Total, Potongan, dan Jumlah Bersih yang dibayar dari makanan yang dipesan.

Object Checkbox
Terdapat 6 object checkbox (coto, pallubasa, sop konro, sop saudara, konro bakar, ulu juku’). object checkbox tersebut merupakan pilihan makanan yang digunakan untuk memilih satu atau lebih makanan dari beberapa pilihan untuk dihitung total harganya.

Object Radiobutton
Terdapat 2 object radiobutton (pot member 10% dan non-member). Jika memilih pot member 10%, maka akan dipotong 10% dari total dan hasilx tampak pada jumlah bersih, dan jika memilih non-member maka tidak ada potongan sehingga nilai pada total akan sama dengan jumlah bersih.

Script Unique

   If coto46110055.Checked = True Then
            hacot46110055.ReadOnly= False
            qtycot46110055.ReadOnly = False
            hacot46110055.Text= 10000
            qtycot46110055.Text= ""
            jumcot46110055.Text= ""
   Else : hacot46110055.ReadOnly = True
            qtycot46110055.ReadOnly = True
            hacot46110055.Text = ""
            qtycot46110055.Text = ""
            jumcot46110055.Text = ""
        End If

=> Apabila checkbox coto dicheck ,maka textboxt harga coto akan memunculkan angka 10000 (yaitu harga dari coto itu sendiri), sedangkan textbox Qty coto akan berubah menjadi textbox berstatus Input. Selain itu jika coto di check kembali maka tampilannya akan berubah seperti tampilan awal.

Even
CheckedChanged
TextChanged

Property
Property TextBox --> ReadOnly=True

Langkah-langkah Penyelesaian:
1.      Checklist  makanan yang ingin dipesan.
2.      Input jumlah unit makanan yang dipesan (Qty).
3.      Pilih pot.member 10% atau non-member berdasarkan status pelanggan.

Latihan_05_46110055

Deskripsi Form Latihan 05

Form Latihan 05 Terdapat empat object yaitu label, textbox, datetimepicker dan button

Object Label
Terdapat tiga label yang bertuliskan Name, Date of birth, dan Bintang.

Object Text Box
Terdapat Tiga textbox (1 status input; 2 status read only). Status input digunakan untuk memasukkan data berupa nama pada label “Name” . sedangkan, status Read Only digunakan untuk menampilkan hasil analisa dari object datetimepicker yang telah di input sebelumnya.

Object Datetimepicker
Object ini berfungsi untuk menerima input  berupa tanggal, bulan dan tahun dengan cara menggelik dan memilih tanggalnya.

Object Button
Terdapat dua object button yaitu “Analizing” dan “Close”. Button Analizing digunakan untuk menampilkan hasil analisa pada object TextBox ReadOnly dan button Close digunakan untuk mengosongkan kembali semua TextBox yang telah terisi.


Script Unique

Untuk menampikan bintang (tombol Analizing)

If LAHIR46110055.Value.Day >= 22 And LAHIR46110055.Value.Month = 12 Or LAHIR46110055.Value.Day <= 19 And LAHIR46110055.Value.Month = 1 Then
       BINTANG46110055.Text = "capricorn"
       ISI46110055.Text = "memiliki jiwa kuat dan tidak pernah menyerah"
=> Jika  tanggal lahir anda berada diantara tgl 21 desember sampai dengan 18 januari ,  maka bintang anada adalah capricorn.

Even :
ButtonClick

Property
Property TextBox ==> ReadOnly=True
Property TextBox ==> Multiline=True

Langkah-Langkah Menjalankan Form Latihan 05
1. input data nama anda pada kolom texboxt disamping label " Name".
2. Klik dan pilih tanggal lahir anda pada object Datetimepicker
3. Klik button Analizing maka akan muncul Bintang dan isi pada texbox read only ukuran besar.
4. Klik button“close”  pada sudut kanan bawah untuk mengosongkan isi textbox

Latihan_04_46110055

Deskripsi Form Latihan 04

Form Latihan 04 Terdapat empat object yaitu label, textbox, datetimepicker dan button

Object Label 
Terdapat 6 object label yaitu Nama Saya, Tanggal Lahir, Tanggal Kelahiran, Bulan Kelahiran, Tahun Kelahiran dan Hari Kelahiran.

Object TextBox
Pada form ini terdapat 5 textbox yang digunakan yaitu, 1 status input dan 4 status readonly. Status input digunakan untuk memasukkan data berupa nama sedangkan read only akan menampilkan hasil analisa setelah data dimasukkan sebelumnya (object datetimepicker)

Object Button
Terdapat juga 1 object button yang bertuliskan “analisa” . Tombol ini digunakan untuk menganalisa dan menampilkan hasil penginputan data dari datetimepickery pada label yang bertuliskan tanggal, bulan, tahun dan hari kelahiran.

Object DateTimePicker
Adapun object baru pada form ini yaitu datetimepicker. Dimana object ini digunakan untuk menginput data berupa tahun, bulan dan tanggal.

Script Unique
Untuk menampilkan data berupa tanggal,bulan,tahun yang telah diinput dalam datetimepiker sebelumnya.
       TGL46110055.Text = LAHIR46110055.Value.Day
       BULAN46110055.Text = LAHIR46110055.Value.Month
       TAHUN46110055.Text = LAHIR46110055.Value.Year
       HARI46110055.Text = LAHIR46110055.Value.DayOfWeek
Untuk menampilkan nama hari yang telah di input pada datetimepicker

Jika nama hari dikonversi dalam bentuk angka/nilai maka misalnya bernilai 0,maka pada textbox akan menampilkan hari “minggu” . Sedangkan Jika nama hari dikonversi dalam bentuk angka/nilai maka misalnya bernilai 1, textbox akan menampilkan hari “SENIN” dan seterusnya.

Even
ButtonClick.

Property
Property TextBox => ReadOnly = True

Langkah-Langkah Menjalankan Form Latihan 04 :
1.Masukkan nama anda pada textbox yang bertuliskan “Nama Saya”
2.Masukkan tanggal, bulan dan tahun lahir anda pada datetimepicker 
3.Klik tombol “Analisa”
4.Setelah itu program akan menganalisa data yang telah diinput sehingga akan menampilkan tanggal, bulan, tahun dan hari kelahiran pada textbox yang tersedia.

Latihan_03_46110055

Public Class Latihan_03_46110055

    Private Sub tb146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb146110055.Enter

        tb146110055.Text = Val(masuksd46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub

Private Sub tb246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb246110055.Enter

        tb246110055.Text = Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub

Private Sub tb346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb346110055.Enter

        tb346110055.Text = Val(tb246110055.Text) / Val(tb146110055.Text) * 100

    End Sub

Private Sub kosong46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110055.Click

        masuksd46110055.Text = ""

        sd46110055.Text = ""

        smp46110055.Text = ""

        sma46110055.Text = ""

        kul46110055.Text = ""

        tb146110055.Text = ""

        tb246110055.Text = ""

        tb346110055.Text = ""

    End Sub

End Class



Komentar :
Pada dasarnya sama dengan latihan 01, cuman script di balik tombol hitung di latihan 01 dipindahkan dibalik textbox dengan even yang sesuai . Private Sub tb146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb146110055.Enter ==>  dengan cara menambahkan (Enter) pada akhir rumus Private Sub. jadi, kita hanya menekan tombol Enter / klik textbox , jika ingin melihat hasilnya.