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)