Latihan_9_36110052

Latihan_09_36110052

A.    Object-object dalam Latihan_09_36110052 :

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 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 (Analisa). Button Analisa digunakan untuk menampilkan tingkat kesehatan keuangan perusahaan sesuai dengan nilai-nilai yang telah diinput.

B.     Script Unique

Untuk button Analisa

VIA(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox, ByVal D As TextBox, ByVal E As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As Tex)

C.     Even

ANALISA_36110052_Click

D.    Property

Property TextBox ==> ReadOnly=True

Langkah-langkah kerja  latihan_9_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_9_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Buat 12 label dengan menggunakan toolbox dan ubah textnya menjadi nama perusahaan,tahun I,tahun II,tahun III dst sesuai denga gambar di atas.

4.      Buat 22 textbox dan berikan nama masing-masing textbox tersebut,contoh saya berikan nama:

Textbox1_36110052 sampai textbox21_36110052 dan NP_36110052

5.      Buat 4 lagi textbox tetapi ubah statusnya menjadi read only, caranya klik kanan àproperties àcari kalimat read only dan ubah statusnya menjadi false

6.       berikan nama masing-masing textbox diatas. Contoh saya berikan nama :

AKK1_36110052, AKK2_36110052, AKK3_36110052

7.      Buat satu button dan ubah textnya menjadi Analisa

8.      Berikan nama button tersebut,contoh saya berikan nama analisa_36110052

9.      Setelah selesai form, masuk ke lembar Vb dan masukkan script:

Private Sub VIA(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox, ByVal D As TextBox, ByVal E As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As TextBox)

If 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(E.Text) / Val(A.Text) + 0.6 * Val(E.Text) / Val(A.Text) + 0.6 * Val(F.Text) / Val(G.Text) >= 3.3 Then

            H.Text = "SANGAT SEHAT"

 ElseIf 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(E.Text) / Val(A.Text) + 0.6 * Val(E.Text) / Val(A.Text) + 0.6 * Val(F.Text) / Val(G.Text) >= 1.81 Then

            H.Text = "WASPADA"

 

elseseIf 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(E.Text) / Val(A.Text) + 0.6 * Val(E.Text) / Val(A.Text) + 0.6 * Val(F.Text) / Val(G.Text) >= 0 Then

            H.Text = "MENGALAMI KESULITAN"

    End If

    End Sub

    Private Sub ANALISA_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA_36110052.Click        VIA(TextBox1_36110052, TextBox2_36110052, TextBox3_36110052, TextBox4_36110052, TextBox5_36110052, TextBox6_36110052, TextBox7_36110052, AKK1_36110052)

VIA(TextBox8_36110052, TextBox9_36110052, TextBox10_36110052, TextBox11_36110052, TextBox12_36110052, TextBox13_36110052, TextBox14_36110052, AKK2_36110052)

VIA(TextBox15_36110052, TextBox16_36110052, TextBox17_36110052, TextBox18_36110052, TextBox19_36110052, TextBox20_36110052, TextBox21_36110052, AKK3_36110052)

End Sub

End Class

10.  Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

11.  Selesai