latihan_11_36110040

Form Latihan_01_36110040 Terdapat tiga object yaitu label, textbox, dan button:

Object Label

Terdapat empat belas label (yang bertuliskan indeks prestasi kumulatif; stambuk; nama; mata kuliah; nilai mutu; sks; nxs; pengantar akuntansi; akuntansi intermediate; akuntansi advance; akuntansi biaya; system akuntansi; total ipk)

Object Text Box

Terdapat dua puluh textbox ( dua belas status input; delapan status readonly). Status input digunakan untuk memasukkan nilai stambuk; nama; nilai mutu pengantar akuntansi; akuntansi intermediate; akuntansi advance; akuntansi biaya; system akuntansi; sks pengantar akuntansi; akuntansi intermediate; akuntansi advance; akuntansi biaya; system akuntans. Status readonly digunakan untuk menampilkan hasil perhitungan.

Script Unique

Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu

Private Sub RAHMI(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)

        If A.Text = "A" Then

            NS1_36110040.Text = 4 * Val(SKS1_36110040.Text)

        ElseIf A.Text = "B" Then

            NS2_36110040.Text = 3 * Val(SKS1_36110040.Text)

        ElseIf A.Text = "C" Then

            NS1_36110040.Text = 2 * Val(NM1_36110040.Text)

        ElseIf A.Text = "D" Then

            NS1_36110040.Text = 1 * Val(NM1_36110040.Text)

        ElseIf A.Text = 0 Then

        End If

    End Sub

    End Sub

Even

TextChanged

Property

Property TextBox ==> ReadOnly=True

Tahap Penyelesaian Latihan_11_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

 3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_10 dan add.

4.      Buat Form Latihan_10 dibawah ini:

 5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class LATIHAN_11_36110040

    Private Sub RAHMI(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)

        If A.Text = "A" Then

            NS1_36110040.Text = 4 * Val(SKS1_36110040.Text)

        ElseIf A.Text = "B" Then

            NS2_36110040.Text = 3 * Val(SKS1_36110040.Text)

        ElseIf A.Text = "C" Then

            NS1_36110040.Text = 2 * Val(NM1_36110040.Text)

        ElseIf A.Text = "D" Then

            NS1_36110040.Text = 1 * Val(NM1_36110040.Text)

        ElseIf A.Text = 0 Then

        End If

    End Sub

    Private Sub SKS1_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SKS1_36110040.TextChanged

        RAHMI(NM1_36110040, SKS1_36110040, NS1_36110040)

        NS1_36110040.Text = Val(NM1_36110040.Text * SKS1_36110040.Text)

        TOTAL1_36110040.Text = Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) + Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)

    End Sub

    Private Sub SKS2_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SKS2_36110040.TextChanged

        RAHMI(NM2_36110040, SKS2_36110040, NS2_36110040)

        NS2_36110040.Text = Val(NM2_36110040.Text * SKS2_36110040.Text)

        TOTAL1_36110040.Text = Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) + Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)

    End Sub

    Private Sub SKS3_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SKS3_36110040.TextChanged

        RAHMI(NM3_36110040, SKS3_36110040, NS3_36110040)

        NS3_36110040.Text = Val(NM3_36110040.Text * SKS3_36110040.Text)

        TOTAL1_36110040.Text = Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) + Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)

    End Sub

    Private Sub SKS4_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SKS4_36110040.TextChanged

        RAHMI(NM4_36110040, SKS4_36110040, NS4_36110040)

        NS4_36110040.Text = Val(NM4_36110040.Text * SKS4_36110040.Text)

        TOTAL1_36110040.Text = Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) + Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)

    End Sub

    Private Sub SKS5_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SKS5_36110040.TextChanged

        RAHMI(NM5_36110040, SKS5_36110040, NS5_36110040)

        NS5_36110040.Text = Val(NM5_36110040.Text * SKS5_36110040.Text)

        TOTAL1_36110040.Text = Val(SKS1_36110040.Text) + Val(SKS2_36110040.Text) + Val(SKS3_36110040.Text) + Val(SKS4_36110040.Text) + Val(SKS5_36110040.Text)

    End Sub

    Private Sub NS1_36110040_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NS1_36110040.TextChanged, NS2_36110040.TextChanged, NS3_36110040.TextChanged, NS4_36110040.TextChanged, NS5_36110040.TextChanged

        TOTAL2_36110040.Text = Val(NS1_36110040.Text) + Val(NS2_36110040.Text) + Val(NS3_36110040.Text) + Val(NS4_36110040.Text) + Val(NS5_36110040.Text)

    End Sub

    Private Sub TOTAL1_36110047_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TOTAL1_36110040.TextChanged, TOTAL2_36110040.TextChanged

        IPK_36110040.Text = Val(TOTAL2_36110040.Text) / Val(TOTAL1_36110040.Text)

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

8.      Selesai.

latihan_10_36110040

Deskripsi Form Latihan_10_36110040 Terdapat dua object yaitu label dan textbox.

Object Label

