TUGAS PEMROGRAMAN 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