No logro que el contador se incremente

[ARICARRARO]

Aqui esta el código.

Código:

Imports System.Math
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Verificar operaciones"
        Call CrearOperacion()
    End Sub

    Public Sub CrearOperacion()
        TextBox1.Text = CStr(Int(Rnd() * 1000))
        TextBox2.Text = CStr(Int(Rnd() * 1000))
        TextBox3.Clear() 'también puede ser TextBox3.Text=""
    End Sub

    Public Sub Comprobar()
        Dim intentos As Integer
        Dim fallos As Integer
        Dim aciertos As Integer
        Call CrearOperacion()

        

        If TextBox1.Text + TextBox2.Text = TextBox3.Text Then

            intentos = intentos + 1
            TextBox4.Text = CStr(intentos)
            TextBox5.Text = CStr(aciertos)
            aciertos = aciertos + 1
            Call CrearOperacion()


        Else
            fallos = fallos + 1
            TextBox6.Text = CStr(fallos)
        End If

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call Comprobar()

    End Sub
End Class

El problema es que no logro que el contador (o contadores) de fallos, aciertos e intentos se incremente ¿Qué estoy haciendo mal?

Gracias por sus respuestas

[Aquaventus]

hola ARRICARRARO has intentado hacerle seguimiento..? si entra a tu proceso comprobar y no aumenta probablemente es porque debes declarlo como global tu contador y no local dentro de tu proceso para que el valor asignado en tu proceso no se pierda y sea adjuntado a la variable global:

Código vb.net:

Imports System.Math
 
Public Class Form1
 
    Dim intentos As Integer
    Dim fallos As Integer
    Dim aciertos As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Verificar operaciones"
        Call CrearOperacion()
    End Sub
 
    Public Sub CrearOperacion()
        TextBox1.Text = Int(Rnd() * 1000)
        TextBox2.Text = Int(Rnd() * 1000)
        TextBox3.Clear() 'también puede ser TextBox3.Text=""
    End Sub
 
    Public Sub Comprobar()
 
        'Call CrearOperacion()
 
        If Convert.ToInt64(TextBox1.Text) + Convert.ToInt64(TextBox2.Text) = Convert.ToInt64(TextBox3.Text) Then
 
            intentos = intentos + 1
            aciertos = aciertos + 1
            TextBox4.Text = intentos
            TextBox5.Text = aciertos
            Call CrearOperacion()
 
 
        Else
            intentos = intentos + 1
            fallos = fallos + 1
            TextBox4.Text = intentos
            TextBox6.Text = fallos
        End If
 
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call Comprobar()
 
    End Sub
 

[Ka0stj]

Hola ARRICARRARO

Disculapa pero donde toma un valor o texto el TextBox3? esa condición al menos en la sección de código que pegaste no se cumple y los fallos se incrementan.

Saludos!

[Aquaventus]

Textbox3 se supone que es un numero que se va digitar y se va a comparar... Parece una especie de software para niños de calculos matematicos en el cual verifica aciertos intentos errores...

[Ka0stj]

Ok sorry jejeje pues bien pon un breakpoint en la comparación que haces con los textbox y te darás cuenta que nunca se cumple, ahora bien ten cuidado con ese TextBox3.Clear() porque al inicio al parecer te lo manda vacio.

Saludos!

[Ka0stj]

Vientos no habia visto que se lo habias solucionado Aquaventus solo una cosita el problema no residia en la declaracion de los contadores como variables globales pero bueno normalmente asi lo implemento yo también.

Saludos!

[Aquaventus]

tienes razón ka0stj en mi codigo que le pase lo corregí y lo probe y no creo que tenga ya problemas nuestro compañero ARRICARRARO

[Aquaventus]

que raro porque asi como esta sus contadores declarados en el proceso no salia... pero si los declaraba com globales no hay problemas :)

[ARICARRARO]

Gracias a todos por su ayuda. Orita voy a probar sus soluciones.