AYUDA!! Sobre un programa de numeros Random y Timer ??

Iniciado por Laura_12, 4 Junio 2007, 22:50 PM

0 Miembros y 1 Visitante están viendo este tema.

Laura_12

URGENTE

NECESITO QUE ME AYUDEN EN UNA TAREA ES PARA MAÑANA


Como seria el codigo para que en un programa despliege en pantalla 2 numeros randoms entre el 1 y el 10 y que aleatoriamente salga un signo matematico (que los sume , reste, mutiplique o divida)  P/e. 8 * 9 =  12... el usuario debe de ingresa el resultado  en menos de 20 segundos... AHORA cómo le pondria esa condicion que despues de 20 segundos cambie la operación ... asi sucesivamente... debe de ser con Timer...
[/size]


POR FAVOR AYUDENME CON EL CODIGO   :D



Se los agradeceria mucho... (es mi derecho a exam sem)
[/size][/size]

Jareth

#1

Option Explicit
Dim hola() As String, hi As String
Private Sub Command1_Click()
Dim conta As String
Label1.Caption = Int(Rnd * 10) + 1
Label2.Caption = Int(Rnd * 10) + 1
conta = Int(Rnd * 4) + 1
Label3.Caption = Right(hola(conta), conta)
Timer1.Enabled = True
End Sub

Private Sub Form_Load()

hi = ",+,-,*,/"
hola = Split(hi, ",")

End Sub

Private Sub Timer1_Timer()
Dim result As String
If Label3.Caption = "+" Then
If Not Text1.Text = Label1.Caption + Label2.Caption Then
MsgBox "No lo escribistes a tiempo!"
End If: End If
End Sub

Bueno lo he hecho asi rapido y la idea esta mas que clara,como vi qeu es para mañana y lei algo de examen me solidaricé,XD.
Espero que te sirva y suerte!
Saludos.

PD:Modiifcalo a tu gusto,el timer ponlo en 20*1000(20 seg) y haz los cambios necesarios.Usa 3 labels 1 commadn y 1 text.
Ah y para que cada vez que se ejecute sea aleatorio en el Form_load pon:"Randomize" o al principio del command1_click