tugas 2.2

Private Sub cmdhitung_Click()

Dim A, B, C As Double

TxtB.txt = Val(TxtA.txt) * 0.1

TxtC.txt = Val(TxtA.txt) - Val(TxtB.txt)

End Sub

Private Sub cmdquit_Click()

End If

End Sub

Private Sub cmdulangi_Click()

TxtA = ""

TxtB = ""

TxtC = ""

End Sub

Private Sub TxtA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtB = Val(TxtA) * 0.1

TxtC = Val(TxtA) - Val(TxtB)

End If

End Sub