Latihan 09

Deskripsi Form

1. objek label
terdapat dua belas label (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)

2. objek textbox
terdapat 25 textbox di dalam form ini. dimana 3 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan hasil analisa tingkat kesehatan keuangan perusahaan pada tahun 1, tahun 2, dan tahun 3 dengan menggunakan rumus Z-Score. nilai-nilai yang digunakan untuk menghitung Z-Score diambil dari textbox yang berstatus input.

3. objek button
terdapat satu buah  button pada form ini. button ini diisi dengan script code yang dapat menjalankan rumus Z-Score serta menganalisa tingkat kesehatan keungan perusahaan.

Scirpt Unik :
Private Sub parameter(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)

==> scipt diatas adalah fungsi Private Sub yang diisi dengan parameter tertentu. parameter ini diumpamakan adalah variabel textbox anda. ini bertujuan agar penulisan scipt dapat dipersingkat.
even :
ButtonClick

property :
property textbox ==> ReadOnly = True 

pembuatan form 
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

3. klik kanan pada form anda, lalu pilih view code. masukkan fungsi Private Sub kedalam form anda. contohnya seperti scrpt berikut :
Private Sub parameter(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

5. selanjutnya anda tinggal mengisi script code untuk button. contohnya seperti berikut :

 parameter(ta1_46110008, mk1_46110008, p1_46110008, ld1_46110008, ebit1_46110008, hpe1_46110008, nbu1_46110008, tkk1_46110008)

 parameter(ta2_46110008, mk2_46110008, p2_46110008, ld2_46110008, ebit2_46110008, hpe2_46110008, nbu2_46110008, tkk2_46110008)

 parameter(ta3_46110008, mk3_46110008, p3_46110008, ld3_46110008, ebit3_46110008, hpe3_46110008, nbu3_46110008, tkk3_46110008)

6. jika sudah anda tinggal menjalankannya dengan menekan tombol debug untuk menjalankan