Latihan_09_46110027

Deskripsi from

 Object Label

Pada form latihan 09 terdapat 12 label (perusahaan, total aktiva, modal kerja, penjualan, laba ditahan, ebit, harga pasar equity, nilai buku hutang, tingkat kesehatan keuangan, tahun I, tahun II dan tahun III).

Object Textbox

Pada form ini terdapat juga 16 textbox (12 status input, 4 berstatus read only dan have a scrollbar(vertikal)). Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan sedangkan status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Object Button

Terdapat 1 object button (analisa). Tombol analisa digunakan untuk menampilkan hasil analisa data yang telah diinput sebelumnya pada textbox berstatus input. Pada tombol ini terdapat rumus

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

Script Unique

Terdapat Script unik pada form ini yaitu RSTY(TA1_46110027, MK1_46110027, P1_46110027, LD1_46110027, EB1_46110027, HPE1_46110027, NB1_46110027, TK1_46110027) script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut. Urutan text box nya harus sama dengan urutan yang ada di prosedure.

Even

Button click

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah membuat Latihan 09

  1.Buka Project yang telah dibuat sebelumnya, laluPilih menu Project dan klik add windows form

                                                                                                                                                                        

  2.Ketik nama latihan_09  yang akan dibuat pada kotak “NAME” lalu pilih “add”

  3.Buatlah desain seperti berikut menggunakan toolbox

  4.Pilih menu “view” klik  “code”

                                                                                                                                                                   

   5.  Masukkan rumus berikut:

Public Class Latihan_09_46110027

    Private Sub RSTY(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 ANALISA_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA_46110027.Click

        RSTY(TA1_46110027, MK1_46110027, P1_46110027, LD1_46110027, EB1_46110027, HPE1_46110027, NB1_46110027, TK1_46110027)

        RSTY(TA2_46110027, MK2_46110027, P2_46110027, LD2_46110027, EB2_46110027, HPE2_46110027, NB2_46110027, TK2_46110027)

        RSTY(TA3_46110027, MK3_46110027, P3_46110027, LD3_46110027, EB3_46110027, HPE3_46110027, NB3_46110027, TK3_46110027)

    End Sub

End Class

Langkah – Langkah Menjalankan Form 09

     1. Pertama Klik start debugging.

     2.  Lalu, Isi textbox yang berstatus input sesuai dengan angka yang anda inginkan,

            3. Untuk mengetahui hasil perhitungan dari angka yang anda masukkan, klik tombol “ANALISA”