Deskripsi Form Latihan_07_46110003
Form Latihan_07_46110003 terdapat
tiga object yaitu Label, textbox, dan button.
Object Label
Terdapat duah label yang
bertuliskan “Masukkan angka”, dan “Hasil Perhitungan”.
Object Textbox
Terdapat tiga puluh
textbox yang terdiri dari 25 textbox berstatus input dan 5 textbox
berstatus read only.
Object Button
Terdapat tiga object button
yaitu "Hitung1", "Hitung2", dan "Hitung3".
Tapi ada
perbedaan diantara ketiga Button. Perbedaannya terletak pada rumus yang
digunakan pada texbox 6, 7, 29, 30 berbeda, sedangkan textbox yang lain sama. Maksudnya
jika mengklik button yang disediakan maka angka yang akan muncul pada textbox
6, 7, 29, 30 akan berbeda, lain halnya dengan textbox selain textbox 6, 7, 29,
30 semua angkanya sama.
Script Unique
Private Sub amal()
hsl3_46110003.Text =
Val(angka1_46110003.Text) + Val(angka2_46110003.Text)
hsl4_46110003.Text =
Val(angka1_46110003.Text) + Val(angka3_46110003.Text)
hsl5_46110003.Text =
Val(angka1_46110003.Text) + Val(angka4_46110003.Text)
==>maksudnya
agar memudahkan dan mempersingkat waktu dalam mengerjakan rumus pada form ini,
karena tidak perlu ditulis ulang.
Event
Event
Buttonclick
Property
Property
Property textbox : Readonly =
True
Langkah-langkah
Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
Kolom yang berwarna biru berisikan “Label”, kolom yang
berwarna hitam berisikan “Textbox”, dan kolom yang berwarna merah berisikan “Button”.
2. Masukkan rumus pada script:
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
3. Jalankan program
0 komentar:
Posting Komentar