Juego sobre el uso del mouse para los eventos clic, doble clic y arrastrar (página 2)

El juego para
practicar el evento doble clic aparece al hacer clic en el
botón siguiente, y funciona exactamente igual que el juego
para el evento clic, con la única diferencia que los
aciertos y desaciertos serán considerados en base a los
eventos doble
clic:

JUEGO PARA
PRACTICAR EL EVENTO ARRASTRAR

Luego de haber pasado por el juego para practicar el
evento doble clic, cuando el usuario haga clic en el botón
Siguiente llegará al Juego para Practicar el Evento
Arrastrar, que consistirá en arrastrar un texto desde el
TextBox1 hasta el TextBox2. Inicialmente se mostrará esta
pantalla:

Al hacer un acierto aparece el mensaje de
felicitación:

Cuando el usuario no logra arrastrar el texto del
TextBox1 al Textbox2, se pierde un punto:

Cuando el usuario logra arrastrar correctamente el texto
del TextBox1 hacia el TextBox2, gana un punto:

Luego de haber hecho los intentos deseados, cuando se
quiera terminar el juego, se hace clic sobre el botón
Terminar Juego y aparecerán los resultados de aciertos y
desaciertos así como también la nota
correspondiente:

Al hacer clic sobre el botón Principal, el juego
regresa a la pantalla inicial mostrada al ejecutar por primera
vez el programa. De esta
forma, de manera divertida, amena y dinámica, cualquier persona puede
aprender con mucha facilidad y sin aburrimiento el manejo del
Mouse en sus
eventos clic, doble clic y clic de arrastre. Se hace notar
igualmente que para este programa no se hace ninguna
diferenciación entre clic izquierdo y clic derecho, por lo
cual los resultados son los mismos ya sea que se use el clic
izquierdo o el derecho para jugar con el evento clic, doble clic
o clic de arrastre. Luego de varios juegos, un
niño o cualquier persona que esté aprendiendo a
usar el Mouse podrá alcanzar muy buenas habilidades y
facilidad para la manipulación del Mouse. Las notas
alcanzadas reflejarán el nivel que se tiene y el progreso
que se va logrando poco a poco.

CÓDIGO DEL
PROGRAMA

FORMULARIO
EVENTO CLIC

Public Class eventoclick

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'Para que se vea el cambio en la
actualización de la hora segundo a segundo.

Label1.Text = TimeOfDay

Label2.Text = TimeOfDay

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Label1.Location = New Point(x_mio, y_mio)

x_mio = x_mio + horizontal * 10

y_mio = x_mio + vertical * 10

If (y_mio >
(Me.Size.Height –
Label1.Width)) And
(horizontal = 1) Then

horizontal = -1

End If

If (y_mio < 0)
And (horizontal = -1)
Then

horizontal = 1

End If

If (y_mio >
(Me.Size.Height –
Label1.Height)) And
(vertical = 1) Then

vertical = -1

End If

If (y_mio < 0)
And (vertical = -1)
Then

vertical = 1

End If

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

Label2.Location = New Point(x_mio1, y_mio1)

y_mio1 = y_mio1 + vertical1 * 10

If (y_mio1 >
Me.Size.Height – Label2.Height
* 4) Then

vertical1 = 0

End If

If (vertical1 = 0)
Then

x_mio1 = x_mio1 + horizontal1 * 10

End If

If (x_mio1 >
Me.Size.Width –
Label2.Width) Then

horizontal1 = 0

End If

If (horizontal1 = 0)
And (y_mio1 > 0)
Then

vertical1 = -1

y_mio1 = y_mio1 + vertical1 * 10

End If

If (y_mio1 < 1)
And (x_mio1 > 0)
Then

vertical1 = 0

horizontal1 = -1

x_mio1 = x_mio1 + horizontal1 * 10

End If

If (x_mio1 = 0)
And (vertical1 = 0)
Then

horizontal1 = 1

vertical1 = 1

y_mio1 = y_mio1 + vertical1 * 10

End If

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

contadoraciertosclic += 1

TextBoxaciertos.Text =
Str(contadoraciertosclic)

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

contadoraciertosclic += 1

TextBoxaciertos.Text =
Str(contadoraciertosclic)

End Sub

Private Sub eventoclick_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Para que al cargar el formulario se
muestren los contadores inicializados en cero.

TextBoxaciertos.Text = "0"

TextBoxdesaciertos.Text = "0"

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

contadordesaciertosclic += 1

TextBoxdesaciertos.Text =
Str(contadordesaciertosclic)

End Sub

Private Sub
Buttonanterior1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonanterior1.Click

