Este es el boton de comienzo:
Código:
Este es el boton listo:Private Sub CMDcomenzar_Click() Randomize LBLsuma1.Caption = Int((10 * Rnd) + 1) LBLsuma2.Caption = Int((10 * Rnd) + 1) Timer1.Enabled = True LBLtiempo.Caption = 0 CMDcomenzar.Enabled = False
Código:
Esta es la funcion de random:resultado = Val(LBLsuma1.Caption) + Val(LBLsuma2.Caption) If Val(TXTresultado.Text) = resultado And TXTresultado <> "" Then tiempo = 0 score = score + 3 mensaje = MsgBox("Bien!, tu puntaje es: " & score, , "Panamaro v1.0") random Else score = score - 3 mensaje1 = MsgBox("Volvelo a intentar, tu puntaje es: " & score, , "Panamaro v1.0") random End If
Código:
Mi problema es que, ya intente con muchos codigos, valores booleanos todo xD, el problema es deseo hacer que cuando supere los 30 puntos, se aumente la tolerancia del randomize. Pero en lo que traté de hacer (no puse el codigo aca porque acabo de cerrar visual y abrirlo ) vuelve para atrás el score ... y da error.Private Function random() Randomize LBLsuma1.Caption = Int((10 * Rnd) + 1) LBLsuma2.Caption = Int((10 * Rnd) + 1) Timer1.Enabled = True LBLtiempo.Caption = 0 TXTresultado.Text = "" End Function
Intenté hacer un if score < 30 ...
lo hace, pero cuando le sumo los tres puntos, sigue de largo en el otro if para preguntar nuevamente lo mismo ... digamos que
if score < 30 then
...( se suman 3 puntos a la variable score )
...
end if
Cuando llego a 30, se suman los 3 puntos y me vuelve a preguntar lo mismo ...
if score => 30 then
...
..
Y ACA TENGO EL PROBLEMA xD
El form load empieza con el:
score = 0