Tablas de multiplicar

[Xami]

Hola amigos vereis soy nuevo en esto de la programacion, he empezado a leer manuales y este lenguaje es ideal para principiantes, la verdad es q soy muy novato y agradeceria que lo tuvierais en cuenta xD.
bueno lo que quiero hacer es lo siguiente:
un formulario donde salgan labels o imagenes mostrando una multiplicacion y al lado una textbox (solo se puedan introducir numeros) donde el valor que le haya dado al label o image sea validado.
y al final si todos los valores introducidos son correctos desoculte un comandbuton.
y este comandbuton tenga de evento la ejecucion de un comando en el shell de windows.

lo del evento del boton es simple el codigo que uso es este:

Dim ProcID As Integer

ProcID = Shell("comando")

sobre lo de las tablas he encontrado codigo con operaciones que las hacen, pero lo que yo kiero es q compruebe q el valor de un objeto sea igual al dato introducido, y si todos son correctos desoculte el boton.
bueno espero que podais echarme una mano ya que este programa es para mi hermano pekeño xD, que esta aprendiendo las tablas, asi cuando kiera jugar a un juego tendra q saberselas jeje.
saludos y gracias por adelantado

[rulsanchez]

¿Cual es exactamente tu duda Xami?

[Xami]

mi duda es como hacer ese codigo de validacion sin entrar en ningun calculo:
por ejemplo:
el objeto es ina imagen que pone 3x2= cuyo nombre asignado es "6"
3x2=[textbox] el evento del textbox sea comprobar que al meter un numero corresponda al nombre de mi imagen en este caso "6"

[rulsanchez]

Hola de nuevo Xami... tienen que ser imágenes? quiero decir, yo lo plantearia con labels a los que les metes un random de números aleatorios cada vez, y un textbox a su lado para que el usuario meta el resultado, y un boton validar al final. Así en el load pondria esto:

'num_aleatorio=((lim_superior-lim_inferior)*rnd)
'usamos dos variables integer, sino generaria nºs con decimales
Dim op1 As Integer
Dim op2 As Integer
'utilizamos randomize porque sino siempre generaria los mismos nºs aleatorios
Math.Randomize

op1 = ((10 - 0) * Rnd)
op2 = ((10 - 0) * Rnd)
lblOperador1.Caption = op1
lblOperador2.Caption = op2

Y en el boton validar esto:
If Not (Val(lblOperador1.Caption) * Val(lblOperador2.Caption) = Val(txtResultado)) Then
MsgBox "El resultado no es correcto"
Me.txtResultado.Text = ""
txtResultado.SetFocus
End If

(yo te he puesto el ejemplo para una sola operacion, una multiplicacion, ahora tu lo extrapolas a las que tú quieras).
Cuéntame si te vale esto para algo, y sino ya miramos otra cosa.
Un saludo Xami

[Xami]

gracias por responder rulsanchez, veras he intentado insertar tu propuesta de codigo, pero me pasa lo siguiente:
nombro al primer label "tres" y al segundo "dos".
se me subraya esto en azúl y si le paso el boton por encima me pone lo que pongo entrecorchetes. [ ]


'num_aleatorio=((lim_superior-lim_inferior)*rnd)
'usamos dos variables integer, sino generaria nºs con decimales
Dim op1 As Integer
Dim op2 As Integer
'utilizamos randomize porque sino siempre generaria los mismos nºs aleatorios
Math.randomize()['randomize' no es un miembro de 'system.math']

op1 = ((10 - 0) * Rnd())
op2 = ((10 - 0) * Rnd())
tres = op1[un valor de tipo Integer no se puede convertir en 'System.Windows.Forms.Label']
dos = op2[un valor de tipo Integer no se puede convertir en 'System.Windows.Forms.Label'].

uso visual basic 2008 studio por si sirve de informacion (que yo creo que es eso).
saludos y espero no ser muy pesado ya que soy novato, aunque intento aprender.
grax

[David]

Tema transladado desde el foro de Visual Basic Clásico (6.0)