Latihan_09_46110043

Deskripsi Form

Pada form Latihan_09  kita dapat menemukan tiga object, yaitu:

Object Label, Object TextBox dan Object Button

1. Object Label

    Pada form terdapat 12 buah label yang bertuliskan à Nama Perusahaan, Total Aktiva, Modal Kerja, Penjualan, Laba Ditahan, EBIT, Harga Pasar Equity, Nilai Buku Hutang, Tingkat Kesehatan Keuangan, Tahun I, Tahun II, dan Tahun III.

2. Object Textbox

    Pada form terdapat 25 textbox, 22 merupakan status input dan 3 diantaranya status ReadOnly. Object label yang ber Status input pada form ini digunakan untuk menginput nama perusahaan dan nilai item keuangan pada tahun I, II, III. Sedangkan status ReadOnly berfungsi untuk menampilkan hasil analisa tingkat kesehatan keuangan.

3. Object Button

   Pada form terdapat 1 object button yang bertuliskan Analisa. Tombol Analisa berfungsi un menampilkan hasil analisa tingkat kesehatan keuangan. Rumus perhitungannya (z-score) :

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 >= 3.3 Then Tingkat Kesehatan = "Sehat"

  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 >= 1.81 Then Tingkat Kesehatan = "Waspada"

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 >= 0 Then Tingkat Kesehatan = "Mengalami Kesulitan" 

Langkah-langkah menjalankan Form:

1. Input nama perusahaan dan data pada textbox Total Aktiva, Modal Kerja, Penjualan, Laba Ditahan, EBIT, Harga Pasar Equity, Nilai Buku Hutang dari perusahaan pada tahun I, tahun II, tahun III.

2. Klik Button Analisa, maka akan ditampilkan tingkat kesehatan keuangan perusahaan berdasarkan hasil analisa dari data perusahaan apakah Sehat, Waspada atau Mengalami Kesulitan.

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_09_46110043 tanpa mengubah ekstension file (vb)

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

4. Ubah object name menjadi singkatan yang mudah diingat sesuai dengan keinginan dan disertai Nim pada akhir nama.

5. Klik kanan Form, pilih View Code, lalu ketik script yang sesuai, lihat contoh dibawah ini:

Public Class Latihan_09_46110043

    Private Sub HITUNG(ByVal TOT As TextBox, ByVal MK As TextBox, ByVal JUAL As TextBox, ByVal LABA As TextBox, ByVal EBIT As TextBox, ByVal HPE As TextBox, ByVal NILAI As TextBox, ByVal TKK As TextBox)

        If 1.2 * Val(MK.Text) / Val(TOT.Text) + 1.4 * Val(LABA.Text) / Val(TOT.Text) + 3.3 * Val(EBIT.Text) / Val(TOT.Text) + 0.6 * Val(HPE.Text) / Val(NILAI.Text) >= 3.3 Then

            TKK.Text = "Sangat Sehat"

        ElseIf 1.2 * Val(MK.Text) / Val(TOT.Text) + 1.4 * Val(LABA.Text) / Val(TOT.Text) + 3.3 * Val(EBIT.Text) / Val(TOT.Text) + 0.6 * Val(HPE.Text) / Val(NILAI.Text) >= 1.81 Then

            TKK.Text = "Waspada"

        ElseIf 1.2 * Val(MK.Text) / Val(TOT.Text) + 1.4 * Val(LABA.Text) / Val(TOT.Text) + 3.3 * Val(EBIT.Text) / Val(TOT.Text) + 0.6 * Val(HPE.Text) / Val(NILAI.Text) >= 0 Then

            TKK.Text = "Mengalami Kesulitan"

        Else : TKK.Text = ""

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        HITUNG(A_46110043, B_46110043, C_46110043, D_46110043, E_46110043, F_46110043, G_46110043, THN1_46110043)

        HITUNG(H_46110043, I_46110043, J_46110043, K_46110043, L_46110043, M_46110043, N_46110043, THN2_46110043)

        HITUNG(P_46110043, Q_46110043, R_46110043, S_46110043, T_46110043, U_46110043, V_46110043, THN3_46110043)

    End Sub

End Class

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

Script Unique

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        HITUNG(A_46110043, B_46110043, C_46110043, D_46110043, E_46110043, F_46110043, G_46110043, THN1_46110043)

--> analisa diatas sebagai parameter yang digunakan dalam menjalankan rumus Z-score untuk menampilkan hasil (tingkat kesehatan keuangan).

Even

ButtonClick

Property

Property TextBox --> ReadOnly = True