latihan_09_46110004

Deskripsi form latihan 09
Form Latihan 09 Terdapat tiga object yaitu label, textbox dan button

Object Label :
Dalam form latihan ini terdapat 12 buah label. Label-label tersebut bertuliskan Nama perusahaan, total aktiva, modal kerja, penjualan, laba ditahan, EBIT, harga pasar equity, nilai buku hutang, tingkat kesehatan keuangan, tahun 1, tahun 2 dan tahun 3.

Object Textbox:
Selain Object Label, dalam form ini terdapat 25 buah textbox ( 23 status input dan 3 status read only ) status input digunakan untuk memasukkan nama perusahaan, total aktiva, modal kerja, penjualan, laba ditahan, EBIT, harga pasar equity dan nilai buku hutang untuk tahun 1, tahun 2 dan tahun 3. Sedangkan status read only digunakan untuk menampilkan hasil perhitungan dari nilai yang diinput dari textbox yang berstatus input dan akan menampilkan analisa tingkat kesehatan keuangan perusahaan pada tahun 1, tahun 2 dan tahun 3.

Object Button :
Selain dua buah object diatas, terdapat juga 1 buah object button yang bertuliskan Analisa yang berfungsi untuk menjalankan perintah atau rumus yang telah dibuat .

Script Unique :
Script ini digunakan menghemat penulisan kode program, karena kode-kode program yang sama dibeberapa tempat cukup dibuat pada satu bagian saja. Selain itu, procedure akan memudahkan perbaikan kode program bila terjadi perubahan atau kesalahan, karena perbaikan cukup dilakukan pada satu bagian saja.

Private Sub parameter(ByVal ta As TextBox, ByVal mk As TextBox, ByVal pj As TextBox, ByVal ld As TextBox, ByVal eb As TextBox, ByVal hpe As TextBox, ByVal nbh As TextBox, ByVal tkk As TextBox)

Even :

ButtonClick

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah penyelesaian form latihan 9:

1. Buat design seperti gambar di bawah ini:

 2.Textbox yang berwarna putih menunjukkan textbox tresebut berstatus input sedangkan yang berwarna gelap itu berstatus read only. Beri nama setiap object yang ada kecuali object label. Setelah itu buat script sbb:

Public Class latihan_09_46110004

    Private Sub parameter(ByVal ta As TextBox, ByVal mk As TextBox, ByVal pj As TextBox, ByVal ld As TextBox, ByVal eb As TextBox, ByVal hpe As TextBox, ByVal nbh 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(eb.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbh.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(eb.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbh.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(eb.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbh.Text) >= 0 Then
            tkk.Text = "Mengalami Kesulitan"
        End If
    End Sub

    Private Sub a46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a46110004.Click
        parameter(ta1_46110004, mk1_46110004, pj1_46110004, ld1_46110004, eb1_46110004, hpe1_46110004, nbh1_46110004, tkk1_46110004)
        parameter(ta2_46110004, mk2_46110004, pj2_46110004, ld2_46110004, eb2_46110004, hpe2_46110004, nbh2_46110004, tkk2_46110004)
        parameter(ta3_4611000, mk3_46110004, pj3_46110004, ld3_46110004, eb3_46110004, hpe3_46110004, nbh3_46110004, tkk3_46110004)

    End Sub

End Class

3.Untuk menjalankan script di atas klik kanan pada nama project  anda lalu klik properties, setelah itu pilih form latihan 08 pada startup form. kemudian klik tombol play. Setelah itu masukkan nama perusahaan anda dan hal" yang harus di input pada textbox yang berstatus input, lalu klik tombol analisa maka program akan menganalisa tingkat kesehatan keuangan perusahaan anda.