MCP73831 Pin Descriptions

S

sustaita

que le falta a este codigo Public Class Form1
Dim operando1, operando2 As Single
Dim operando2 As Single = 0
Dim operador As Char
Private Sub BTN_1_Click(sender As Object, e As EventArgs) Handles BTN_1.Click
    TB_Display.Text = TB_Display.Text &= "1"
End Sub

Private Sub BTN_2_Click(sender As Object, e As EventArgs) Handles BTN_2.Click
    TB_Display.Text = TB_Display.Text &= "2"
End Sub

Private Sub BTN_3_Click(sender As Object, e As EventArgs) Handles BTN_3.Click
    TB_Display.Text = TB_Display.Text &= "3"
End Sub

Private Sub BTN_4_Click(sender As Object, e As EventArgs) Handles BTN_4.Click
    TB_Display.Text = TB_Display.Text &= "4"
End Sub

Private Sub BTN_5_Click(sender As Object, e As EventArgs) Handles BTN_5.Click
    TB_Display.Text = TB_Display.Text &= "5"
End Sub

Private Sub BTN_6_Click(sender As Object, e As EventArgs) Handles BTN_6.Click
    TB_Display.Text = TB_Display.Text &= "6"
End Sub

Private Sub BTN_7_Click(sender As Object, e As EventArgs) Handles BTN_7.Click
    TB_Display.Text = TB_Display.Text &= "7"
End Sub

Private Sub BTN_8_Click(sender As Object, e As EventArgs) Handles BTN_8.Click
    ITB_Display.Text = TB_Display.Text &= "8"
End Sub

Private Sub BTN_9_Click(sender As Object, e As EventArgs) Handles BTN_9.Click
    TB_Display.Text = TB_Display.Text &= "9"
End Sub

Private Sub BTN_0_Click(sender As Object, e As EventArgs) Handles BTN_0.Click
    TB_Display.Text = TB_Display.Text &= "0"
End Sub

Private Sub BTN_Suma_Click(sender As Object, e As EventArgs) Handles BTN_Suma.Click
    operando2 = Val(TB_Display.Text)
    operador = "+"
    TB_Display.Clear()
End Sub

Private Sub BTN_Resta_Click(sender As Object, e As EventArgs) Handles BTN_Resta.Click
    operando1 = Val(TB_Display.Text)
    oprador = "-"
    TB_Display.Clear()
End Sub

Private Sub BTN_Multi_Click(sender As Object, e As EventArgs) Handles BTN_Multi.Click
    operando1 = Val(TB_Display.Text)
    oprador = "*"
    TB_Display.Clear()
End Sub

Private Sub BTN_Divic_Click(sender As Object, e As EventArgs) Handles BTN_Divic.Click
    operando1 = Val(TB_Display.Text)
    operador = "+"
    TB_Display.Clear()
End Sub

Private Sub BTN_Igual_Click(sender As Object, e As EventArgs) Handles BTN_Igual.Click
    operando1 = Val(TB_Display.Text)
    Select Case operador
        Case "+"
            TB_Display.Text = (operando1 + operando2)
        Case "-"
            TB_Display.Text = (operando1 - operando2)
        Case "*"
            TB_Display.Text = (operando1 * operando2)
        Case "/"
            TB_Display.Text = (operando1 / operando2)
    End Select
End Sub

Private Sub BTN_Borrar_Click(sender As Object, e As EventArgs) Handles BTN_Borrar.Click
    operando1 = 0
    operando2 = 0
    operador = " "
    inicio = True
    inicia_operando2 = False
    TB_Display.Text = "0"
End Sub

Private Sub BTN_Retroceso_Click(sender As Object, e As EventArgs) Handles BTN_Retroceso.Click
    MsgBox(TB_Display.Text.Substring(0, TB_Display.Text.Length))
    If TB_Display.Text.Length = 1 Then
        TB_Display.Text = 0
    Else
        TB_Display.Text = TB_Display.Text.Substring(0, TB_Display.Text.Length - 1)
    End If

End Sub
End Class

flux

Aquí tienes algunos aspectos que faltan o necesitan corrección en el código:

Table

ProblemaDescripciónCorrección Sugerida
Declaración duplicadaSe declara la variable operando2 dos veces: una en la primera línea y otra con asignación a 0.Elimina la segunda declaración y asigna 0 solo una vez, por ejemplo: Dim operando1, operando2 As Single y luego en el evento de inicio o en el botón de borrar, asigna operando2 = 0.
Errores de escritura en el operadorEn los eventos de botón de resta y multiplicación se utiliza la variable opradador en lugar de operador.Cambia opradador por operador en ambos botones.
Operador incorrecto en divisiónEn el botón de división (BTN_Divic_Click) se asigna el operador “+” en lugar de “/”.Asigna operador = "/" en el evento correspondiente al botón de división.
Error tipográfico en BTN_8_ClickSe utiliza ITB_Display.Text en lugar de TB_Display.Text.Corrige el nombre del control a TB_Display.Text.
Variables no declaradasSe utilizan las variables inicio e inicia_operando2 en BTN_Borrar_Click sin haber sido declaradas.Decláralas previamente (por ejemplo, Dim inicio As Boolean y Dim inicia_operando2 As Boolean) o retira su uso si no son necesarias.
Con estas correcciones, el código debería funcionar de forma más adecuada.
Fix code errors
Define missing variables
Refactor and test
Sign up to send
No schematic yet

Talk to Flux to get started.