Latihan_11_46110022
DESKRIPSI
FORM
- Merah = objek label
- Hijau = 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 ega(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)
If
A.Text = "A" Then
C.Text = Val(B.Text) * 4
ElseIf
A.Text = "B" Then
C.Text = Val(B.Text) * 3
ElseIf
A.Text = "C" Then
C.Text = Val(B.Text) * 2
ElseIf
A.Text = "D" Then
C.Text = Val(B.Text) * 1
ElseIf
A.Text = "E" Then
C.Text = Val(B.Text) * 0
Else :
MsgBox("NILAI MUTU TIDAK DITEMUKAN")
End
If
End Sub
èscript ini digunakan sebagai
Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang
apa isi procedure tersebut.
Even :
TextChanged
Properti :
Property
TextBox ==> ReadOnly=True
Langkah-Langkah
Membuat Latihan 11
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_11_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_11_46110022
Private Sub
ega(ByVal A As
TextBox, ByVal B As
TextBox, ByVal C As
TextBox)
If
A.Text = "A" Then
C.Text = Val(B.Text) * 4
ElseIf
A.Text = "B" Then
C.Text = Val(B.Text) * 3
ElseIf
A.Text = "C" Then
C.Text = Val(B.Text) * 2
ElseIf
A.Text = "D" Then
C.Text = Val(B.Text) * 1
ElseIf
A.Text = "E" Then
C.Text = Val(B.Text) * 0
Else :
MsgBox("NILAI MUTU TIDAK DITEMUKAN")
End If
End Sub
Private Sub
TOTAL()
tb1146110022.Text =
Val(tb646110022.Text) + Val(tb746110022.Text) + Val(tb846110022.Text) +
Val(tb946110022.Text) + Val(tb1046110022.Text)
tb1746110022.Text =
Val(tb1246110022.Text) + Val(tb1346110022.Text) + Val(tb1446110022.Text) +
Val(tb1546110022.Text) + Val(tb1646110022.Text)
tb1846110022.Text = tb1746110022.Text /
tb1146110022.Text
End Sub
Private Sub
tb1646110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb1646110022.TextChanged
ega(tb146110022, tb646110022,
tb1246110022)
End Sub
Private Sub
tb246110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb246110022.TextChanged
ega(tb246110022, tb746110022,
tb1346110022)
End Sub
Private Sub
tb346110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb346110022.TextChanged
ega(tb346110022, tb846110022,
tb1446110022)
End Sub
Private Sub
tb446110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb446110022.TextChanged
ega(tb446110022, tb946110022,
tb1546110022)
End Sub
Private Sub
tb546110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
tb546110022.TextChanged
ega(tb546110022, tb1046110022,
tb1646110022)
End Sub
End Class
7.
Untuk menjalankan form ini, klik tombol debugging seperti berikut ini
Langkah-Langkah
Menjalankan Latihan 11.
- Klik simbol debugging.
- Isi text box yang berstatus input, secara otomatis hasil akan muncul pada textbox yang berstatus read only.
- Good luck..
Postingan
