Tugas 2.4

 

 

Private Sub cmdHitung_Click()

txtBayar = Val(TxtBeli) * 70000

End Sub

 

Private Sub cmdKeluar_Click()

Unload Me

End Sub

 

Private Sub cmdLagi_Click()

TxtBeli.SetFocus

TxtBeli = ""

txtBayar = ""

End Sub

 

Private Sub TxtBeli_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtBayar = Val(TxtBeli) * 70000

End If

End Sub