Terdapat sembilan label (yang bertuliskan Nama Perusahaan, Nama pegawai, PKP, PPH, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5)

Object Text Box

Terdapat sebelas textbox (enam status input; lima status readonly). Status input digunakan untuk menginput nama perusahaan dan memasukkan PKP dari kelima pegawai. Sedangkan status ReadOnly digunakan untuk menampilkan PPH dari setiap pegawai berdasarkan nilai PKP yang telah di input. .

Script Unique

Textchanged

Even

PKP1_36110040_TextChanged

Property

Property TextBox ==> ReadOnly=True

Prosedur Penyelesaian Latihan_10_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_10 dan add.

4.      Buat Form Latihan_10 dibawah ini:

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class LATIHAN_10_36110040

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

    End Sub

    Private Sub RAHMI(ByVal PKP As TextBox, ByVal PPH As TextBox)

        If PKP.Text < 50000000 Then

            PPH.Text = Val(PKP.Text) * 5 / 100

        ElseIf PKP.Text < 100000000 Then

            PPH.Text = Val(PKP.Text) * 10 / 100

        End If

    End Sub

    Private Sub PKP1_36110047_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36110040.TextChanged

        RAHMI(PKP1_36110040, pph1_36110040)

    End Sub

    Private Sub PKP2_36110047_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_36110040.TextChanged

        RAHMI(PKP2_36110040, pph2_36110040)

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

latihan_08_36110040

Form Latihan_08_36110040 Terdapat tiga object yaitu label, textbox, dan button:

Object Label

Terdapat dua belas label (yang bertuliskan Nama, Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5, Cerita 1, Cerita 2, Cerita 3, Cerita 4)

Object  Textbox

Terdapat enam belas textbox (dua belas status input; empat status read only). Status input digunakan untuk memasukkan nilai yang akan diperhitungkan. Sedangkan status ReadOnly digunakan untuk menghasilkan angka-angka yang telah di input.

Object Button

Terdapat satu object button yaitu Close yang dimana digunakan untuk mengosongkan kembali kolom TextBox.

Script Unique

Untuk Button Close:

A36110040.Text = ""

Even

Close_36110031_Click

Property

Property TextBox ==> ReadOnly=True

Tahap Penyelesaian Latihan_08_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_08 dan add.

4.      Buat Form Latihan_08 dibawah ini:

 5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class LATIHAN_08_36110040

    Private Sub A36110040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alamat36110040.TextChanged, a36110040.TextChanged, alamat136110040.TextChanged, t1_36110040.TextChanged, alamat236110040.TextChanged, t2_36110040.TextChanged, alamat336110040.TextChanged, t3_36110040.TextChanged, alamat436110040.TextChanged, t4_36110040.TextChanged, alamat536110040.TextChanged, t5_36110040.TextChanged

        rahmi1()

        rahmi2()

        RAHMI3()

        RAHMI4()

    End Sub

    Private Sub rahmi1()

        cer1_36110040.Text = "NAMA SAYA ADALAH " & a36110040.Text & " SAYA TINGGAL DI " & alamat36110040.Text & "SAYA HANYA SUKA MAKAN DAN TIDUR"

    End Sub

    Private Sub rahmi2()

        cer2_36110040.Text = "SAYA PUNYA TEMAN YANG BERNAMA " & t1_36110040.Text & " DAN " & t2_36110040.Text & ".MEREKA TINGGAL  DI " & alamat136110040.Text & "." & alamat236110040.Text & ". MEREKA SAHABAT KARIBKU"

    End Sub

    Private Sub RAHMI3()

        cer3_36110040.Text = "SAYA  JUGA PUNYA TEMAN YANG BERNAMA " & t3_36110040.Text & " DAN " & t4_36110040.Text & ". MEREKA TINGGAL DI " & alamat436110040.Text & "." & alamat536110040.Text & ". MEREKA ITU SEPERTI TOM AND JERRY....HAHAHAHA"

    End Sub

    Private Sub RAHMI4()

        cer4_36110040.Text = "SELAIN MEREKA,ADA 1 LAGI TEMAN SAYA YANG PALING CANTIK, YAITU " & t5_36110040.Text & "DIA SANGAT CANTIK. AKAN DIA SANGATT OON DAN POLOS. DIA TINGGAL DI " & alamat536110040.Text & ". INI CERITAKU MANA CERITAMU"

    End Sub

    Private Sub close_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close_36110040.Click

        a36110040.Text = ""

        t1_36110040.Text = ""

        t2_36110040.Text = ""

        t3_36110040.Text = ""

        t4_36110040.Text = ""

        t5_36110040.Text = ""

        alamat36110040.Text = ""

        alamat136110040.Text = ""

        alamat236110040.Text = ""

        alamat336110040.Text = ""

        alamat436110040.Text = ""

        alamat536110040.Text = ""

        cer1_36110040.Text = ""

        cer2_36110040.Text = ""

        cer3_36110040.Text = ""

        cer4_36110040.Text = ""

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon SAVE