Calculadora

Codigo
Private Sub borrar_Click()
txtNum.Text = ""
txtOperacion.Text = ""
txtPantalla.Text = ""
End Sub

Private Sub cero_Click()
txtPantalla.Text = txtPantalla.Text + cero.Caption

End Sub

Private Sub cinco_Click()
txtPantalla.Text = txtPantalla.Text + cinco.Caption

End Sub

Private Sub cuatro_Click()
txtPantalla.Text = txtPantalla.Text + cuatro.Caption

End Sub

Private Sub dividido_Click()
txtOperacion.Text = dividido.Caption
txtNum.Text = txtPantalla.Text
txtPantalla.Text = ""
End Sub

Private Sub dos_Click()
txtPantalla.Text = txtPantalla.Text + dos.Caption

End Sub

Private Sub igual_Click()
If txtOperacion.Text = por.Caption Then
txtPantalla.Text = Val(txtNum.Text) * Val(txtPantalla.Text)
ElseIf txtOperacion.Text = mas.Caption Then
txtPantalla.Text = Val(txtNum.Text) + Val(txtPantalla.Text)
ElseIf txtOperacion.Text = dividido.Caption Then
txtPantalla.Text = Val(txtNum.Text) / Val(txtPantalla.Text)
ElseIf txtOperacion.Text = menos.Caption Then
txtPantalla.Text = Val(txtNum.Text) - Val(txtPantalla.Text)
End If
End Sub

Private Sub mas_Click()
txtOperacion.Text = mas.Caption
txtNum.Text = txtPantalla.Text
txtPantalla.Text = ""
End Sub

Private Sub menos_Click()
txtOperacion.Text = menos.Caption
txtNum.Text = txtPantalla.Text
txtPantalla.Text = ""
End Sub

Private Sub nueve_Click()
txtPantalla.Text = txtPantalla.Text + nueve.Caption

End Sub

Private Sub ocho_Click()
txtPantalla.Text = txtPantalla.Text + ocho.Caption

End Sub

Private Sub onoff_Click()
If uno.Enabled = False Then
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
por.Enabled = True
dividido.Enabled = True
menos.Enabled = True
mas.Enabled = True
por.Enabled = True
borrar.Enabled = True
punto.Enabled = True
igual.Enabled = True
txtPantalla.Enabled = True
Else

uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
por.Enabled = False
dividido.Enabled = False
menos.Enabled = False
mas.Enabled = False
por.Enabled = False
borrar.Enabled = False
punto.Enabled = False
igual.Enabled = False
txtPantalla.Text = ""
txtOperacion.Text = ""
txtNum.Text = ""
txtPantalla.Enabled = False
End If
End Sub

Private Sub por_Click()
txtOperacion.Text = por.Caption
txtNum.Text = txtPantalla.Text
txtPantalla.Text = ""
End Sub

Private Sub punto_Click()
txtPantalla.Text = txtPantalla.Text + punto.Caption
End Sub

Private Sub seis_Click()
txtPantalla.Text = txtPantalla.Text + seis.Caption

End Sub

Private Sub siete_Click()
txtPantalla.Text = txtPantalla.Text + siete.Caption

End Sub

Private Sub tres_Click()
txtPantalla.Text = txtPantalla.Text + tres.Caption

End Sub


Private Sub uno_Click()
txtPantalla.Text = txtPantalla.Text + uno.Caption

End Sub