Crear Una Calculadora

[CalcuOsiris – 2]

Dim num1 As String
Dim num2 As String
Dim operador As String
Dim estado As Byte
Private Sub Command1_Click(Index As Integer)

Txtdato.SelText = Command1(Index).Caption
End Sub

Private Sub Command2_Click(Index As Integer)
operador = Command2(Index).Caption
Select Case estado
Case 0
num1 = Txtdato.Text
estado = 1
Txtdato.Text = «»
Case 1
num2 = Txtdato.Text
estado = 2
Txtdato.Text = «»
Case 2

End Select
End Sub

Private Sub Command3_Click(Index As Integer)
If num1 = «» And num2 = «» Then
Else
num2 = Txtdato.Text
Select Case operador
Case «+»
Txtdato.Text = Val(num1) + Val(num2)
Case «-»
Txtdato.Text = Val(num1) – Val(num2)
Case «*»
Txtdato.Text = Val(num1) * Val(num2)
Case «/»
If num2 = 0 Then
MsgBox «Error de Operación»
Else
Txtdato.Text = Val(num1) / Val(num2)
End If
Case Else

End Select
estado = 1
num2 = «»
num1 = Txtdato.Text
End If
End Sub

Private Sub Command4_Click(Index As Integer)
estado = 0
num1 = «»
num2 = «»
Txtdato.Text = «»
operador = «N»
End Sub

Private Sub Command5_Click(Index As Integer)
End
End Sub

Private Sub Form_Load()
estado = 0
End Sub

P.D: Espero que alguien le pueda servir 😉

Facebook Comentario:

sanosiris

Soy un blogger nato; tengo el power, tengo un blog www.SANOSIRIS.es versión 2.0 - es un mamífero nocturno de ojos rojos capaz de entablar conversaciones con objetos inanimados.

4 comentarios sobre “Crear Una Calculadora

  • el 13 agosto, 2008 a las 2:02
    Permalink

    donde coloko todo ezo eztoi eztudiando computacion i me guztaria hazer una calculadora en vfp ayudenme

    Respuesta
  • el 31 agosto, 2008 a las 13:56
    Permalink

    Calculadora en que ?

    NO entiendo a lo que te refieres donde colocar al code deberias ser mas especifico para poder ayudarte men.

    Respuesta
  • el 7 febrero, 2009 a las 12:48
    Permalink

    Hola me gustaria saber como puedo hacer una calculadora en vfp9 si me podrias ayudar te lo agradeceria

    Respuesta
  • el 10 abril, 2009 a las 16:15
    Permalink

    amigo quisiera saber en donde debo poner todos estos comandos en lenguaje javascript que has enumerado; debo tener un sofware especifico para pegarlos o los debo pegar en alguna pagina.
    mi problema es que no se como hacer para crear la imagen de la calculadora y como relacionar cada comando con una determinada tecla…. si me puedes ayudar te lo agradeceria enormemente.

    Respuesta

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *