Deskripsi
Form Latihan_11_46110003
Form Latihan_11_46110003 terdapat dua object
yaitu Label dan textbox.
Object Label
Terdapat empat belas object label.
Object Textbox
Terdapat dua puluh object textbox yang terdiri dari 12 textbox yang berstatus input dan 8 textbox berstatus read only.
Script Unique
tidak ada script unik untuk form ini
Event
Textchanged
Buttonclick
Property
Property textbox:
Readonly = True
Buttonclick
Property
Property textbox:
Readonly = True
Langkah-langkah
penyelesaian
1. Buat Form Desain terlebih dahulu,
seperti contoh dibawah:
2. Masukkan rumus
Public NotInheritable Class
Latihan_11_46110003
Private Sub amal(ByVal X As TextBox, ByVal Y As TextBox, ByVal Z As TextBox)
If
X.Text = "A" Then
Z.Text = 4 * Val(Y.Text)
ElseIf
X.Text = "B" Then
Z.Text = 3 * Val(Y.Text)
ElseIf
X.Text = "C" Then
Z.Text = 2 * Val(Y.Text)
ElseIf
X.Text = "D" Then
Z.Text = 1 * Val(Y.Text)
Else
Z.Text = ""
End If
End Sub
Private Sub spa46110003_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
spa46110003.TextChanged
amal(npa46110003, spa46110003,
pa46110003)
stot46110003.Text =
Val(spa46110003.Text) + Val(sai46110003.Text) + Val(saa46110003.Text) +
Val(sab46110003.Text) + Val(ssa46110003.Text)
End Sub
Private Sub sai46110003_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles sai46110003.TextChanged
amal(nai46110003, sai46110003,
ai46110003)
stot46110003.Text =
Val(spa46110003.Text) + Val(sai46110003.Text) + Val(saa46110003.Text) +
Val(sab46110003.Text) + Val(ssa46110003.Text)
End Sub
Private Sub saa46110003_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
saa46110003.TextChanged
amal(naa46110003, saa46110003,
aa46110003)
stot46110003.Text =
Val(spa46110003.Text) + Val(sai46110003.Text) + Val(saa46110003.Text) + Val(sab46110003.Text)
+ Val(ssa46110003.Text)
End Sub
Private Sub sab46110003_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
sab46110003.TextChanged
amal(nab46110003, sab46110003,
ab46110003)
stot46110003.Text =
Val(spa46110003.Text) + Val(sai46110003.Text) + Val(saa46110003.Text) +
Val(sab46110003.Text) + Val(ssa46110003.Text)
End Sub
Private Sub ssa46110003_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
ssa46110003.TextChanged
amal(nsa46110003, nsa46110003,
sa46110003)
stot46110003.Text =
Val(spa46110003.Text) + Val(sai46110003.Text) + Val(saa46110003.Text) +
Val(sab46110003.Text) + Val(ssa46110003.Text)
total46110003.Text =
Val(pa46110003.Text) + Val(ai46110003.Text) + Val(aa46110003.Text) +
Val(ab46110003.Text) + Val(sa46110003.Text)
End Sub
Private Sub pa46110003_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles pa46110003.TextChanged,
ai46110003.TextChanged
stot46110003.Text =
Val(spa46110003.Text) + Val(sai46110003.Text) + Val(saa46110003.Text) +
Val(sab46110003.Text) + Val(ssa46110003.Text)
End Sub
Private Sub total46110003_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
total46110003.TextChanged
ipk46110003.Text =
Val(total46110003.Text) / Val(stot46110003.Text)
End Sub
End Class
0 komentar:
Posting Komentar