latihan_09_36110040

Deskripsi Form Latihan_09_36110040 Terdapat tiga object yaitu label, textbox, dan button:

Object Label

Terdapat dua belas 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 bunga)

Object Text Box

Terdapat dua puluh lima textbox (dua puluh dua status input; tiga status readonly). Status input digunakan untuk memasukkan nilai yang akan diperhitungkan. Sedangkan status ReadOnly digunakan untuk menghasilkan angka-angka yang telah di input.

Object Button

Terdapat satu object button yaitu Analisa digunakan untuk menampilkan tingkat kesehatan keuangan perusahaan sesuai nilai yang telah di input.

Script Unique

rahmi(TA1_36110040, MK1_36110040, PJ1_36110040, LD1_36110040, EB1_36110040, HPE1_36110040, NB1_36110040, TKK1_36110040)

Even

Analisa_36110031_Click

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah Penyelesaian Latihan_09_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_09 dan add.

4.      Buat Form Latihan_09 dibawah ini:

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_09_36110040

    Private Sub rahmi(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) + 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) + 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) + 0.6 * Val(G.Text) / Val(H.Text))) >= 0 Then

            I.Text = "MENGALAMI KESULITAN"

        End If

    End Sub

    Private Sub ANALISA_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA_36110040.Click

        rahmi(TA1_36110040, MK1_36110040, PJ1_36110040, LD1_36110040, EB1_36110040, HPE1_36110040, NB1_36110040, TKK1_36110040)

        rahmi(TA2_36110040, MK2_36110040, PJ2_36110040, LD2_36110040, EB2_36110040, HPE2_36110040, NB2_36110040, TKK2_36110040)

        rahmi(TA3_36110040, MK3_36110040, PJ3_36110040, LD3_36110047, EB3_36110040, HPE3_36110040, NB3_36110040, TKK3_36110040)

End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

8.      Selesai.