Tugas1_5

APLIKASI PERHITUNGAN,PENJUMLAHAN,PEMBAGiAN,PENGURANGAN DAN PERKALIAN

Private Sub txtn3_keypress(keyascii As Integer)
If keyascii = 13 Then
txtn4.SetFocus
End If
End Sub
Private Sub txtn4_keypress(keyascii As Integer)
If keyascii = 13 Then
txtn5.SetFocus
End If
End Sub
Private Sub txtn5_keypress(keyascii As Integer)
If keyascii = 13 Then
txtn6.SetFocus
End If
End Sub
Private Sub txtn6_keypress(keyascii As Integer)
If keyascii = 13 Then
txtn7.SetFocus
End If
End Sub
Private Sub txtn7_keypress(keyascii As Integer)
If keyascii = 13 Then
txtn8.SetFocus
End If
End Sub
Private Sub txtn8_keypress(keyascii As Integer)
If keyascii = 13 Then
txttotal1 = Val(txtn1) + (txtn2)
txttotal2 = Val(Txtn3) / (txtn4)
txttotal3 = Val(txtn5) - (txtn6)
txttotal4 = Val(txtn7) * (txtn8)
End If
End Sub

Private Sub txttotal1_Change()

End Sub