[Codigo Fuente] [Ayuda] Calculadora sencilla

Tema en 'Foro Libre' iniciado por HunterxD007, 10 Nov 2008.

  1. Hun

    HunterxD007
    Expand Collapse
    Recluta

    Mensajes:
    19
    Me Gusta recibidos:
    0
    Aqui esta el codigo fuente de una calculadora sencilla...

    Lleva:

    3 text.text
    1 commandbutton

    Codigo fuente:

    Private Sub Command1_Click()

    Dim n1 As Integer
    Dim n2 As Integer

    Real:
    n1 = Text1.Text
    n2 = Text3.Text
    If Text2.Text = "+" Then
    MsgBox "Se esta sumando...", vbInformation, "Operacion"
    re = n1 + n2
    MsgBox re, vbInformation, "Resultado"
    Label1 = re
    End If
    If Text2.Text = "-" Then
    MsgBox "Se esta restando...", vbInformation, "Operacion"
    re = n1 - n2
    MsgBox re, vbInformation, "Resultado"
    Label1 = re
    End If
    If Text2.Text = "*" Then
    MsgBox "Se esta multiplicando...", vbInformation, "Operacion"
    re = n1 * n2
    MsgBox re, vbInformation, "Resultado"
    Label1 = re
    End If
    If Text2.Text = "/" Then
    If Text3.Text = "0" Then
    MsgBox "Error, no se puede dividir entre 0", vbCritical, "Error"
    Label1 = "---"
    Exit Sub
    Else
    MsgBox "Se esta dividiendo...", vbInformation, "Operacion"
    re = n1 / n2
    MsgBox re, vbInformation, "Resultado"
    Label1 = re
    End If
    End If
    If Text2.Text = "x" Then
    MsgBox "Se esta multiplicando...", vbInformation, "Operacion"
    re = n1 * n2
    MsgBox re, vbInformation, "Resultado"
    Label1 = re
    If Text2.Text = "X" Then
    MsgBox "Se esta multiplicando...", vbInformation, "Operacion"
    re = n1 * n2
    MsgBox re, vbInformation, "Resultado"
    Label1 = re
    End If
    End If

    End Sub

    Private Sub Command2_Click()
    MsgBox "Escribe en el primer cuadro (1) el primer numero a usar", vbInformation, "Informacion"
    MsgBox "Escribe en el segundo cuadro (+) la operacion a realizar", vbInformation, "Informacion"
    MsgBox "Escribe en el tercer cuadro (2) el segundo numero a usar", vbInformation, "Informacion"
    MsgBox "Presiona Aceptar", vbInformation, "Informacion"
    MsgBox "Las operaciones son: +, -, *, /", vbInformation, "Informacion"
    MsgBox "Para multiplicar puedes usar x y X", vbInformation, "Informacion"
    End Sub

    Private Sub Form_Load()
    MsgBox "Programado y creado por HunterxD007", vbInformation, "Creditos"
    MsgBox "Gracias a WilJor[XD] y a fekaa07 por introducirme al Visual Basic", vbInformation, "Gracias a"
    End Sub

    Tiene un pequeño error, el cual es que si introduces esta suma:

    111111111111111
    +
    999999999999999

    Da un error y se desborda.

    Estaba intentando arreglarlo con este bucle:

    If n1 >= 111111111# Then GoTo errror
    If n1 <= 1 Then GoTo Real

    Real es todo el codigo de la calculadora y Error es esto:

    MsgBox "Error, Desbordamiento (Si anteriormente te dio el resultado ignora este error)", vbCritical, "Error" ' Va al final del control que se quiera detectar errores

    El problema esta en que a cada ratico que la operacion resulta, sale el bendito error

    ¿No hay forma de solucionarlo?

    :D
     
  2. Jrp

    Jrpa1K
    Expand Collapse
    Recluta

    Mensajes:
    40
    Me Gusta recibidos:
    0
    Aca te dejo un codigo Fuente adjunto, de la calculadora que acabo de hacer:

    porsiaca te pego aca el codigo fuente:
    aki una imagen de lo la misma operacion pero con mi codigo fuente :D

    [​IMG]
     

    Archivos Adjuntos:

Compartir esta página