TUGAS MK BP1 TUGAS 1.3

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

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