![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
29/04/2009, 01:15
|
![Avatar de rulsanchez](http://static.forosdelweb.com/customavatars/avatar267806_1.gif) | | | Fecha de Ingreso: octubre-2008 Ubicación: Manchester
Mensajes: 64
Antigüedad: 16 años, 3 meses Puntos: 0 | |
Respuesta: Tablas de multiplicar 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 |