Juego ahorcado visual basic

Programación Orientada a Objetos


Proyecto PING PONG 3000

Bueno en este proyecto se realizo un pequeño juego que es un ping pong por medio de cordenadas X , Y para poder mover la pelota sin nesesidad de usar hilos tambien tiene un nivel de dificultdad como se puede ver y un unicio que es el login donde se manejan contraseñas como una pequeña base de datosDesarrolo: Pues es algo facil ya que no ocupa mucha logia solo saber comando y como implementar el if y los formularos MDI y colores se usaron varias clases muy faciles de implementar como el login que solo es una comparacion de digitos.
En la parte del juego donde el usuario mueve la pelotita Esta programado para que no pueda perder el cpu pero tiene una funcion random que haceperder al cpu de 1 a 1000
#Region "Varialbes Globales y velocidad"
Dim speed As Single = 10 ' Velocidad de la bolita
Dim rndInst As New Random() ' Error Random para ganar
Public xVel As Single = Math.Cos(rndInst.Next(9, 10)) * speed
Public yVel As Single = Math.Sin(rndInst.Next(9, 10)) * speed

Private Sub Noob_Click(sender As Object, e As EventArgs) Handles Noob.ClickNoob.Checked = True
If Normal.Checked = True Then
Normal.Checked = False
End If
If Dificil.Checked = True Then
Dificil.Checked = False
End If
If GODMODE.Checked = True Then
GODMODE.Checked = False
End If
xVel = xVel * 2
yVel = yVel * 2

End Sub

Private SubNormal_Click(sender As Object, e As EventArgs) Handles Normal.Click
Normal.Checked = True
If Noob.Checked = True Then
Noob.Checked = False
End If
If Dificil.Checked = True Then
Dificil.Checked = False
End If
If GODMODE.Checked = True Then
GODMODE.Checked = False
End If
xVel = xVel * 3yVel = yVel * 3

End Sub

Private Sub Dificil_Click(sender As Object, e As EventArgs) Handles Dificil.Click
Dificil.Checked = True
If Normal.Checked = True Then
Normal.Checked = False
End If
If Noob.Checked = True Then
Noob.Checked = False
End If
If GODMODE.Checked = True Then
GODMODE.Checked= False
End If
xVel = xVel * 4
yVel = yVel * 4

End Sub

Private Sub GODMODE_Click(sender As Object, e As EventArgs) Handles GODMODE.Click
GODMODE.Checked = True
If Normal.Checked = True Then
Normal.Checked = False
End If
If Dificil.Checked = True Then
Dificil.Checked = False
End IfIf GODMODE.Checked = True Then
Noob.Checked = False
End If
xVel = xVel * 4.5
yVel = yVel * 4.5
End Sub
#End Region

#Region "Movimiento del raton"
' La paleta de mueve de acuerdo a la posocion del raton
Private Sub pongMain_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMoveIf e.Y > 5 And e.Y < Me.Height - 40 - Player.Height Then _
Player.Location = New Point(Player.Location.X, e.Y)

If PlayerScore.Text = 1 Then
GameTimer.Stop()
MsgBox("Perdistes")
PlayerScore.Text = 0.0
End If
End Sub
#End Region

#Region "Funciones Del Timer"
Private Sub gameTimer_Tick(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles GameTimer.Tick

'Aimbot Programado para que la paleta del pc pege en la pelota."
If gameBall.Location.Y > 5 And gameBall.Location.Y < Me.Height - 40 _
- Player.Height Then _
Computer.Location = New Point(Computer.Location.X, gameBall.Location.Y)

' Movimiento de la bolita.
gameBall.Location = New...