Tugas 1.3 (perkalian 2 bilangan + keypres)_bahasa pemrograman-1

Private Sub Cmdhitung_Click()
Txthasil = Val(txtn1) * Val(Txtn2)

End Sub

Private Sub Cmdbersih_Click()
txtn1.SetFocus
txtn1 = ""
Txtn2 = ""
Txthasil = ""

End Sub



Private Sub cmdhasil_Click()
End

End Sub


Private Sub Txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn2.SetFocus
End If

End Sub

Private Sub Txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthasil = Val(txtn1) * Val(Txtn2)
End If

End Sub