Latihan_09_36110033

Latihan_09_36110033

A.    Object-object dalam Latihan_09_36110033:

          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 dan tiga status read only. Status input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan. Status Read Only digunakan untuk menampilkan hasil perhitungan dari angka-angkat yang sudah diinput.

            3.      Object Button

Terdapat satu object button yang nama text Analisa. Button Analisa digunakan untuk menampilkan tingkat kesehatan keuangan perusahaan sesuai dengan nilai-nilai yang telah diinput.

B.     Script Unique

Untuk button Analisa:

ILHA(TA1_36110033, TM1_36110033, TP1_36110033, TL1_36110033, TE1_36110033, TH1_36110033, TNB1_36110033, TTK1_36110033)

ILHA(TA2_36110033, TM2_36110033, TP2_36110033, TL2_36110033, TE2_36110033, TH2_36110033, TNB2_36110033, TTK1_36110033)

ILHA(TA3_36110033, TM3_36110033, TP3_36110033, TL3_36110033, TE3_36110033, TH3_36110033, TNB3_36110033, TTK3_36110033)

C.    Even

Private Sub ILHA

ANALISA_36110033_Click

D.    Property

Property TextBox ==> ReadOnly=True

Prosedur

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

1.    Buka Ms. Visual Studio

2.    Lalu akan muncul jendela awal Microsoft Visual Studio

3.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project

4. Buat text pada form dengan menggunakan label, sebanyak 12 label. Dengan nama text masing-masing bernama nama perusahaan, tahun 1, tahun II, tahun III, total aktiva, modal kerja, penjualan, laba ditahan, ebit, harga pasar equity, nilai buku hutang, dan tingkat kesehatan keuangan.

5. Buat kolom sesuai dengan design pada latihan 09 dengan mengguanakan textbox,  sebanyak 25 kolom. Nama textbox diisi dengan identitas apa saja yang kemudian diikuti nomor stambuk. 22 textbox menggunakan readonly false dan selebihnya menggunakan readonly true.

6.  Buat 1 tombol sesuai dengan design pada latihan 09 dengan menggunakan button. Kemudian beri nama text analisa kemudian  beri nama apa saja yang anda inginkan atau analisa_36110033. Adapun posisi text, kolom lebel dan tombol button disesuai dengan design pada latihan 09 berikut:

7.      Untuk menuliskan rumus pada latihan 09, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_09_36110033

    Private Sub ILHA(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 = "SANGAT 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 = "Tanpa STATUS"

 End If

 End Sub

Untuk rumus analisa:

    Private Sub ANALISA_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA_36110033.Click

ILHA(TA1_36110033, TM1_36110033, TP1_36110033, TL1_36110033, TE1_36110033, TH1_36110033, TNB1_36110033, TTK1_36110033)

 ILHA(TA2_36110033, TM2_36110033, TP2_36110033, TL2_36110033, TE2_36110033, TH2_36110033, TNB2_36110033, TTK1_36110033)

 ILHA(TA3_36110033, TM3_36110033, TP3_36110033, TL3_36110033, TE3_36110033, TH3_36110033, TNB3_36110033, TTK3_36110033)

    End Sub

End Class

8.    Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

9.      Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 09 selesai.