Latihan_09_36110038

Deskripsi Latihan_09_36110038

Form Latihan_09 terdapat tiga object yaitu Label, Textbox, dan Button:

Object Label

Terdapat dua belas label (yang bertuliskan Nama Perusahaan; Tahun1; Tahun2; Tahun3; Total Aktiva; Modal Kerja; Penjualan; Laba ditahan; EBIT; Harga Paras Ekuitas; Nilai Buku Hutang; dan Tingkat Kesehatan Keuangan)

Object Text Box

Terdapat dua pulih lima textbox (dua puluh dua status input; tiga status read only). Status input digunakan untuk memasukkan nilai/text Nama Perusahaan; Tahun1; Tahun2; Tahun3; Total Aktiva; Modal Kerja; Penjualan; Laba ditahan; EBIT; Harga Paras Ekuitas dan Nilai Buku Hutang. Status ReadOnly digunakan untuk menampilkan hasil perhitungan dari rumus Tingkat Kesehatan Keuangan Perusahaan. 

Object Button

Terdapat satu object button (Analisa). Tombol Hitung digunakan untuk menampilkan hasil perhitungan di object TextBox ReadOnly. Rumus perhitungannya yaitu (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)).

Script Unique 

Button "Analisa" (ANALISA_36110038)
widhe(TA1_36110038, MK1_36110038, P1_36110038, LDT1_36110038, EBIT1_36110038, HPE1_36110038, NBH1_36110038, TKK1_36110038)

Even

ANALISA_36110038.Click

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_09_36110038 sesuai form dibawah ini.

4.      Ganti nama textbox dan button menggunakan "Properties Window" sesuai dengan yang diinginkan.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_09

Public Class Latihan_09_36110038

    Private Sub widhe(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 ANALISA_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA_36110038.Click

        widhe(TA1_36110038, MK1_36110038, P1_36110038, LDT1_36110038, EBIT1_36110038, HPE1_36110038, NBH1_36110038, TKK1_36110038)

        widhe(TA2_36110038, MK2_36110038, P2_36110038, LDT2_36110038, EBIT2_36110038, HPE2_36110038, NBH2_36110038, TKK2_36110038)

        widhe(TA3_36110038, MK3_36110038, P3_36110038, LDT3_36110038, EBIT3_36110038, HPE3_36110038, NBH3_36110038, TKK3_36110038)

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.