PROGRAM 2 TUGAS 2
Private Sub Cmdhitung_Click()
Txt2 = Val(Txt1) * 0.15
Txt3 = Val(Txt1) - Val(Txt2)
End Sub
Private Sub Cmdulangi_Click()
Txt1 = ""
Txt2 = ""
Txt3 = ""
End Sub
Private Sub Cmdquit_Click()
Unload Me
End Sub
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2 = Val(Txt1) * 0.15
Txt3 = Val(Txt1) - Val(Txt2)
End If
End Sub
Komentar
Posting Komentar