Latihan_10_46110022
DESKRIPSI
FORM
- Biru = objek label
- Merah = objek textbox (status input) ==> Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan.
- Kuning = objek textbox (status Read Only) ==> status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.
Script
Unique :
Private Sub
tb146110022_TextChanged1(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb146110022.TextChanged
ega(tb146110022, tb646110022)
End Sub
==> 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 :
TextChanged
Properti :
Property
TextBox ==> ReadOnly=True
Langkah-Langkah
Membuat Latihan 10
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_10_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_10_46110022
Private Sub
ega(ByVal A As
TextBox, ByVal B As
TextBox)
If Val(A.Text)
<= 50000000 Then
B.Text = Val(A.Text) * 5 / 100
ElseIf
Val(A.Text) <= 250000000 Then
B.Text = ((Val(A.Text) - 50000000)
* (15 / 100)) + (50000000 * (5 / 100))
ElseIf
Val(A.Text) <= 500000000 Then
B.Text = ((Val(A.Text) - 250000000) * (25 /
100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))
ElseIf
Val(A.Text) > 500000000 Then
B.Text = ((Val(A.Text) - 500000000)
* (30 / 100)) + (250000000 * (25 / 100)) + (200000000 * (15 / 100)) + (50000000
* (5 / 100))
Else
End If
End Sub
Private Sub
tb146110022_TextChanged1(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb146110022.TextChanged
ega(tb146110022, tb646110022)
End Sub
Private Sub
tb246110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb246110022.TextChanged
ega(tb246110022, tb746110022)
End Sub
Private Sub
tb346110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb346110022.TextChanged
ega(tb346110022, tb846110022)
End Sub
Private Sub
tb446110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb446110022.TextChanged
ega(tb446110022, tb946110022)
End Sub
Private Sub
tb546110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb546110022.TextChanged
ega(tb546110022, tb1046110022)
End Sub
End Class
7.
Untuk menjalankan form ini, klik tombol debugging seperti berikut ini
Langkah-Langkah
Menjalankan Latihan 10
·
Klik
simbol debugging.
·
Isi
text box yang berstatus input.
·
Hasil akan muncul
sendri ketika text box yang berstatus input telah diisi.
Postingan
