CALCULADORA

Private Sub Command1_Click()
text1.Text = text1.Text & "1"
End Sub

Private Sub Command10_Click()
text1.Text = text1.Text & "0"
End Sub

Private Sub Command11_Click()
a = text1.Text
text1.Text = ""
operacion = "+"
End Sub
Private Sub Command12_Click()
a = text1.Text
text1.Text = ""
operacion = "-"
End Sub

Private Sub Command13_Click()
b = text1.Text
text1.Text = ""
If operacion = "+" Then
text1.Text = a + b
ElseIf operacion = "-" Then
text1.Text = a - b
ElseIf operacion = "*" Then
text1.Text = a * b
ElseIf operacion = "/" Then
text1.Text = a / b
End If
End Sub

Private Sub Command14_Click()
a = text1.Text
text1.Text = ""
operacion = "/"
End Sub

Private Sub Command15_Click()
a = text1.Text
text1.Text = ""
operacion = "*"
End Sub

Private Sub Command16_Click()
a = text1.Text
text1.Text = ""
operacion = "inc"
End Sub


Private Sub Command2_Click()
text1.Text = text1.Text & "2"
End Sub

Private Sub Command3_Click()
text1.Text = text1.Text & "3"
End Sub

Private Sub Command4_Click()
text1.Text = text1.Text & "4"
End Sub

Private Sub Command5_Click()
text1.Text = text1.Text & "5"
End Sub

Private Sub Command6_Click()
text1.Text = text1.Text & "6"
End Sub

Private Sub Command7_Click()
text1.Text = text1.Text & "7"
End Sub

Private Sub Command8_Click()
text1.Text = text1.Text & "8"
End Sub

Private Sub Command9_Click()
text1.Text = text1.Text & "9"
End Sub
Private Sub Form_Load()
Timer1.Interval = 5
Timer1.Enabled = True
Timer2.Interval = 5
Timer2.Enabled = False
Timer3.Interval = 5
Timer3.Enabled = False
End Sub
Private Sub Label2_Click()
Label2.Caption = label1.Left
End Sub

Private Sub Timer1_Timer()
label1.Left = label1.Left + 10
Label2.Caption = label1.Left
If label1.Left >= 18500 Then
Timer1.Enabled = False
Timer2.Enabled = True
Timer3.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
label1.Top = label1.Top + 10
Label2.Caption = label1.Top
If label1.Left <= 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = True
End If
End Sub

Private Sub Timer3_Timer()
label1.Left = label1.Top + 10
If label1.Left >= 90000 Then
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = True
End If
End Sub