Latihan_09_46110009

Latihan_09_46110009

 

A.     Form Latihan_09  terdapat tiga object yaitu Label, Textbox, dan Button:      

=          ==>Object Label

Terdapat  dua belas  label (yang bertuliskan; Nama Perusahaan, Total Aktiva, Modal kerja, Penjualan, Laba Ditahan, Ebit, Harga Pasar Equity, Nilai Buku Hutang, Tingkat kesehatan Keuangan, Tahun 1, Tahun 2, Tahun 3)

            ==>Object Text Box

Terdapat dua puluh lima  textbox (dua puluh dua status input dan tiga status read only). Status input digunakan untuk memasukkan data Nama Perusahaan, Total Aktiva, Modal kerja, Penjualan, Laba Ditahan, Ebit, Harga Pasar Equity, Nilai Buku Hutang tiap tahun. Status Read Only digunakan untuk menampilkan hasil perhitungan Tingkat kesehatan Keuangan tiap tahun.

            ==>Object Button

Terdapat satu object button (Analisa) yang digunakan untuk menampilkan hasil perhitungan Tingkat kesehatan Keuangan tiap tahun( tahun 1, tahun 2, tahun 3).

B.     Script Unique 

Untuk Buttom "Analisa"
ULHY(TA146110009, MK146110009, P146110009, LD146110009, EBIT146110009, HPE146110009, NBU146110009, TKK146110009)

C.     Even

ULHY()

ANALISA_Click

D.     Property

Property TextBox ==> ReadOnly=True

Rumus 

Public Class Latihan_09_46110009
    Private Sub ULHY(ByVal ta As TextBox, ByVal mk As TextBox, ByVal p As TextBox, ByVal ld As TextBox, ByVal ebit As TextBox, ByVal hpe As TextBox, ByVal nbu As TextBox, ByVal tkk As TextBox)
        If 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 3.3 Then
            tkk.Text = "Sangat Sehat"
        ElseIf 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 1.81 Then
            tkk.Text = "Waspada"
        ElseIf 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.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
        ULHY(TA146110009, MK146110009, P146110009, LD146110009, EBIT146110009, HPE146110009, NBU146110009, TKK146110009)
        ULHY(TA246110009, MK246110009, P246110009, LD246110009, EBIT246110009, HPE246110009, NBU246110009, TKK246110009)
        ULHY(TA346110009, MK346110009, P346110009, LD346110009, EBIT346110009, HPE346110009, NBU346110009, TKK346110009)
    End Sub
End Class