Cómo hacer una calculadora con Visual Basic 6

Paso 6

Inicializa bLeft. Crea subrutina Form_Load (escribiéndola o doble clic en zona vacía del formulario). Dentro, pon bLeft = True porque el primer número será el izquierdo:

Private Sub Form_Load()
    bLeft = True
End Sub

Paso 7

Crea subrutina que gestione el clic en cualquier botón numérico. Usamos subrutina porque el código es idéntico para los 10 botones, evitando repetirlo. Escribe bajo el End Sub de Form_Load:

Private Sub AddNumber(sNumber As String)
    If bLeft Then
        sLeft = sLeft + sNumber
        tbResult.Text = sLeft
    Else
        sRight = sRight + sNumber
        tbResult.Text = sRight
    End If
End Sub

Esta función toma un parámetro string sNumber (el número del botón pulsado). Si bLeft es True, lo añade a sLeft y actualiza tbResult. Si False, hace lo mismo con sRight.

Finalmente, crea un evento Click para cada botón numérico que llame a AddNumber. Doble clic en cada botón numérico crea la estructura; añade la llamada. Para el botón 0:

Private Sub btn0_Click()
    AddNumber ("0")
End Sub

Para el 1:

Private Sub btn1_Click()
    AddNumber ("1")
End Sub

Paso 8

Gestiona operadores: +, -, *, /. Igual que antes, subrutina llamada desde eventos Click de botones de operador:

Private Sub AddOperator(sNewOperator As String)
    If bLeft Then
        sOperator = sNewOperator
        bLeft = False
    Else
        btnEquals_Click
        sOperator = sNewOperator
        sRight = ""
        bLeft = False
    End If
End Sub

Si bLeft es True (usuario acaba de entrar lado izquierdo), guarda operador en sOperator y pone bLeft = False (ya no se entra lado izquierdo). Para encadenar operadores (ej. 9 * 3 * 2 * 6), si bLeft es False (usuario pulsó operador cuando se esperaba igual), llama a btnEquals_Click (próximo paso) que calcula y muestra resultado parcial. Luego limpia sRight para siguiente número y pone bLeft = False.

Añade llamada a AddOperator en cada botón operador. Para +:

Private Sub btnPlus_Click()
    AddOperator ("+")
End Sub

Para -:

Private Sub btnMinus_Click()
    AddOperator ("-")
End Sub

Paso 9

Crea evento Click para botón Igual (=), el más complejo. Doble clic en el botón = para crear estructura. Código:

Private Sub btnEquals_Click()
    If sLeft <> "" And sRight = "" And sOperator <> "" Then
        sRight = sLeft
    End If

    If sLeft <> "" And sRight <> "" And sOperator <> "" Then
        iLeft = sLeft
        iRight = sRight
        Select Case sOperator
            Case "+"
                iResult = iLeft + iRight
            Case "-"
                iResult = iLeft - iRight
            Case "/"
                iResult = iLeft / iRight
            Case "*"
                iResult = iLeft * iRight
        End Select
        tbResult.Text = iResult
        sLeft = iResult
        sRight = ""
        bLeft = True
    End If
End Sub

Las primeras 3 líneas: si solo hay lado izquierdo y operador, copia izquierdo a derecho (comportamiento estándar: 9 * = → 81). El resto ejecuta solo si hay ambos lados y operador. Copia strings a variables Double para calcular. Select Case ejecuta operación según operador, guarda en iResult. Actualiza textbox, copia resultado a sLeft, resetea sRight, pone bLeft = True para permitir encadenar cálculos.

Paso 10

Gestiona tres botones restantes: raíz cuadrada (√), % y 1/x.
Para √:

Private Sub btnSqrt_Click()
    If sLeft <> "" Then iLeft = sLeft Else iLeft = 0
    If sRight <> "" Then iRight = sRight Else iRight = 0
    If bLeft Then
        iLeft = Math.Sqr(iLeft)
        tbResult.Text = iLeft
    Else
        iRight = Math.Sqr(iRight)
        tbResult.Text = iRight
    End If
    If iLeft <> 0 Then sLeft = iLeft Else sLeft = ""
    If iRight <> 0 Then sRight = iRight Else sRight = ""
End Sub

Primeras 11 líneas: si no hay valor en un lado, usa 0 para evitar error. Líneas medias: calcula raíz del lado actual (izq o der). Final: revierte comprobaciones iniciales para copiar 0 como string vacío.

Para % (solo si ambos lados entrados):

Private Sub btnPercent_Click()
    If Not bLeft Then
        If sRight <> "" Then iRight = sRight Else iRight = 0
        iRight = iRight * (iLeft / 100)
        tbResult.Text = iRight
        If iRight <> 0 Then sRight = iRight Else sRight = ""
    End If
End Sub

Para 1/x (fracción):

Private Sub btnFraction_Click()
    If sLeft <> "" Then iLeft = sLeft Else iLeft = 0
    If sRight <> "" Then iRight = sRight Else iRight = 0
    If bLeft Then
        iLeft = 1 / iLeft
        tbResult.Text = iLeft
    Else
        iRight = 1 / iRight
        tbResult.Text = iRight
    End If
    If iLeft <> 0 Then sLeft = iLeft Else sLeft = ""
    If iRight <> 0 Then sRight = iRight Else sRight = ""
End Sub

Paso 11

Botones C (borra todo) y CE (borra entrada actual):

Private Sub btnC_Click()
    sLeft = ""
    sRight = ""
    sOperator = ""
    tbResult.Text = "0"
    bLeft = True
End Sub

Private Sub btnCE_Click()
    If bLeft Then sLeft = "" Else sRight = ""
    tbResult.Text = "0"
End Sub

Paso 12

Ejecuta tu calculadora y haz cualquier cálculo. Este programa puede ampliarse fácilmente para más operaciones, cálculos complejos o incluso calculadora científica con un poco de trabajo extra.

Consejo

Si hay errores, revisa línea a línea, enfocándote en las que VB señala, y compara con el código de arriba. El código de este artículo ha sido probado y está libre de errores; copiarlo fielmente dará un programa funcional. Si usas versión anterior de VB, pueden haber cambios (ej. VB anterior usaba Math.Sqrt() en vez de Math.Sqr()). Consulta la referencia de tu versión.