Latihan_09_36110029

v Deskripsi Latihan_09_36110029

Object Label

Terdapat 12 Label (yang bertuliskan Nama Perusahaan, Tahun1, Tahun2, Tahun3, Total Aktiva, Modal Kerja, Penjualan, Laba Ditahan, EBIT, Harga Pasar Equity, Nilai Buku Hutang, Tingkat Kesehatan Keuangan).

Object TextBox

Terdapat 25 Textbox  (yang terdiri dari 22 textbox berstatus input, 3 textbox berstatus read only).

Object Button

Terdapat satu object Button (yaitu Analisa). Button Analisa digunakan untuk menampilkan tingkat kesehatan keuangan perusahaan sesuai dengan nilai-nilai yang telah diinput.

Script Unique

Analisa_36110029_Click:

Hana(TA1_36110029, MK1_36110029, P1_36110029, LD1_36110029, EB1_36110029, HPE1_36110029, NBU1_36110029, TKK1_36110029)

Event

Analisa_36110029_Click

Property

Property TextBox ==> ReadOnly=True

v   Prosedur  Latihan_09_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_09_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_09_36110029
    Private Sub Hana(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox, ByVal D As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As TextBox, ByVal I As TextBox)
        If 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(F.Text) / Val(A.Text) + 0.6 * Val(G.Text) / Val(H.Text) >= 3.3 Then
            I.Text = "sangat sehat"
        ElseIf 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(F.Text) / Val(A.Text) + 0.6 * Val(G.Text) / Val(H.Text) >= 1.81 Then
            I.Text = "Waspada"
        ElseIf 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(F.Text) / Val(A.Text) + 0.6 * Val(G.Text) / Val(H.Text) >= 1.81 Then
            I.Text = "Mengalami Kesulitan"
        Else
            I.Text = ""
        End If
    End Sub

    Private Sub Analisa_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Analisis_36110029.Click
        Hana(TA1_36110029, MK1_36110029, P1_36110029, LD1_36110029, EB1_36110029, HPE1_36110029, NBU1_36110029, TKK1_36110029)
        Hana(TA2_36110029, MK2_36110029, P2_36110029, LD2_36110029, EB2_36110029, HPE2_36110029, NBU2_36110029, TKK2_36110029)
        Hana(TA3_36110029, MK3_36110029, P3_36110029, LD3_36110029, EB3_36110029, HPE3_36110029, NBU3_36110029, TKK3_36110029)
    End Sub
End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.