DISKRIPSI LATIHAN9
Latihan_09_36110030
A.
Object-object dalam Latihan_09_36110030 :
1. Object Label
Terdapat dua
belas label (yang bertuliskan nama perusahaan, tahun I, tahun II, tahun III,
total aktiva, modal kerja, penjualan, laba ditahan, EBIT, harga pasar equity,
nilai buku hutang, tingkat kesehatan keuangan).
2. Object
Textbox
Terdapat dua
puluh lima textbox (dua puluh dua status input; tiga status read only). Status
input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan.
Status Read Only digunakan untuk menampilkan hasil perhitungan dari
angka-angkat yang sudah diinput.
3. Object
Button
Terdapat satu
object button (Analisa). Button Analisa digunakan untuk menampilkan tingkat
kesehatan keuangan perusahaan sesuai dengan nilai-nilai yang telah diinput.
B.
Script Unique
Untuk button Analisa
yhuya(AKTIVA1_36110030,
MODAL1_36110030, PENJUALAN1_36110030, LABA1_36110030, EBIT1_36110030,
HARGA1_36110030, HUTANG1_36110030, KES1_36110030)
C.
Even
ANALISA_36110030_Click
D.
Property
Property TextBox ==> ReadOnly=True
PROSEDUR PENYELSAIAN LATIHAN 9
1.KLIK STAR KEMUDIAN PILIH
MICROSOFT VISUAL STUDI0 2008
2.KEMUDIAN KLIK NEW PROJECT PADA FILE
3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT
4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :
5.KEMUDIAN MASUKAN RUMUS :
Public Class latihan_09_36110030
Private Sub yhuya(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 = "
HATI-HATI "
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 = "MASALAH
"
Else
I.Text = ""
End If
End Sub
Private Sub ANALISIS_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles ANALISIS.Click
yhuya(AKTIVA1_36110030,
MODAL1_36110030, PENJUALAN1_36110030, LABA1_36110030, EBIT1_36110030,
HARGA1_36110030, HUTANG1_36110030, KES1_36110030)
yhuya(AKTIVA2_36110030,
MODAL2_36110030, PENJUALAN2_36110030, LABA2_36110030, EBIT2_36110030, HARGA2_36110030,
HUTANG2_36110030, KES2_36110030)
yhuya(AKTIVA3_36110030,
MODAL3_36110030, PENJUALAN3_36110030, LABA3_36110030, EBIT3_36110030,
HARGA3_36110030, HUTANG3_36110030, KES3_36110030)
End Sub
Private Sub latihan_09_36110030_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
6. KEMUDIAN
UJI PROGRAM
7. JIKA SUDAH
BERHASIL Save program anda
8. SELESAI
|
0 komentar:
Posting Komentar