Latihan_09_46110045

Deskripsi :

Form 9 ada  3 object yaitu label, textbox, dan button.

Object label : 

        Terdapat 12 label yang bertuliskan nama perusahaan, tahun I, tahun II, tahun III, total aktiva, modal kerja, penjualan, laba ditahan, EBIT, harga pasar equity, nilai buku hutang, dan tingkat kesehatan keuangan).

        

        Object textbox :

        Ada 25 textbox. Status input digunakan untuk menginput data. Status Read Only digunakan untuk menampilkan hasilnya.

        Object Button :

Ada 1 button yaitu analisa. Pada button analisa, terdapat fungsi dari z-score

==> 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).

Cara membuat form 9 :

Masukkan rumus seperti ini

Public Class Latihan_09_46110045
    Private Sub dina(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox, ByVal D As TextBox, ByVal E1 As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As TextBox)
        If 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(E1.Text) / Val(A.Text) + 0.6 * Val(F.Text) / Val(G.Text) >= 3.3 Then
            H.Text = "SEHAT"
        ElseIf 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(E1.Text) / Val(A.Text) + 0.6 * Val(F.Text) / Val(G.Text) >= 1.81 Then
            H.Text = "WASPADA"
        ElseIf 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(E1.Text) / Val(A.Text) + 0.6 * Val(F.Text) / Val(G.Text) >= 0 Then
            H.Text = "MENGALAMI KESULITAN"
        End If
    End Sub

    Private Sub an46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles an46110045.Click
        dina(tkk146110045, mk146110045, pj146110045, ld146110045, eb146110045, hpe146110045, nbh146110045, tkk146110045)
        dina(tkk246110045, mk246110045, pj246110045, ld246110045, eb246110045, hpe246110045, nbh246110045, tkk246110045)
        dina(tkk346110045, mk346110045, pj346110045, ld346110045, eb346110045, hpe346110045, nbh346110045, tkk346110045)
    End Sub

End Class

Even :

Button click.

Script unique :

Private Sub dina(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox, ByVal D As TextBox, ByVal E1 As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As TextBox) => maksudnya adalah agar procedure dapat dijalankan dengan menggunakan fungsi ini.

Langkah-langkah mengerjakan form 9 :

1. Isilah textbox-textbox yang ada.

2. Klik analisa lalu seluruh hasilnya akan muncul.