Latihan_09_46110001

A.    Object-object dalam Latihan_09_46110001 :  

  1  Object Label

pada form latihan 09 Terdapat dua belas label yang bertuliskan: nama perusahaan, total aktiva,modal kerja, penjualan,laba ditahan, EBIT, harga pasar equity, nilai buku utang,tingkat kesehatann keuangan.

  2. Object Textbox

selain itu object texbox pada form ini Terdapat dua puluh lima textbox, diantaranya 22 yang berstatus input; dan 3 yang  berstatus read only. texbox yang berstatus input digunakan untuk memasukkan angka dan string yang akan dimasukkan dalam perhitungan. sedangkan texbox yang berstatus Read Only digunakan untuk menampilkan hasil  dari angka-angka dan string yang sudah diinput .

  3.Object Button

pada form ini Terdapat satu object button yaitu (object analisa). pada object ini terdapat  fungsi  z-score yaitu

   ==> z-score=(1,2 * modal kerja/total aktiva)+(1,4*lba ditahan/total aktiva)+(3,3*ebit/total aktiva)+(0,6*Harga pasar equity/Nilai buku hutang)

B.     Script Unique

 parameter (TA1_46110001, MK1_46110001, P1_46110001, LD1_46110001, EB1_46110001, HPE1_46110001, NBU1_46110001, TKK1_46110001) . script ini digunakan sebagai data dari fungsi prosedure yang telah di buat. urutan text box nya harus sama dengan urutan yang ada di prosedure.

     C.     Even

 ANALIS_46110001.Click/ button Click

     D.    Property

Property TextBox ==> ReadOnly=True 

LANGKAH-LANGKAH   PENYELESAIAN

1. Langkah pertama dalam membuat form/ latihan 09 ialah, pada desktop anda, pilih microsoft visual studio 2008.seperti pada langkah dibawah ini
2. Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini
3. Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan   
4. atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 
5. Buatlah form seperti gambar dibawah ini, dengan cara, pilih toolbox kemudian pada toolbox tersebut pilih dan buat label sebanyak 12 label,(kotak yang berwarna kuning adalah label) dan texbox sebanyak 25(kotak yang pinggirannya berwarna merah adalah texbox). 3 diantaranya berstatus readonly, yaitu klom texbox disamping tingkat kesehatan keuangan. serta buat form button (button analisa) untuk menampilkan hasil dari texbox yang tel;ah di isi
   
   
   
   
6. Setelah itu buatlah rumus untuk menjalankan form tersebut. Sperti rumus dibawah ini.(rumus dibawah ini merupakan rumus untuk menjalankan form diatas)           Public Class Latihan_09_46110001
   
       Private Sub parameter(ByVal ta As TextBox, ByVal mk As TextBox, ByVal p As TextBox, ByVal ld As TextBox, ByVal ebit As TextBox, ByVal hpe As TextBox, ByVal nbu As TextBox, ByVal tkk As TextBox)
           If 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 3.3 Then
               tkk.Text = "Sangat Sehat"
           ElseIf 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 1.81 Then
               tkk.Text = "Waspada"
           ElseIf 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 0 Then
               tkk.Text = "Mengalami Kesulitan"
           Else : tkk.Text = ""
           End If
       End Sub
   
   
       Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALIS_46110001.Click
           parameter(TA1_46110001, MK1_46110001, P1_46110001, LD1_46110001, EB1_46110001, HPE1_46110001, NBU1_46110001, TKK1_46110001)
           parameter(TA2_46110001, MK2_46110001, P2_46110001, LD2_46110001, EB2_46110001, HPE2_46110001, NBU2_46110001, TKK2_46110001)
           parameter(TA3_46110001, MK3_46110001, P3_46110001, LD3_46110001, EB3_46110001, HPE3_46110001, NBU3_46110001, TKK3_46110001)
       End Sub
   End Class
7.  jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini
8. langkah selanjutnya adalah Isi text box yang berstatus input, sesuai dengan  yang anda inginkan, setelah itu klik button analisa maka Hasil akan muncul sendri setelah anda mengisi textbox input.  
9.  Untuk menutup klik close.