Latihan_11_46110037

Deskripsi Form Latihan 11

Pada latihan 11 terdapat 2 Object yaitu Label dan  TextBox.

Object Label

Terdapat 14 Label yaitu Indeks Prestasi Komulatif; Stanbuk; Nama; Mata Kuliah; Nilai Mutu (N); SKS (S); N x S; Pengantar Akuntansi; Akuntansi Intermedit; Akuntansi Advance; Akuntansi Biaya; Sistem Akuntansi; Total dan IPK.

Object TextBox

Terdapat  20 Textbox, 12 textbox berstatus input (Stambuk; Nama; Nilai Mutu Pengantar Akuntansi; Nilai Mutu Akuntansi Interedit; Nilai Mutu  Akuntansi Advance; Nilai Mutu Akuntansi Biaya; Nilai Mutu Sistem Akuntansi; SKS Pengantar Akuntansi; SKS Akuntansi Intermedit; SKS Akuntansi Advance; SKS  Akuntansi Biaya; SKS  Sistem Akuntansi  ), dan 8 textbox berstatus ReadOnly (N x S Pengantar Akuntansi; N x S Akuntansi Intermedit; N x S  Akuntansi Advance; N x S  Akuntansi Biaya; N x S Sistem Akuntansi; Total dan IPK)

Script Unique

Menambahkan perintah yang sama

Private Sub S146110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S146110037.TextChanged, N146110037.TextChanged

Kita menambahkan TextChanged lagi di belakang Private Sub itu bertujuan supaya ketika Nilai Mutu di ganti textnya maka hasilnya juga akan berpengaruh. Meskipun kita tidak membuat script pada textboxt Nilai Mutu.

Menambahkan koma pada angka.

IPK46110037.Text = FormatNumber(Val(TNS46110037.Text) / Val(Total46110037.Text), 2)

FormatNumber adalah kodenya sedangkan angka 2 menandakan dua angka di belakang koma.

Even

TextChanged

Property

Property Textbox=> ReadOnly=True

Langkah-Langkah Menjalankan Form

·     Masukkan Stambuk dan Nama Mahasiswa, kemudian isi Nilai Mutu yang ia dapatkan pada masing-masing mata kuliah, kemudian masukkan berapa SKS tiap Mata Kuliah. Maka secara otomatis akan menampilkan perhitungan antara Nilai Mutu dan SKS; Total SKS, Total Nilai Mutu dikalikan SKS dan IPK mahasiswa tersebut.

Langkah-langkah Menyelesaikan Form

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label  dan  Textbox.
• Ganti nama Textbox di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True.
• Click Kanan lalu pilih View Code kemudian buatlah Prosedure yang dilengkapi parameter,  serta Nilai Mutu yang ditetapkan di Kampus Anda, Misalnya:

Jika Nilainya A maka maka SKS * 4

Nilainya B maka maka SKS * 3

Nilainya C maka maka SKS * 2

Nilainya D maka maka SKS * 1

Nilainya E maka maka SKS * 0

Jadi scriptnya adalah sebagai berikut:

Private Sub Inna(ByVal pink As TextBox, ByVal biru As TextBox, ByVal kuning As TextBox)

        If pink.Text = "A" Or pink.Text = "a" Then

            kuning.Text = Val(biru.Text) * 4

        ElseIf pink.Text = "B" Or pink.Text = "b" Then

            kuning.Text = Val(biru.Text) * 3

        ElseIf pink.Text = "C" Or pink.Text = "c" Then

            kuning.Text = Val(biru.Text) * 2

        ElseIf pink.Text = "D" Or pink.Text = "d" Then

            kuning.Text = Val(biru.Text) * 1

        ElseIf pink.Text = "E" Or pink.Text = "e" Then

            kuning.Text = Val(biru.Text) * 0

        End If

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox SKS Pengantar Akuntansi, kemudian ketik scriptnya:

