TUGAS PEMOGRAMAN 2.3

Private Sub Cmdhitung_Click()
Txth1 = Val(Txtn1) + Val(Txtn2)
Txth2 = Val(Txtn3) - Val(Txtn4)
Txth3 = Val(Txtn5) * Val(Txtn6)
Txth4 = Val(Txtn7) / Val(Txtn8)
Txth5 = Val(Txth1) + Val(Txth2) + Val(Txth3) + Val(Txth4)
End Sub
Private Sub Cmdbersih_Click()
Txtn1.SetFocus
Txtn1 = ""
Txtn2 = ""
Txtn3 = ""
Txtn4 = ""
Txtn5 = ""
Txtn6 = ""
Txtn7 = ""
Txtn8 = ""
Txth1 = ""
Txth2 = ""
Txth3 = ""
Txth4 = ""
Txth5 = ""
End Sub


Private Sub Cmdkeluar_Click()
Unload Me
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
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