Manual De Pong
Este manual es para los tecnicos en computacion y contiene el codigo que utilize para crear el programa con su explicacion de cómo se utiliza cada codigo.
Public Class usario
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
'activa el boton 1
Button1.Enabled = TrueEnd Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
'activa el boton 1
Button1.Enabled = True
End Sub
Private Sub usario_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'desactiva el botn al empesar el formularioButton1.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'esconde el formulario
Me.Hide()
'muestra el formulario principal
frmPrincipal.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click'esconde el formulario
Me.Hide()
'muestra el formulario victorias
victorias.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'cierra el formulario
Me.Close()
'Cierra el formulario principal
frmPrincipal.Close()
'Cierra el formulario Victoriasvictorias.Close()
End Sub
End Class
--------------------------------------------------------------------------------------------------------------
'activa el modo explicito
Option Explicit On
'importa la libreria io
Imports System.IO
Public Class frmPrincipal
'estas variables son para ver que usuario va a ser el que juege
Dim jugador2 As Boolean
Dim CPU AsBoolean
'Variables para mover la bola
Dim velocidad As Single = 20
Dim aleatorio As New Random()
Dim AnguloX As Single = Math.Cos(aleatorio.Next(5, 10)) * velocidad
Dim AnguloY As Single = Math.Sin(aleatorio.Next(5, 10)) * velocidad
'Variables globales para determinar la puntuación
Dim puntuacionCPU As Integer = 0
Dim puntuacionJugador As Integer = 0'variables de historial de victorias
Dim objEscritor As StreamWriter
Dim ganador As String
Private Sub frmPrincipal_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
' si jugador esta activado hacer lo siguiene
If jugador2 = True Then
'si presionan la tecla a hacer lo siguiente
Ife.KeyCode = Keys.A Then
'si la tabla del jugador esta ariva de 5 pixeles y abajo de 40pixeles del tope hacer lo siguiente
If tablaJugador2.Location.Y > 5 And lblJugador2.Location.Y < Me.Height - 40 - tablaJugador2.Height Then
'mover la tabal asia arriba 40 pixeles
tablaJugador2.Location = New Point(tablaJugador2.Location.X,tablaJugador2.Location.Y - 20)
End If
'delocontrario si presionan la tecla z hacer lo suiguiente
ElseIf e.KeyCode = Keys.Z Then
'si la tabal estavajo de 40 pixeles de el borde del formulario hacer lo siguiente
If tablaJugador2.Location.Y < Me.Height - tablaJugador2.Height Then
'mover la tabal deljugador hacia abajo
tablaJugador2.Location = New Point(tablaJugador2.Location.X, tablaJugador2.Location.Y + 20)
End If
End If
End If
'si presionan la tecla esc hacer lo siguiente
If e.KeyCode = Keys.Escape Then
'cerrar el formulario
Me.Close()
'cerrar el formulario usuario...
Regístrate para leer el documento completo.