Private Sub S146110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S146110037.TextChanged, N146110037.TextChanged

        Inna(N146110037, S146110037, NS146110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox SKS Akuntansi Intermedit, kemudian ketik scriptnya:

Private Sub S246110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S246110037.TextChanged, N246110037.TextChanged

        Inna(N246110037, S246110037, NS246110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox SKS Akuntansi Advance, kemudian ketik scriptnya:

Private Sub S346110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S346110037.TextChanged, N346110037.TextChanged

        Inna(N346110037, S346110037, NS346110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox  SKS Akuntansi Biaya, kemudian ketik scriptnya:

Private Sub S446110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S446110037.TextChanged, N446110037.TextChanged

        Inna(N446110037, S446110037, NS446110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox SKS Sistem Akuntansi, kemudian ketik scriptnya:

Private Sub S546110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S546110037.TextChanged, N546110037.TextChanged

        Inna(N546110037, S546110037, NS546110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox Total SKS, kemudian ketik scriptnya:

Private Sub S546110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S546110037.TextChanged, N546110037.TextChanged

        Inna(N546110037, S546110037, NS546110037)

        Total46110037.Text = Val(S146110037.Text) + Val(S246110037.Text) + Val(S346110037.Text) + Val(S446110037.Text) + Val(S546110037.Text)

        TNS46110037.Text = Val(NS146110037.Text) + Val(NS246110037.Text) + Val(NS346110037.Text) + Val(NS446110037.Text) + Val(NS546110037.Text)

    End Sub

• Kembali ke design Form Latihan 11. Kemudian click double Textbox Total N x S , kemudian ketik scriptnya:

Private Sub TNS46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TNS46110037.TextChanged

        IPK46110037.Text = FormatNumber(Val(TNS46110037.Text) / Val(Total46110037.Text), 2)

    End Sub

Latihan_10_46110037

Deskripsi Form Latihan 10

Pada latihan 10 terdapat 2 Object yaitu Label dan  TextBox.

Object Label

Terdapat 9 Label yaitu Nama Perusahaan; Nama Pegawai; Pegawai 1; Pegawai 2; Pegawai 3; Pegawai 4; Pegawai 5; PKP dan PPh..

Object TextBox

Terdapat  11 Textbox, 6 textbox berstatus input (Nama Perusahaan; PKP Pegawai 1; PKP Pegawai 2; PKP Pegawai 3; PKP Pegawai 4 dan PKP Pegawai 5), dan 5 textbox berstatus ReadOnly (PPh Pegawai 1; PPh Pegawai 2; PPh Pegawai 3; PPh Pegawai 4 dan PPh Pegawai 5)

Script Unique

Tidak ada scrip unique dalam form ini karena caranya  hampir sama dengan form Latihan 09

Yaitu menggunakan prosedure yang dilengkapi parameter. Yang berbeda hanya evennya. Yaitu ketika kita menginput data PKP maka secara otomatis Pajak atas penghasilan akan muncul pada textbox PPh. Jadi kita menggunakan script Prosedur dengan parameter untuk masing-masing textbox PKP Pegawai

Even

TextChanged

Property

Property Textbox=> ReadOnly=True

Langkah-Langkah Menjalankan Form

·     Masukkan Data Nama Perusahaan; PKP Pegawai 1; PKP Pegawai 2; PKP Pegawai 3; PKP Pegawai 4 dan PKP Pegawai 5, maka secara otomatis akan muncul jumlah Pajak atas penghasilan masing-masing pegawai.

Langkah-langkah Menyelesaikan Form 

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label  dan  Textbox.
• Ganti nama Textbox di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True  
• Click Kanan lalu pilih View Code kemudian buatlah Prosedure yang dilengkapi parameter,  serta Tarif Pajak Penghasian. Tarif pajak Penghasilan yaitu:

5% Jika penghasilan s/d  50 juta

15%Jika penghasilan 50 Juta s/d 250 Juta

25% Jika penghasilan 250 juta s/d 500 juta

35% jika penghasilan di atas 500 juta.

Jadi scriptnya adalah sebagai berikut:

Private Sub INNA(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))

        End If

-Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 1, kemudian ketik scriptnya:

Private Sub PKP1_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_46110037.TextChanged

        INNA(PKP1_46110037, PPh1_46110037)

    End Sub

• Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 2, kemudian ketik scriptnya:

Private Sub PKP2_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_46110037.TextChanged

        INNA(PKP2_46110037, PPh2_46110037)

    End Sub

• Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 3, kemudian ketik scriptnya:

Private Sub PKP3_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP3_46110037.TextChanged

        INNA(PKP3_46110037, PPh3_46110037)

    End Sub

• Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 4, kemudian ketik scriptnya:

Private Sub PKP4_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP4_46110037.TextChanged

        INNA(PKP4_46110037, PPh4_46110037)

    End Sub

• Kembali ke design Form Latihan 10. Kemudian click double PKP Pegawai 5, kemudian ketik scriptnya:

Private Sub PKP5_46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP5_46110037.TextChanged

        INNA(PKP5_46110037, PPh5_46110037)

    End Sub

Latihan_09_46110037

Deskripsi Form Latihan 09

Pada latihan 09 terdapat 3 Object yaitu Label;  TextBox dan Button.

Object Label

Terdapat 12 Label yaitu Nama Perusahaan; Total Aktiva; Modal kerja; Penjualan; Laba Di Tahan; EBIT; Harga Pasar Equity; Nilai Buku Hutang;  Tingkat Kesehatan Keuangan; Tahun 1; Tahun 2 dan Tahun 3.

Object TextBox

Terdapat 25 Textbox, 22 textbox berstatus input ( Nama Perusahaan; Total aktiva Tahun 1; Modal kerja Tahun 1; Penjualan Tahun 1; Laba Di Tahan Tahun 1; EBIT Tahun 1; Harga Pasar Equity Tahun 1; Nilai Buku Hutang Tahun 1; Total aktiva Tahun 2; Modal kerja Tahun 2; Penjualan Tahun 2; Laba Di Tahan Tahun 2; EBIT Tahun 2; Harga Pasar Equity Tahun 2; Nilai Buku Hutang Tahun2;   Total aktiva Tahun 3; Modal kerja Tahun 3; Penjualan Tahun 3; Laba Di Tahan Tahun 3; EBIT Tahun 3; Harga Pasar Equity Tahun 3; Nilai Buku Hutang Tahun 3), dan 3 textbox berstatus ReadOnly (Tingkat Kesehatan Keuangan Tahun 1;  Tingkat Kesehatan Keuangan Tahun 2; Tingkat Kesehatan Keuangan Tahun 3)

Object Button

Terdapat 2 button yaitu tombol Analisa dan tombol Close. Ketika tombol Analisa di click maka analisa terhadap Tingkat Kesehatan keuangan akan muncul apakah sehat, waspada atau Mengalami kesulitan, sedangkan jika Tombol close di click maka akan keluar dari debugging.

 Script Unique

* Prosedure yang dilengkapi parameter

Private Sub inna(ByVal apel As TextBox, ByVal jeruk As TextBox, ByVal anggur As TextBox, ByVal lengkeng As TextBox, ByVal lemon As TextBox, ByVal pear As TextBox, ByVal nanas As TextBox, ByVal nangka As TextBox)

Inna adalah prosedurenya dan tulisan dalam tanda kurung adalah parameternya. Parameter adalah nama Variabel yang bukan object dalam form latihan 09.

Penggunaan Prosedur Parameter

inna(Toak146110037, Moke146110037, Penj146110037, LDT146110037, ebit146110037, HPE146110037, NBH146110037, TKK146110037)

inna adalah prosedurenya kata yang didalam tanda kurung adalah nama textbox dalam design form latihan 09.

Jadi maksud dari penggunaan parameter adalah untuk memudahkan kita menuliskan rumus dengan menggunakan kata ganti dari nama textbox, (apel adalah kata ganti dari Toak146110037, jeruk adalah kata ganti dari Moke146110037, dan seterusnya)

Even

Click

Property

Property Textbox=> ReadOnly=True

Langkah-Langkah Menjalankan Form

·     1. Masukkan Data Nama Perusahaan; Total aktiva Tahun 1; Modal kerja Tahun 1; Penjualan Tahun 1; Laba Di Tahan Tahun 1; EBIT Tahun 1; Harga Pasar Equity Tahun 1; Nilai Buku Hutang Tahun 1; Total aktiva Tahun 2; Modal kerja Tahun 2; Penjualan Tahun 2; Laba Di Tahan Tahun 2; EBIT Tahun 2; Harga Pasar Equity Tahun 2; Nilai Buku Hutang Tahun2;   Total aktiva Tahun 3; Modal kerja Tahun 3; Penjualan Tahun 3; Laba Di Tahan Tahun 3; EBIT Tahun 3; Harga Pasar Equity Tahun 3 dan Nilai Buku Hutang Tahun 3

·     2. Click tombol Analisa, maka analisa terhadap Tingkat Kesehatan Keuangan Tahun 1;  Tingkat Kesehatan Keuangan Tahun 2 danTingkat Kesehatan Keuangan Tahun 3 akan muncul.

Langkah-langkah Menyelesaikan Form

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label, Button  dan  Textbox.
• Ganti nama Textbox dan Button di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True 
• Click Kanan lalu pilih View Code kemudian buatlah Prosedure yang dilengkapi parameter, Pada Form Latihan 09 ini menggunakan rumus Z-score.  Rumus Z-score yaitu (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) dengan Kriteria lebih besar atau sama dengan  3.3 perusahaan Sehat, jika lebih besar atau sama dengan 1.81 maka perusahaan Waspada jika lebih besar atau sama dengan 0 maka perusahaan mengalami kesulitan.  Caranya:

Private Sub inna(ByVal apel As TextBox, ByVal jeruk As TextBox, ByVal anggur As TextBox, ByVal lengkeng As TextBox, ByVal lemon As TextBox, ByVal pear As TextBox, ByVal nanas As TextBox, ByVal nangka As TextBox)

   If (1.2 * Val(jeruk.Text) / Val(apel.Text)) + (1.4 * Val(lengkeng.Text) / Val(apel.Text)) + (3.3 * Val(lemon.Text) / Val(apel.Text)) + (0.6 * Val(pear.Text) / Val(nanas.Text)) >= 3.3 Then

     nangka.Text = "sehat"

   ElseIf (1.2 * Val(jeruk.Text) / Val(apel.Text)) + (1.4 * Val(lengkeng.Text) / Val(apel.Text)) + (3.3 * Val(lemon.Text) / Val(apel.Text)) + (0.6 * Val(pear.Text) / Val(nanas.Text)) >= 1.81 Then

     nangka.Text = "waspada"

   ElseIf (1.2 * Val(jeruk.Text) / Val(apel.Text)) + (1.4 * Val(lengkeng.Text) / Val(apel.Text)) + (3.3 * Val(lemon.Text) / Val(apel.Text)) + (0.6 * Val(pear.Text) / Val(nanas.Text)) >= 0 Then

     nangka.Text = "mengalami kesulitan"

   Else : nangka.Text = ""

   End If

End Sub

•  Kembali ke design Form Latihan 09, kemudian click double tombol Analisa, dan ketiklah scriptnya yaitu :

inna(Toak146110037, Moke146110037, Penj146110037, LDT146110037, ebit146110037, HPE146110037, NBH146110037, TKK146110037)

        inna(Toak246110037, Moke246110037, Penj246110037, LDT246110037, ebit246110037, HPE246110037, NBH246110037, TKK246110037)

        inna(Toak346110037, Moke346110037, Penj346110037, LDT346110037, ebit346110037, HPE346110037, NBH346110037, TKK346110037)