PROGRAM 4 PENJUMLAHAN MENGGUNAKAN ENTER

PROGRAM 4

Private Sub Cmdhitung_Click() 

txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3)

End Sub

Private Sub Cmdbatal_Click()

Txtn1 = ""

txtn2 = ""

txtn3 = ""

txtjmlh = ""

Txtn1.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtn1 = ""

txtn2 = ""

txtn3 = ""

txtjmlh = ""

Txtn1.SetFocus

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

txtn3.SetFocus

End If

End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3)

End If

End Sub