Deskripsi
Form Latihan_09_46110003
Form Latihan_09_36110037
terdapat tiga object yaitu Label, textbox, dan button.
Object Label
Object Label
Terdapat dua belas label yang
bertuliskan “Nama Perusahaan”, “Total Aktiva”, “Modal Kerja”, “Penjualan”, “Laba
Ditahan”, “Ebit”, “Harga Pasar Equity”, “Nilai Buku Hutang”, “Tingkat Kesehatan
Keuangan”, “Tahun I”, “Tahun II”, “Tahun III”.
Object Textbox
Terdapat dua lima textbox yang
terdiri dari 22 textbox yang berstatus input dan 3 textbox berstatus read only.
Object Button
Terdapat satu object button
yang bernama "Analisa"
Script Unique
If 1.2 *
Val(ta.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"
==>menggunakan
fungsi Z-Score
parameter(th1tb1_46110003, th1tb2_46110003, th1tb3_46110003,
th1tb4_46110003, th1tb5_46110003, th1tb6_46110003, th1tb7_46110003,
th1tb8_46110003)
==>maksudnya sebagai data dari fungsi prosedur yang telah dibuat. Urutan
textbox harus sama dengan urutan yang ada pada prosedur
Event
Buttonclick
Property
Property textbox:
Readonly = True
Property
Property textbox:
Readonly = True
Langkah-langkah
penyelesaian
11. Buat Form Desain terlebih dahulu,
seperti contoh dibawah:
Kolom yang berwarna biru berisikan “Label”, kolom yang
berwarna hitam berisikan “Textbox”, dan kolom yang berwarna merah berisikan “Button”.
22. Masukkan rumus
Public NotInheritable Class
Latihan_09_46110003
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(ta.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(ta.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(ta.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"
End If
End Sub
Private Sub Analisa46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Analisa46110003.Click
parameter(th1tb1_46110003,
th1tb2_46110003, th1tb3_46110003, th1tb4_46110003, th1tb5_46110003,
th1tb6_46110003, th1tb7_46110003, th1tb8_46110003)
parameter(th2tb1_46110003,
th2tb2_46110003, th2tb3_46110003, th2tb4_46110003, th2tb5_46110003,
th2tb6_46110003, th2tb7_46110003, th2tb8_46110003)
parameter(th3tb1_46110003,
th3tb2_46110003, th3tb3_46110003, th3tb4_46110003, th3tb5_46110003,
th3tb6_46110003, th3tb7_46110003, th3tb8_46110003)
End Sub
End Class
33. Jalankan program
0 komentar:
Posting Komentar