Tugas 6 Kalkulatoer Menggunakan Keypres

Tugas 6 Kalkulatoer Menggunakan Keypres

Option Explicit

Private Sub Cmdhitung_Click()

Txttotal1 = Val(Txtn1) + (Txtn2)

txttotal2 = Val(Txtn3) / (Txtn4)

txttotal3 = Val(Txtn5) - (Txtn6)

txttotal4 = Val(Txtn7) * (Txtn8)

End Sub

Private Sub Cmdbatal_Click()

Txtn1 = ""

Txtn2 = ""

Txtn3 = ""

Txtn4 = ""

Txtn5 = ""

Txtn6 = ""

Txtn7 = ""

Txtn8 = ""

Txttotal1 = ""

txttotal2 = ""

txttotal3 = ""

txttotal4 = ""

Txtn1.SetFocus

End Sub

Private Sub Cmdlagi_Click()

Txtn1 = ""

Txtn2 = ""

Txtn3 = ""

Txtn4 = ""

Txtn5 = ""

Txtn6 = ""

Txtn7 = ""

Txtn8 = ""

Txttotal1 = ""

txttotal2 = ""

txttotal3 = ""

txttotal4 = ""

Txtn1.SetFocus

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

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