Para los amantes del Visual Basic 6.0, aquí les propongo la realización de un juego tan divertido como ingenioso en su lenguaje favorito. Se llama "Pregunta". Consta del siguiente formulario:
[img]
[/img]
Como ven en la imagen, consta de sólo 3 controles sobre el formulario:
- 1 label (Label1)
- 2 Command Buttons (Command1 y Command2)
El Label1 tiene como caption el texto "¿Quiere $1 000 000?".
El Command1 tiene como caption el texto "Si" y el Command2 "No".
Como es natural todos los jugadores intentarán dar clic en el botón "Si" (el Command1), pero cada vez que lo intenten el botón "huirá" a un sitio distinto del formulario, de manera que es imposible dar clic sobre él. Si por cansancio el jugador decide dar clic en el botón "No" (el Command2), aparecerá una caja de mensajes con el texto: "¡¡¡ Pero mire que Ud. es idiota...!!!".
El truco está en los eventos que se programan para cada control.
Mientras que para el Command2 (es decir el botón "No") se programa el evento click como sigue:
| Código: | Private Sub Command2_Click()
'Botón No
MsgBox "¡¡¡Pero mire que Ud. es idiota...!!!"
End Sub |
para el Command1 (el botón "Si") lo que se programa es el evento MouseMove, que como se sabe, se produce cada vez que se coloque el cursor del mouse encima del control (sin dar clic sobre el mismo). He aquí lo que le programamos a dicho evento:
| Código: | Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Botón Si
Dim x1 As Integer, y1 As Integer
x1 = Rnd() * (Me.ScaleWidth - Command1.Width)
y1 = Rnd() * (Me.ScaleHeight - Command1.Height)
Command1.Left = x1
Command1.Top = y1
End Sub |
Como puede verse, cada vez que se ponga el cursor sobre el Command1, se generan dos números aleatorios X1 y Y1 que corresponden a sendas coordenadas interiores al área cliente del formulario (donde 0 <= x1 < Me.ScaleWidth - Command1.Width y
0 <= x2 < Me.ScaleHeight - Command1.Height).
Para garantizar que el generador de números aleatorios (cuyos valores se obtienen llamando a la función Rnd) se inicialice siempre en un número diferente, en el evento Load del formulario, que se produce al comenzar la ejecución del programa, hacemos un llamado a la función Randomize, que se encarga de inicializar la semilla del generador aleatorio en un nuevo valor con cada llamado:
| Código: | Private Sub Form_Load()
Randomize
End Sub |
De más está decir que los textos que se muestran pueden ser cambiados a gusto de cada cual para hacer más divertida la broma cuando pongan a alguien a jugarlo.
Que lo disfruten. |
