Diseño del curso VB, dibuje una rueda girando a una velocidad constante en la línea horizontal. La apariencia de la rueda la puede determinar usted mismo.

'Añadir control Temporizador1, Forma1.Línea1

'La tecla izquierda se mueve hacia la izquierda y la tecla derecha se mueve hacia la derecha, la tecla arriba acelera y la tecla abajo desacelera

'El espacio es. temporalmente |Inicio

Atenuar velocidad como entero

Atenuar pos como booleano

Sub formulario privado_KeyDown(Código clave como entero, Mayús como entero)

Seleccione Case KeyCode

Caso 40 'Presione la tecla para reducir la velocidad

Velocidad = IIf(Velocidad > 15, Velocidad - 15, 15)

Caso 38' Pulsa arriba Tecla aceleración

Velocidad = IIf(Velocidad < 150, Velocidad + 15, 150)

Caso 39' Tecla derecha a la derecha

Pos = False

Caso 37 ' Tecla izquierda a la izquierda

Pos = True

Caso 32 ' Barra espaciadora para iniciar o pausar

Timer1.Enabled = Not Timer1.Enabled

End Select

End Sub

Private Sub Form_Load( )

Velocidad = 50

Timer1.Interval = 100

Timer1.Enabled = False

Me.AutoRedraw = False

Con Línea1

.X1 = 600

.X2 = 7000

.Y1 = 2200

.Y2 = 2200

Termina con

Con Forma1

.Forma = 3

.Izquierda = 120

. Alto = 1215

.Ancho = 2295

.Top = 1000

Finalizar con

Fin Sub

Private Sub Timer1_Timer()

Cls

Imprimir "Velocidad actual:" & Velocidad

Imprimir "Dirección:" & IIf(Pos, "izquierda", " derecha")

Forma1.Izquierda = Forma1.Izquierda + IIf(Pos, - Velocidad, Velocidad)

End Sub