VB escribiendo minijuegos

Coloque dos controles Etiqueta y un control Temporizador en el formulario:

Dim n As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Seleccione Case KeyCode

Caso vbKeyUp

Si Label1.Top > 0 Entonces Label1.Top = Label1.Top - 50

Caso vbKeyDown

Si Label1.Top < ScaleHeight - Label1.Height Entonces Label1.Top = Label1.Top + 50

Caso vbKeyLeft

Si Label1.Left > 0 Entonces Label1.Left = Label1.Left - 50

Caso vbKeyRight

Si Label1.Left < ScaleWidth - Label1.Width Entonces Label1.Left = Label1.Left + 50

Finalizar selección

Verificación de llamadas

Fin de sub

Verificación de sub privada()

Si Abs(Label1.Top - Label2. Arriba) <= 50 Y Abs(Label1.Left - Label2.Left) <= 50 Entonces

n = n + 1

Label2.Move Rnd * ScaleWidth, Rnd * ScaleHeight

Finalizar si

End Sub

Sub privado Form_Load()

KeyPreview = True

Aleatorio

Con Etiqueta1

.Caption = ""

.BackColor = vbWhite

.Move (ScaleWidth - .Width) / 2, (ScaleHeight - .Height) / 2, 500, 500

Finalizar con

Con etiqueta2

.Caption = ""

.BackColor = vbYellow

.Mover Rnd * ScaleWidth, Rnd * ScaleHeight, 500, 500

Finalizar con

Timer1.Interval = 60000

Timer1. Habilitado = Verdadero

End Sub

Private Sub Timer1_Timer()

MsgBox "Esta ronda es correcta" & n & "Segundo cuadrado amarillo"

Descargarme

Fin Sub