tugas 4

Private Sub Command1_Click()
txttotal1 = Val(txtpenjumlahan1) + Val(txtpenjumlahan2)
txttotal2 = Val(txtperkalian1) * Val(txtperkalian2)
txttotal3 = Val(txtpembagian1) / Val(txtpembagian2)
txttotal4 = Val(txtpengurangan1) - Val(txtpengurangan2)
txtpenjumlahan1.SetFocus
End Sub

Private Sub Command2_Click()
txtpenjumlahan1 = ""
txtpenjumlahan2 = ""
txtperkalian1 = ""
txtperkalian2 = ""
txtpembagian1 = ""
txtpembagian2 = ""
txtpengurangan1 = ""
txtpengurangan2 = ""
txtpenjumlahan1.SetFocus
End Sub

Private Sub Command3_Click()
txtpenjumlahan1 = ""
txtpenjumlahan2 = ""
txtperkalian1 = ""
txtperkalian2 = ""
txtpembagian1 = ""
txtpembagian2 = ""
txtpengurangan1 = ""
txtpengurangan2 = ""
txtpenjumlahan1.SetFocus
End Sub

Private Sub Command4_Click()
Unload Me
End Sub



Private Sub Label8_Click()

End Sub

Private Sub txtpembagian1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpembagian2.SetFocus
End If
End Sub



Private Sub txtpembagian2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpengurangan1.SetFocus
End If
End Sub



Private Sub txtpengurangan1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpengurangan2.SetFocus
End If
End Sub


Private Sub txtpengurangan2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal1 = Val(txtpenjumlahan1) + Val(txtpenjumlahan2)
txttotal2 = Val(txtperkalian1) * Val(txtperkalian2)
txttotal3 = Val(txtpembagian1) / Val(txtpembagian2)
txttotal4 = Val(txtpengurangan1) - Val(txtpengurangan2)
txtpenjumlahan1.SetFocus
End If
End Sub

Private Sub txtpenjumlahan1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpenjumlahan2.SetFocus
End If
End Sub



Private Sub txtpenjumlahan2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtperkalian1.SetFocus
End If
End Sub


Private Sub txtperkalian1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtperkalian2.SetFocus
End If
End Sub


Private Sub txtperkalian2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpembagian1.SetFocus
End If
End Sub