Latihan_09_46110024

DESKRIPSI FORM LATIHAN 9

Form latihan 9 terdapat tiga object yaitu label, textbox, dan button 

Object Label

Terdapat  dua belas label ( yang bertuliskan 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)

Object  Textbox

Terdapat dua puluh lima textbox (dua puluh dua berstatus input digunakan untuk memasukkan data  sedangkan tiga berstatus readonly digunakan untuk ,menampilakan analisa z-scorenya

Object Button

Terdapat satu button yang bertuliskan analisa digunakan untuk menampilkan  analisa z-score dengan rumus:

 1,2 x Modal Kerja / Total Aktiva + 1,4 x  Laba Ditahan / Total Aktiva + 3.3 x Ebit / Total Aktiva +

 0.6 x Harga Pasar Equity / Nilai Buku Hutang

Dengan syarat :

·         Jika hasilnya >= 3,3 maka “ Sangat Sehat”

·         Jika hasilnya >= 1,8 maka “Waspada”

·         Jika hasilnya >=0 maka “Mengalami Kesulitan”

 Script Unique

    Private Sub parameter(ByVal ta As TextBox, ByVal mk As TextBox, ByVal pj As TextBox, ByVal ld As TextBox, ByVal eb As TextBox, ByVal hpe As TextBox, ByVal nbh As TextBox, ByVal tkk As TextBox)

Scrift ini digunakan  sebagai prosedur  yang dapat digunakan saat fungsi itu ingin digunakan tanpa mengulangi rumus yang sama yang ada dalam prosedur tersebut. Urutan yang ada dalam prosedur harus sama dengan urutan textbox dalam form.

Even

ButtenClick

Property

Property Textbox --> Readonly = True

Langkah-langkah Membuat Form Latihan 9

1.      Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form 

2. Ganti nama sesuai dengan nama yang anda inginkan

              3. Lalu pilih object yang ada di latihan 9  yaitu label,textbox dan button

 

        4. Buat form sampai menghasilkan form seperti di bawah ini

        5.  Pilih menu view, click code

          6. Masukkan scrift seperti berikut :

             

              Public Class Latihan_09_46110024

    Private Sub parameter(ByVal ta As TextBox, ByVal mk As TextBox, ByVal pj As TextBox, ByVal ld As TextBox, ByVal eb 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(eb.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(eb.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(eb.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_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Analisa_46110024.Click
        parameter(ta1_46110024, mk1_46110024, pj1_46110024, ld1_46110024, e1_46110024, hpe1_46110024, nbh1_46110024, tkk1_46110024)
        parameter(ta2_46110024, mk2_46110024, pj2_46110024, ld2_46110024, e2_46110024, hpe2_46110024, nbh2_46110024, tkk2_46110024)
        parameter(ta3_46110024, mk3_46110024, pj3_46110024, ld3_46110024, e3_46110024, hpe3_46110024, nbh3_46110024, tkk3_46110024)
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan  9

1.      Input data pada textbox yang berstatus input

2.      Click Button yang bertuliskan “ Analisa”, maka program akan menampilkan hasil analisa z-score