TUGAS 2 PROGRAM 2 BP1
Private Sub
Command1_Click()
Text2 =
Val(Text1) * 0.15
Text3 =
Val(Text1) - Val(Text2)
End Sub
Private Sub
Command2_Click()
Text1 =
""
Text2 =
""
Text3 =
""
End Sub
Private Sub
Command3_Click()
Unload Me
End Sub
Private Sub
Text1_KeyPress(KeyAscii As Integer)
If KeyAscii
= 13 Then
Text2 =
Val(Text1) * 0.15
Text3 =
Val(Text1) - Val(Text2)
End If
End Sub
Komentar
Posting Komentar
Semoga bermanfaat