Deskripsi Penyelesaian Latihan_09_36110041

Deskripsi Penyelesaian

Latihan_09_36110041

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"
RIZKA(TA1_36110041, MK1_36110041, PNJ1_36110041, LD1_36110041, EBIT1_36110041, HPQ1_36110041, NBH1_36110041, TKK1_36110041)       

C.     Even

RIZKA()

ANALISA_Click

D.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item è Add Windows Form

 

2.      Kemudian beri nama dan klik Add

3.      Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya

   4.    Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_09_36110041

    Private Sub RIZKA(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 = "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) >= 0 Then

            I.Text = "mengalami kesulitan"

        Else : I.Text = ""

        End If

    End Sub

    Private Sub ANALISA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA.Click

        RIZKA(TA1_36110041, MK1_36110041, PNJ1_36110041, LD1_36110041, EBIT1_36110041, HPQ1_36110041, NBH1_36110041, TKK1_36110041)

        RIZKA(TA2_36110041, MK2_36110041, PNJ2_36110041, LD2_36110041, EBIT2_36110041, HPQ2_36110041, NBH2_36110041, TKK2_36110041)

        RIZKA(TA3_36110041, MK3_36110041, PNJ3_36110041, LD3_36110041, EBIT3_36110041, HPQ3_36110041, NBH3_36110041, TKK3_36110041)

    End Sub

End Class36110041.TextChanged, NT4_36110041.TextChanged, AT4_36110041.TextChanged, NT5_36110041.TextChanged, AT5_36110041.TextChanged

        RIZKA()

    End Sub

End Class