Make your own free website on Tripod.com
- parte 8
1) Mover los cuatro cuadrados desde L1 hasta L2 en forma aleatoria.
2) Indicar cual es el ganador
3) Con el botón terminar volver los cuadrados al comienzo
Private Sub btnempezar_Click()
Randomize
While (C1.Left < L2.X1 And C2.Left < L2.X1 And C3.Left < L2.X1 And C4.Left < L2.X1)
'Rnd= Random (aleatorio) va de 0,1 a 1, por este motivo se multiplica por 10
C1.Left = C1.Left + Rnd() * 10
C2.Left = C2.Left + Rnd() * 10
C3.Left = C3.Left + Rnd() * 10
C4.Left = C4.Left + Rnd() * 10
Wend
'Para hacer más lento
For I = 1 To 1000
Next
If C1.Left >= L2.X1 Then
MsgBox ("ganador Nº1")
End If
If C2.Left >= L2.X1 Then
MsgBox ("ganador Nº2")
End If
If C3.Left >= L2.X1 Then
MsgBox ("ganador Nº 3")
End If
If C4.Left >= L2.X1 Then
MsgBox ("ganador Nº4")
End If
End Sub
Private Sub btnterminar_Click()
C1.Left = L1.X1
C2.Left = L1.X1
C3.Left = L1.X1
C4.Left = L1.X2
End Sub
Ahora veamos un nuevo Objeto: