TUGAS 1 PROGRAM 4 BP1

Private Sub Cmdhitung_Click()
Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3)
End Sub


Private Sub Cmdbatal_Click()
Txtnilai1 = ""
Txtnilai2 = ""
Txtnilai3 = ""
Txtjumlah = ""
Txtnilai1.SetFocus
End Sub


Private Sub Cmdkeluar_Click()
Unload Me
End Sub


Private Sub Cmdlagi_Click()
Txtnilai1 = ""
Txtnilai2 = ""
Txtnilai3 = ""
Txtjumlah = ""
Txtnilai1.SetFocus
End Sub


Private Sub Txtnilai1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnilai2.SetFocus
End If
End Sub


Private Sub Txtnilai2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnilai3.SetFocus
End If
End Sub


Private Sub Txtnilai3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3)
End If
End Sub