Dim mensaje
As String

mensaje = MsgBox("Esta
acción
cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")

If mensaje = 6
Then

resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.

Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables,
pues si se usara "Me.Hide()" solamente se oculta y quedan activas
todas las variables y todo lo que hay en el
formulario.

Form1.Show() 'Mandar a
llamar al formulario "Form1".

contadordesaciertosclic = 0

contadoraciertosclic = 0

End If

End Sub

Private Sub
Buttonterminarjuego1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonterminarjuego1.Click

Dim mensaje
As String

mensaje = MsgBox("¿Desea realmente terminar este
juego?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")

If mensaje = 6
Then

resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.

Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.

resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.

End If

End Sub

Private Sub
Buttonsiguiente1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsiguiente1.Click

Dim mensaje
As String

mensaje = MsgBox("Esta
acción cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")

If mensaje = 6
Then

resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.

Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.

eventodobleclic.Show() 'Mandar a llamar al formulario "eventodobleclic". El
juego ha terminado.

contadordesaciertosclic = 0

contadoraciertosclic = 0

End If

End Sub

Private Sub
Buttonindicaciones1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonindicaciones1.Click

Me.Hide()
'Oculta el formulario actual.

informacionclic1.Show() 'Muestra el
formulario "informacionclic1".

End Sub

End Class

FORMULARIO EVENTO DOBLE
CLIC

Public Class eventodobleclic

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'Para que se vea el cambio en la
actualización de la hora segundo a segundo.

Label1.Text = TimeOfDay

Label2.Text = TimeOfDay

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Label1.Location = New Point(x_mio, y_mio)

x_mio = x_mio + horizontal * 10

y_mio = x_mio + vertical * 10

If (y_mio >
(Me.Size.Height –
Label1.Width)) And
(horizontal = 1) Then

horizontal = -1

End If

If (y_mio < 0)
And (horizontal = -1)
Then

horizontal = 1

End If

If (y_mio >
(Me.Size.Height –
Label1.Height)) And
(vertical = 1) Then

vertical = -1

End If

If (y_mio < 0)
And (vertical = -1)
Then

vertical = 1

End If

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

Label2.Location = New Point(x_mio1, y_mio1)

y_mio1 = y_mio1 + vertical1 * 10

If (y_mio1 >
Me.Size.Height – Label2.Height
* 4) Then

vertical1 = 0

End If

If (vertical1 = 0)
Then

x_mio1 = x_mio1 + horizontal1 * 10

End If

If (x_mio1 >
Me.Size.Width –
Label2.Width) Then

horizontal1 = 0

End If

If (horizontal1 = 0)
And (y_mio1 > 0)
Then

vertical1 = -1

y_mio1 = y_mio1 + vertical1 * 10

End If

If (y_mio1 < 1)
And (x_mio1 > 0)
Then

vertical1 = 0

horizontal1 = -1

x_mio1 = x_mio1 + horizontal1 * 10

End If

If (x_mio1 = 0)
And (vertical1 = 0)
Then

horizontal1 = 1

vertical1 = 1

y_mio1 = y_mio1 + vertical1 * 10

End If

End Sub

Private Sub
Buttonsiguiente11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsiguiente11.Click

Dim mensaje
As String

mensaje = MsgBox("Esta
acción cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")

If mensaje = 6
Then

resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.

Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.

eventodraganddrop.Show() 'Mandar a llamar al formulario "eventodraganddrop". El
juego ha terminado.

contadordesaciertosdobleclic = 0

contadoraciertosdobleclic = 0

End If

End Sub

Private Sub
Buttonanterior11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonanterior11.Click

Dim mensaje
As String

mensaje = MsgBox("Esta
acción cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")

If mensaje = 6
Then

resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.

Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.

eventoclick.Show() 'Mandar
a llamar al formulario "eventoclick". El juego ha
terminado.

contadordesaciertosdobleclic = 0

contadoraciertosdobleclic = 0

End If

End Sub

Private Sub
Buttonterminarjuego11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonterminarjuego11.Click

Dim mensaje
As String

mensaje = MsgBox("¿Desea realmente terminar este
juego?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")

If mensaje = 6
Then

resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.

Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.

resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.

contadoraciertosarrastrar = 0

contadordesaciertosarrastrar = 0

End If

End Sub

Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick

contadoraciertosdobleclic += 1

TextBoxaciertos.Text =
Str(contadoraciertosdobleclic)

End Sub

Private Sub Label2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.DoubleClick

contadoraciertosdobleclic += 1

TextBoxaciertos.Text =
Str(contadoraciertosdobleclic)

End Sub

Private Sub
PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick

contadordesaciertosdobleclic += 1

TextBoxdesaciertos.Text =
Str(contadordesaciertosdobleclic)

End Sub

Private Sub
Buttonindicaciones11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonindicaciones11.Click

Me.Hide()
'Oculta el formulario actual.

informaciondobleclic1.Show() 'Muestra el formulario
"informaciondobleclic1".

End Sub

Private Sub
eventodobleclic_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Para que al cargar el formulario se
muestren los contadores inicializados en cero.

TextBoxaciertos.Text = "0"

TextBoxdesaciertos.Text = "0"

End Sub

End Class

FORMULARIO EVENTO ARRASTRAR

Public Class eventodraganddrop

Private MouseIsDown
As Boolean = False

Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As _

System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown

' Set a flag to show that the mouse is
down.

MouseIsDown = True

End Sub

Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As _

System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove

If MouseIsDown
Then

' Initiate dragging.

TextBox1.DoDragDrop(TextBox1.Text,
DragDropEffects.Copy)

End If

MouseIsDown = False

End Sub

Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As _

System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter

' Check the format of the data being
dropped.

If
(e.Data.GetDataPresent(DataFormats.Text))
Then

' Display the copy cursor.

e.Effect = DragDropEffects.Copy

Else

' Display the no-drop cursor.

e.Effect = DragDropEffects.None

End If

End Sub

Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As _

System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop

' Paste the text.

TextBox2.Text =
e.Data.GetData(DataFormats.Text)

End Sub

Private Sub
eventodraganddrop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.ReadOnly = True 'Al cargar el
formulario el TextBox1 no está habilitado para escritura. Se
habilitará únicamente cuando el usuario haga clic
en el botón comenzar, pues es entonces que se comienza a
contar el tiempo.

'Para que al cargar el formulario se
muestren los contadores inicializados en cero.

TextBoxaciertos.Text = "0"

TextBoxdesaciertos.Text = "0"

End Sub

Private Sub
Buttonterminarjuego11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonterminarjuego11.Click

Dim mensaje
As String

mensaje = MsgBox("¿Desea realmente terminar este
juego?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")

If mensaje = 6
Then

resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.

Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.

resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.

End If

End Sub

Private Sub
Buttoncomenzar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncomenzar1.Click

Timer1.Enabled = True

Timer2.Enabled = True

TextBox1.Text = "Arrastrar
texto"

TextBox3.Text = ""
'Para que borre el resultado del proceso
anterior.

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'El Timer1 tiene un Interval de 5000,
quiere decir que cada 5 segundos se ejecuta, aunque con el
"Timer1.Enabled = False" se desactiva.

If TextBox1.Text =
TextBox2.Text And
TextBox1.Text <> "" Then
'Con esto se garantiza que el usuario ha
podido arrastrar correctamente el texto del TextBox1 al TextBox2,
pues si no ha escrito nada la respuesta es mala. No podrá
escribir directamente en el TextBox2 porque está protegido
contra escritura. Entonces la única manera de que el
usuario tenga esta parte correcta es que haya arrastrado
correctamente el texto que escribió en el TextBox1 al
TextBox2.

contadoraciertosarrastrar += 1

TextBox3.Text = "Felicidades, has ganado un punto."

TextBoxaciertos.Text =
Str(contadoraciertosarrastrar)

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.ReadOnly = True 'Para que no se pueda
escribir en el TextBox1, sino que esté activado
únicamente al comenzar a contar el tiempo.

Else

contadordesaciertosarrastrar += 1

TextBox3.Text = "Lo
sentimos, has perdido un punto."

TextBoxdesaciertos.Text =
Str(contadordesaciertosarrastrar)

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.ReadOnly = True 'Para que no se pueda
escribir en el TextBox1, sino que esté activado
únicamente al comenzar a contar el tiempo.

End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Timer1.Enabled = False 'Para que solamente
una vez se dé el resultado correcto o equivocado del
arrastre del usuario, y que se vuelva a activar hasta que se haga
otro clic.

Timer2.Enabled = False 'Se desactiva el
Timer2 (que es el que sirve para desactivar el Timer1.

End Sub

Private Sub
Buttonanterior11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonanterior11.Click

Dim mensaje
As String

mensaje = MsgBox("Esta
acción cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")

If mensaje = 6
Then

resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".

resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.

Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.

eventodobleclic.Show() 'Mandar a llamar al formulario "eventodobleclic". El
juego ha terminado.

contadordesaciertosarrastrar = 0

contadoraciertosarrastrar = 0

End If

End Sub

End Class

FORMULARIO DE INICIO DEL
PROGRAMA

Public Class Form1

'Poner el formulario ovalado.

Protected Overrides Sub
OnPaint(ByVal
Pintar As
PaintEventArgs)

Dim Elipse
As New
Drawing2D.GraphicsPath()

Dim Rectangulo
As New
Rectangle(8, 28, Me.Width – 13, Me.Height – 40) 'La coordenada "x" de la esquina superior izquierda del
rectángulo tiene el valor de 7
para que n o se vea el borde izquierdo del formulario. La
coordenada "y" de la esquina superior izquierda del
rectángulo tiene el valor de 26, con lo cual se logra que
no aparezca la barra de título en el formulario. El ancho
del rectángulo es "Me.Width – 13" para que no se vea el
borde derecho del formulario. El alto del rectángulo es
"Me.Height – 31" para que no se vea la línea inferior del
borde.

Elipse.AddEllipse(Rectangulo)

Me.Region =
New Region(Elipse)

End Sub

Private Sub
Buttonsiguiente1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsiguiente1.Click

Me.Hide()
'Oculta el formulario actual.

eventoclick.Show() 'Muestra
el formulario "eventoclick".

End Sub

End Class

FORMULARIO DE INFORMACIÓN DEL JUEGO
EVENTO CLIC

Public Class informacionclic1

Private Sub
Buttoncerrar1_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles Buttoncerrar1.Click

Me.Hide()
'Oculta el formulario actual.

eventoclick.Show() 'Muestra
el formulario "eventoclick".

End Sub

End Class

FORMULARIO DE INFORMACIÓN
DEL JUEGO EVENTO DOBLE CLIC

Public Class informaciondobleclic1

Private Sub
Buttoncerrar1_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles Buttoncerrar1.Click

Me.Hide()
'Oculta el formulario actual.

eventodobleclic.Show() 'Muestra el formulario "eventodobleclic".

End Sub

End Class

MÓDULO
PARA LA DECLARACIÓN DE VARIABLES
PÚBLICAS

Module Module1

'Variables para ir controlando el
movimiento de
los Label que contendrán la hora y estarán en
movimiento.

Public x_mio
As Integer = 0

Public y_mio
As Integer = 0

Public horizontal
As Integer = 1

Public vertical
As Integer = 1

Public x_mio1
As Integer = 0

Public y_mio1
As Integer = 0

Public horizontal1
As Integer = 1

Public vertical1
As Integer = 1

'Contadores que van a manipular los
resultados de aciertos o desaciertos.

Public
contadoraciertosclic As
Integer

Public
contadordesaciertosclic As Integer

Public
contadoraciertosdobleclic As Integer

Public
contadordesaciertosdobleclic As Integer

Public
contadoraciertosarrastrar As Integer

Public
contadordesaciertosarrastrar As Integer

End Module

FORMULARIO PARA MOSTRAR RESULTADOS OBTENIDOS
EN LOS JUEGOS

Public Class resultado1

'Poner el formulario ovalado.

Protected Overrides Sub
OnPaint(ByVal
Pintar As
PaintEventArgs)

Dim Elipse
As New
Drawing2D.GraphicsPath()

Dim Rectangulo
As New
Rectangle(8, 28, Me.Width – 13, Me.Height – 40) 'La coordenada "x" de la esquina superior izquierda del
rectángulo tiene el valor de 7 para que n o se vea el
borde izquierdo del formulario. La coordenada "y" de la esquina
superior izquierda del rectángulo tiene el valor de 26,
con lo cual se logra que no aparezca la barra de título en
el formulario. El ancho del rectángulo es "Me.Width – 13"
para que no se vea el borde derecho del formulario. El alto del
rectángulo es "Me.Height – 31" para que no se vea la
línea inferior del borde.

Elipse.AddEllipse(Rectangulo)

Me.Region =
New Region(Elipse)

End Sub

Private Sub
Buttonprincipal1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonprincipal1.Click

Me.Hide()
'Oculta el formulario actual.

Form1.Show() 'Muestra el
formulario "Form1".

End Sub

End Class

Otro detalle importante de mencionar es que el
formulario "eventoclick.vb" tiene tres Timer, los cuales tienen
todos la propiedad
"Enabled = True" y la propiedad "Interval = 100". Lo mismo sucede
para el formulario "eventodobleclic.vb". El formulario
"eventodraganddrop.vb" tiene dos Timer, ambos tienen la propiedad
"Enabled = False"; el Timer1 tiene "Interval = 5000" mientras que
el Timer2 tiene "Internal = 6000".

Jaime Montoya

Santa Ana, 20 de febrero de 2008

El Salvador