Tugas 1 Program 4

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 Form_Load()

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