Deskripsi
penyelesaian
Form
Latihan_09_36110034
terdapat tiga object yaitu Label,
Textbox, dan Button:
Object Label
Terdapat duabelas label (yang bertuliskan nama perusahaan; tahun1; tahun2; tahun3; total aktiva; modal kerja;
penjualan; laba di tahan; EBIT; harga
pasar equity; nilai buku hutang; tingkat kesehatan keuangan.)
Terdapat dua puluh lima textbox (dua puluh dua status
input; tiga
status read only).
Status input
digunakan untuk memasukkan data pada
textbox (nama perusahaan; tahun1; tahun2; tahun3; total aktiva; modal kerja;
penjualan; laba di tahan; EBIT; harga
pasar equity; nilai buku hutang.).dan status readonly pada
textbox(tingkat kesehatan keuangan) akan menampilkan hasil analisa pada perhitungan yang telah dilakukan
mengenai kesehatan keuangan perusahaan tersebut, apakah sehat, waspada atau
mengalami kesulitan.
Object Button
Terdapat satu object button (ANALISA). Yang digunakan
untuk menampilkan hasil analisa yang berkaitan dengan perhitungan mengenai
keuangan perusahaan.
Script Unique
Buttom
"ANALISA”
ANDINI(AKT1_36110034,
MK1_36110034, PJ1_36110034, LB1_36110034,EBT1_36110034,
HP1_36110034, NB1_36110034, KEU1_36110034)
ANDINI(AKT2_36110034,
MK2_36110034, PJ2_36110034, LB2_36110034,EBT2_36110034,
HP2_36110034,
NB2_36110034, KEU2_36110034)
ANDINI(AKT3_36110034,
MK3_36110034, PJ3_36110034, LB3_36110034,EBT3_36110034,
HP3_36110034, NB3_36110034, KEU3_36110034)
Even
ANL_36110034_Clik
Property
Property
TextBox ==> ReadOnly=True
Prosedur
penyelesaian
1. buka project yang telah dibuat sebelumnya klik add new item
=> add windows form => ganti nama project => add.
2.
membuat
form dengan menggunakan Label, Textbox, dan Button yang ada dalam
"Toolbox”.
3.
ganti nama textbox dan
button menggunakan "Properties Window".
4.
membuka lembar vb Masukkan rumus berikut untuk
menyelesaikan latihan_09_36110034.
Public Class latihan_09_36110034
Private Sub
ANDINI(ByVal A As
TextBox, ByVal B As
TextBox, ByVal C As
TextBox, ByVal D As
TextBox, ByVal F As
TextBox, ByVal G As
TextBox, ByRef 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) >= 3.3 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) >= 3.3 Then
I.Text = "Mengalami
kesulitan"
Else : I.Text = ""
End If
End Sub
Private Sub
ANL_36110034_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles ANL_36110034.Click
ANDINI(AKT1_36110034, MK1_36110034, PJ1_36110034, LB1_36110034,
EBT1_36110034, HP1_36110034, NB1_36110034, KEU1_36110034)
ANDINI(AKT2_36110034, MK2_36110034, PJ2_36110034, LB2_36110034,
EBT2_36110034, HP2_36110034, NB2_36110034, KEU2_36110034)
ANDINI(AKT3_36110034, MK3_36110034, PJ3_36110034, LB3_36110034,
EBT3_36110034, HP3_36110034, NB3_36110034, KEU3_36110034)
End Sub
End Class
5.
Jalankan program dengan “start debugging”.
Tidak ada komentar:
Posting Komentar