Latihan_09_36110031

Tahap 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. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_09 dibawah ini:

 

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_09_36110031

    Private Sub Audry(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_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Analisa_36110031.Click

        Audry(Aktiva1_36110031, Modal1_36110031, Penj1_36110031, Laba1_36110031, ebit1_36110031, Hargapasar1_36110031, Hutang1_36110031, bunga1_36110031)

        Audry(Aktiva2_36110031, Modal2_36110031, Penj2_36110031, Laba2_36110031, ebit2_36110031, Hargapasar2_36110031, Hutang2_36110031, bunga2_36110031)

        Audry(Aktiva3_36110031, Modal3_36110031, Penj3_36110031, Laba3_36110031, ebit3_36110031, Hargapasar3_36110031, Hutang3_36110031, bunga3_36110031)

    End Sub

End Class

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

 

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

 

8.      Selesai.

   

Deskripsi Latihan_09_36110031

Form Latihan 09 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 TextBox

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

Untuk Button Analisa:

Audry(Aktiva1_36110031, Modal1_36110031, Penj1_36110031, Laba1_36110031, ebit1_36110031, Hargapasar1_36110031, Hutang1_36110031, bunga1_36110031)

Even

Analisa_36110031_Click

Property

Property TextBox  ==> ReadOnly = True