Form Pada Latihan 09
Deskripsi Form Latihan 09
Form latihan 09 terdapat tiga
object yaitu Label, Textbox, dan Button.
Object Label :
Dalam form ini terdapat 12
item Label yang bertuliskan (Perusahaan,
Tahun 1, Tahun 2, Tahun3, Total Aktiva, Modal Kerja, Penjualan, Laba Ditahan,
EBIT, Harga Pasar Equity, Nilai Buku Hutang, dan Tingkat Kesehatan Keuangan).
Object Textbox :
Dalam form ini terdapat 25 item Textbox yang digunakan untuk
(22 status input dan 3 untuk status
ReadOnly). Status input ini digunakan untuk menginput data/nilai, sedangkan untuk status ReadOnly
digunakan untuk menampilkan hasil fungsi yang telah di kerjakan.
Object Button :
Pada Form ini terdapat Satu
object Button yang digunakan yaitu “Analisa” untuk menampilkan hasil dari data
yang telah di masukkan yaitu z-score è z-score=(1,2 * modal kerja/total
aktiva)+(1,4*lba ditahan/Total aktiva)+(3,3*Ebit/Total aktiva)+(0,6*Harga pasar
equity/Nilai buku hutang)
jika
nilainya lebih dari 3,3 maka sehat
>=
1,81 waspada
>=
mengalami kesulitan
Cara Untuk Membuat Form Latihan 09 :
1. Pertama Bukalah
Project yang telah anda buat sebelumnya.
2. Pilih dan
Buka Project dalam visual basic.
3. Kemudian
pilih Add Windows form
4. Lalu add new item dan rename file
“form.vb menjadi Latihan_09_46110020”
5.
Setelah namenya di rename pilih add lalu muncullah
form seperti ini :
6.
Kemudian mulailah membuat form 09 dengan
menggunakan Label, TextBox, dan Button
7. Lalu buatlah
sesuai contoh latihan 09 dengan menggunkan Label sebanyak 12, TextBox sebanyak
25, dan 1 Button untuk Analisa maka akan menjadi seperti ini :
-
Hijau = Label
-
Orange =
TextBox
-
Cokelat = Button
8.
Setelah form di atas telah jadi maka klik kanan
lalu pilih View Code,kemudian masukkan rumus seperti berikut :
Public Class
Latihan_09_46110020
Private Sub cinta(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 Analisa46110020_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
Analisa46110020.Click
cinta(T1_46110020, T2_46110020,
T3_46110020, T4_46110020, T5_46110020, T6_46110020, T7_46110020, T8_46110020)
cinta(T1thn2_46110020, T2thn2_46110020,
T3thn2_46110020, T4thn2_46110020, T5thn2_46110020, T6thn2_46110020,
T7thn2_46110020, T8thn2_46110020)
cinta(T1thn3_46110020, T2thn3_46110020,
T3thn3_46110020, T4thn3_46110020, T5thn3_46110020, T6thn3_46110020,
T7thn3_46110020, T8thn3_46110020)
End Sub
End Class
Langkah – Langkah Menjalankan
Latihan 09 :
1. Pertama, Klik start debugging.
2. Isi textbox yang
berstatus input yaitu Tahun 1, Tahun 2, Tahun 3 dengan nilai.
3. Tombol Analisa akan
menjalankan fungsi yang telah dibuat dan Hasil akan muncul pada TextBox yang
telah di ReadOnly.
Script unik
Script unik yang terdapat pada latihan 09 yaitu
Private Sub Cinta ()...,, script ini
digunakan sebagai Procedure atau rumus yang dapat digunakan disetiap fungsi yang
diinginkan tanpa mengulangi lagi isi procedure tersebut dan dalam form ini
menggunakan rumus Z-Score untuk mendapatkan/menentukan hasil.Selain itu
terdapat script
yang digunakan sebagai data dari fungsi prosedure yang tela di buat. urutan
text box nya harus sama dengan urutan yang ada di procedure seperti :
cinta(T1_46110020, T2_46110020, T3_46110020, T4_46110020,
T5_46110020, T6_46110020, T7_46110020, T8_46110020)
Even
ButtonClick
Property
Property
textbox è
ReadOnly = True
0 komentar:
Posting Komentar