Cómo hacer un juego pong con el Código de VB

La simplicidad es la clave para la brillantez. Los videojuegos se han seguido creciendo en complejidad, desde sus inicios , pero el título que es un nombre muy conocido entre los jugadores de todas las generaciones todavía sigue para hipnotizar . Ese juego es Pong. Gracias a la tecnología moderna, como Visual Basic, puede crear su propio estilo de juego de pong con toda la sencillez y la locura aditivo que puede o no puede recordar cuando era niño. Instrucciones
1

Abra Visual Basic y haga clic en Crear , situado en la esquina superior izquierda. Desde la ventana de selección de aplicación de Windows Form resultante o del sitio Web por su preferencia y escriba el título del juego en el campo Nombre .
2

Seleccione Ver en el menú seguido de la Caja de Herramientas . Haga doble clic en los objetos que desea utilizar para su juego y arrastrarlos a la forma en la pantalla
3

Escriba el siguiente código en la página de codificación resultante : . Vmom Dim As Integer los sostenimientos verticales hmom momentumDim de la bola As Integer ' mantiene horizontal momentumPrivate Sub Form_Load de la bola () Randomize'make los ímpetus verticales y horizontales randomvmom = 100 + INT ( RND * 200 ) hmom = 100 + Int ( RND * 200 ) End Sub SubPrivate Form_MouseMove ( Button As Integer , Shift As Integer , X As Single , Y As Single ) ' mover la pala para el ratón positionShape1.Left = X - ( Shape1.Width /2 ) End Sub SubPrivate Timer1_Timer ()' se mueve la pelota , basado en el virtical y horizontal momenutmShape2.Top = Shape2.Top + vmomShape2.Left = Shape2.Left + hmom'see si la bola está golpeando la superficie de la paleta Si ( + Shape2.Top Shape2.Height ) > Shape1.Top ThenIf Shape2 . Left + Shape2.Width > = Shape1.Left Y Shape2.Left < = Shape1.Left + Shape1.Width Thenvmom = - vmomEnd IfEnd If'see si la pelota ha tocado el borde de la screenIf ( Shape2.Left + Shape2 . Ancho ) > Form1.Width ThenShape2.Left Form1.Width = - = - Shape2.Widthhmom hmom ' esto invierte su bola directionElseIf Shape2.Left < 0 = ThenShape2.Left 0hmom = - hmom ' esto invierte su bola directionElseIf Shape2.Top < 0 = ThenShape2.Top 0vmom = - vmom ' esto invierte su bola directionElseIf Shape2.Top > Form1.Height ThenMsgBox " perdiste " Timer1.Enabled = FalseEnd IfEnd Sub
4

Presione F5 para ejecutar el programa .