Ver Mensaje Individual
  #2 (permalink)  
Antiguo 25/03/2011, 09:53
Avatar de Aquaventus
Aquaventus
 
Fecha de Ingreso: junio-2010
Ubicación: Lima-Peru , En el alba de la naturaleza
Mensajes: 2.105
Antigüedad: 13 años, 10 meses
Puntos: 267
Respuesta: No logro que el contador se incremente

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:
Ver original
  1. Imports System.Math
  2.  
  3. Public Class Form1
  4.  
  5.     Dim intentos As Integer
  6.     Dim fallos As Integer
  7.     Dim aciertos As Integer
  8.  
  9.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  10.         Me.Text = "Verificar operaciones"
  11.         Call CrearOperacion()
  12.     End Sub
  13.  
  14.     Public Sub CrearOperacion()
  15.         TextBox1.Text = Int(Rnd() * 1000)
  16.         TextBox2.Text = Int(Rnd() * 1000)
  17.         TextBox3.Clear() 'también puede ser TextBox3.Text=""
  18.     End Sub
  19.  
  20.     Public Sub Comprobar()
  21.  
  22.         'Call CrearOperacion()
  23.  
  24.         If Convert.ToInt64(TextBox1.Text) + Convert.ToInt64(TextBox2.Text) = Convert.ToInt64(TextBox3.Text) Then
  25.  
  26.             intentos = intentos + 1
  27.             aciertos = aciertos + 1
  28.             TextBox4.Text = intentos
  29.             TextBox5.Text = aciertos
  30.             Call CrearOperacion()
  31.  
  32.  
  33.         Else
  34.             intentos = intentos + 1
  35.             fallos = fallos + 1
  36.             TextBox4.Text = intentos
  37.             TextBox6.Text = fallos
  38.         End If
  39.  
  40.     End Sub
  41.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  42.         Call Comprobar()
  43.  
  44.     End Sub
__________________
Internet es tener todo el conocimiento global a tu disposición.
Desarrollo de Software - Ejemplos .Net

Última edición por Aquaventus; 25/03/2011 a las 10:31