Deskripsi dan Prosedur Latihan_09_36110039

     Deskripsi Form Latihan_09_36110039

Terdapat tiga object yaitu label, textbox, dan button:

1.    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 keuangan).

2.    Object TextBox
Terdapat dua puluh lima textbox (dua puluh dua status input; tiga status read only). Status input digunakan untuk memasukkan angka yang akan dimasukkan dalam perhitungan. Status Read Only digunakan untuk menampilkan hasil perhitungan dari angka-angka yang telah diinput.

3.      Object Button
Terdapat satu object button (Analisa). Button Analisa digunakan untuk menampilkan tingkat kesehatan keuangan perusahaan.



     Script Unique
Pada saat call Prosedur
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"

Untuk Button Analisa
hilda(ta1_36110039, mk1_36110039, pen1_36110039, LD1_36110039, ebit1_36110039, hpe1_36110039, NBH1_36110039, tkk1_36110039)

     Even
anal_36110039_Click

     Property
Property TextBox ==> ReadOnly=True

Prosedur menjalankan Latihan_09_36110039:

1.    Klik Start dan pilih Microsoft Visual Studio 2008.
      

2.    Klik menu file dan pilih New Project.
      

3.    Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.
      

4.    Klik menu view dan pilih toolbox.
      

5.    Kemudian pilih object Label dan buat sebanyak 12. Pada properti text masing-masing label, isilah kalimat berikut: nama perusahaan, tahun I, tahun II, tahun III, total aktiva, modal kerja, penjualan, laba ditahan, EBIT, harga pasar equity, nilai buku hutang, tingkat kesehatan keuangan
   
6.    Kemudian pilih object textbox dan buat sebanyak 25 (dua puluh dua status input; tiga status read only).

7.    Kemudian pilih object Button dan buat sebanyak 1. Isi properti text menjadi Analisa, lalu properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.


8.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
      


9.    Berikut ini adalah rumus untuk menjalankan form di atas:

Private Sub hilda(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 anal_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anal_36110039.Click
hilda(ta1_36110039, mk1_36110039, pen1_36110039, LD1_36110039, ebit1_36110039, hpe1_36110039, NBH1_36110039, tkk1_36110039)
hilda(ta2_36110039, mk2_36110039, pen2_36110039, LD2_36110039, ebit2_36110039, hpe2_36110039, nbh2_36110039, tkk2_36110039)
hilda(ta3_36110039, mk3_36110039, pen3_36110039, LD3_36110039, ebit3_36110039, hpe3_36110039, nbh3_36110039, tkk3_36110039)
 End Sub

10.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging dan isi kolom yang perlu diisi dan klik tombol Analisa untuk mengetahui fungsi dan hasilnya.