Latihan_09_46110002

Object Label

Terdapat 12 object 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, Tingkat Kesehatan Keuangan).

Object Textbox

Terdapat 25 textbox (22 status input; 3 status read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil dari fungsi yang telah dikerjakan.

Object Button

Terdapat 1 object button (Analisa). Button Analisa digunakan untuk menampilkan tingkat kesehatan keuangan perusahaan sesuai dengan nilai-nilai yang telah diinput/menggunakan funsi 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). Jika nialinya :

3,3 maka sehat

>= 1.81 waspada

>= 0 mengalami kesulitan

Sscript Unique

parameter(TA1_46110002, MK1_46110002, PJ1_46110002, LD1_46110002, E1_46110002, HPE1_46110002, NBH1_46110002, TKK1_46110002),,,, script ini digunakan sebagai data dari fungsi prosedur yang telah dibuat.

Pproperty

Property TextBox ==> ReadOnly=True

2.Cara membuat from

a.       Klik Start lalu pilih Microsoft Visual Studio 2008

b.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini. Klik 2 untuk membuka folder

c.       Lalu pilih Project dan pilih add windows from

d.      Kemudian buat form dan add

e.      Buat desain seperti dibawah ini dgn menggunakan toolbox

f.       Berikut ini adalah rumus untuk menjalankan form di atas

 Public Class Latihan_09_46110002

    Private Sub parameter(ByVal ta As TextBox, ByVal mk As TextBox, ByVal pj As TextBox, ByVal ld As TextBox, ByVal e As TextBox, ByVal hpe As TextBox, ByVal nbh 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(e.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbh.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(e.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbh.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(e.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbh.Text) >= 0 Then
            tkk.Text = "Mengalami Kesulitan"
        End If
    End Sub

    Private Sub Analisa_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Analisa_46110002.Click
        parameter(TA1_46110002, MK1_46110002, PJ1_46110002, LD1_46110002, E1_46110002, HPE1_46110002, NBH1_46110002, TKK1_46110002)
        parameter(TA2_46110002, MK2_46110002, PJ2_46110002, LD2_46110002, E2_46110002, HPE2_46110002, NBH2_46110002, TKK2_46110002)
        parameter(TA3_46110002, MK3_46110002, PJ3_46110002, LD3_46110002, E3_46110002, HPE3_46110002, NBH3_46110002, TKK3_46110002)
      
    End Sub
End Class

Langkah untuk menjalankan from

1.      Klik start debugging

2.      Isi text box yang berstatus input sesuai dengan angka dan data yang dipilih

3.      Klik tombol analisa maka hasil akan muncul