Latihan_09_46110022
DESKRIPSI
FORM
- Hitam = objek label
- Merah = objek textbox (status input) ==> Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan.
- Hijau = objek textbox (status Read Only) ==> status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.
- Ungu = button ==> terdapat 1 buah button yaitu “Analisa” yang berfungsi untuk menampilkan hasil pada textbox read only.
Script
Unique :
Private Sub ega(ByVal
e146110022 As TextBox, ByVal
e246110022 As TextBox, ByVal
e346110022 As TextBox, ByVal
e446110022 As TextBox, ByVal
e546110022 As TextBox, ByVal
e646110022 As TextBox, ByVal
e746110022 As TextBox, ByVal
e846110022 As TextBox)
èscript
ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang
diinginkan tanpa mengulang apa isi procedure tersebut.
Urutan text box nya harus sama dengan urutan yang ada di prosedure.
Even :
Click
Properti :
Property
TextBox ==> ReadOnly=True
Langkah-Langkah
Membuat Latihan 09
1.
Klik “START” lalu pilih Microsoft Visual Studio 2008
2.
Kemudian pilih kumpulan latihan seperti berikut
3.
Pilih menu Project lalu klik "add windows
form"
4.
Ketik nama form "Latihan_09_46110007" pada name kemudian click add
5.
Kemudian buat form seperti berikut ini
6.
Setelah selesai membuat form, masukan rumus seperti berikut ini
Public Class Latihan_09_46110022
Private Sub
ega(ByVal e146110022 As
TextBox, ByVal e246110022 As TextBox, ByVal
e346110022 As TextBox, ByVal
e446110022 As TextBox, ByVal
e546110022 As TextBox, ByVal
e646110022 As TextBox, ByVal
e746110022 As TextBox, ByVal
e846110022 As TextBox)
If 1.2
* Val(e246110022.Text) / Val(e146110022.Text) + 1.4 * Val(e446110022.Text) /
Val(e146110022.Text) + 3.3 * Val(e546110022.Text) / Val(e146110022.Text) + 0.6
* Val(e646110022.Text) / Val(e746110022.Text) >= 3.3 Then
e846110022.Text = "sangat sehat"
ElseIf
1.2 * Val(e246110022.Text) / Val(e146110022.Text) + 1.4 * Val(e446110022.Text)
/ Val(e146110022.Text) + 3.3 * Val(e546110022.Text) / Val(e146110022.Text) +
0.6 * Val(e646110022.Text) / Val(e746110022.Text) >= 1.81 Then
e846110022.Text = "waspada"
ElseIf
1.2 * Val(e246110022.Text) / Val(e146110022.Text) + 1.4 * Val(e446110022.Text)
/ Val(e146110022.Text) + 3.3 * Val(e546110022.Text) / Val(e146110022.Text) +
0.6 * Val(e646110022.Text) / Val(e746110022.Text) >= 0 Then
e846110022.Text = "mengalami kesulitan"
End If
End Sub
Private Sub
analisa46110022_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles analisa46110022.Click
ega(tb146110022, tb246110022,
tb346110022, tb446110022, tb546110022, tb646110022, tb746110022, tb846110022)
ega(tb946110022, tb1046110022,
tb1146110022, tb1246110022, tb1346110022, tb1446110022, tb1546110022,
tb1646110022)
ega(tb1746110022, tb1846110022,
tb1946110022, tb2046110022, tb2146110022, tb2246110022, tb2346110022,
tb2446110022)
End Sub
End Class
7.
Untuk menjalankan form ini, klik tombol debugging seperti berikut ini
Langkah-Langkah
Menjalankan Latihan 09
·
Pertama Klik
simbol debugging.
·
Lalu, Isi
textbox yang berstatus input sesuai dengan angka yang anda inginkan,
·
Untuk
mengetahui hasil perhitungan dari angka yang anda masukkan, klik tombol
“Analisa”.
Postingan
