Juego de "Tenis"

**Arielo** · 03/10/2007, 12:37

Hola...
Aquí les traigo el código de un juego de "tenis" que acabo de hacer...
Es muy simple, también... Sólo hay que ponerle el ángulo y la velocidad inicial del tiro, para tratar de que pase por sobre la red, y no se salga de la cancha...

Podrán nota, que hay un par de variables definidas y con un valor inicial:
Viento (comienza valiendo cero)
Gravedad (comienza valiendo 9.8)
El valor de Gravedad, es el de la gravedad terrestre a nivel del mar...
El valor de Viento, puede ser cambiado para que afecte las trayectorias... Incluso, se le puede agregar un valor aleatorio en cada disparo, para que sea siempre variable, y sea más complicado para los dos jugadores. En el código no cambia de valor, pero pueden hacer que lo haga....

Este es el código:

Código:

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle	 =   4  'Fixed ToolWindow
   Caption		 =   "Form1"
   ClientHeight	=   7170
   ClientLeft	  =   45
   ClientTop	   =   285
   ClientWidth	 =   12150
   LinkTopic	   =   "Form1"
   MaxButton	   =   0   'False
   MinButton	   =   0   'False
   ScaleHeight	 =   478
   ScaleMode	   =   3  'Pixel
   ScaleWidth	  =   810
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtVelocidad 
	  Alignment	   =   2  'Center
	  BeginProperty Font 
		 Name			=   "Arial"
		 Size			=   14.25
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   450
	  Left			=   6570
	  TabIndex		=   2
	  Text			=   "90"
	  Top			 =   6412
	  Width		   =   975
   End
   Begin VB.TextBox txtAngulo 
	  Alignment	   =   2  'Center
	  BeginProperty Font 
		 Name			=   "Arial"
		 Size			=   14.25
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   450
	  Left			=   3630
	  TabIndex		=   1
	  Text			=   "30"
	  Top			 =   6412
	  Width		   =   975
   End
   Begin VB.CommandButton cmdLanzar 
	  Caption		 =   "LANZAR"
	  Height		  =   465
	  Left			=   8070
	  TabIndex		=   0
	  Tag			 =   "2"
	  Top			 =   6405
	  Width		   =   1725
   End
   Begin VB.Shape Shape5 
	  BackColor	   =   &H00E0E0E0&
	  BackStyle	   =   1  'Opaque
	  Height		  =   3135
	  Left			=   7530
	  Top			 =   -720
	  Width		   =   90
   End
   Begin VB.Shape Shape1 
	  BackColor	   =   &H0000FFFF&
	  BackStyle	   =   1  'Opaque
	  Height		  =   150
	  Left			=   720
	  Shape		   =   3  'Circle
	  Top			 =   6060
	  Width		   =   150
   End
   Begin VB.Label Label3 
	  AutoSize		=   -1  'True
	  BackStyle	   =   0  'Transparent
	  Caption		 =   "MARCADOR"
	  BeginProperty Font 
		 Name			=   "Arial"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   285
	  Left			=   5280
	  TabIndex		=   7
	  Top			 =   2460
	  Width		   =   1425
   End
   Begin VB.Label lblPtsIzq 
	  Alignment	   =   2  'Center
	  BackColor	   =   &H00000000&
	  Caption		 =   "0"
	  BeginProperty Font 
		 Name			=   "Arial"
		 Size			=   48
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  ForeColor	   =   &H00C0FFC0&
	  Height		  =   1155
	  Left			=   4200
	  TabIndex		=   6
	  Top			 =   2760
	  Width		   =   1740
   End
   Begin VB.Label lblPtsDer 
	  Alignment	   =   2  'Center
	  BackColor	   =   &H00000000&
	  Caption		 =   "0"
	  BeginProperty Font 
		 Name			=   "Arial"
		 Size			=   48
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  ForeColor	   =   &H00C0FFC0&
	  Height		  =   1155
	  Left			=   6060
	  TabIndex		=   5
	  Top			 =   2760
	  Width		   =   1740
   End
   Begin VB.Shape shpRed 
	  BackColor	   =   &H0000FFFF&
	  BackStyle	   =   1  'Opaque
	  Height		  =   1275
	  Left			=   5955
	  Top			 =   4950
	  Width		   =   75
   End
   Begin VB.Label Label2 
	  AutoSize		=   -1  'True
	  BackStyle	   =   0  'Transparent
	  Caption		 =   "Velocidad:"
	  Height		  =   195
	  Left			=   5790
	  TabIndex		=   4
	  Top			 =   6540
	  Width		   =   750
   End
   Begin VB.Label Label1 
	  AutoSize		=   -1  'True
	  BackStyle	   =   0  'Transparent
	  Caption		 =   "Angulo:"
	  Height		  =   195
	  Left			=   3060
	  TabIndex		=   3
	  Top			 =   6540
	  Width		   =   540
   End
   Begin VB.Shape Shape2 
	  BackColor	   =   &H00FFC0C0&
	  BackStyle	   =   1  'Opaque
	  Height		  =   945
	  Left			=   0
	  Top			 =   6210
	  Width		   =   12135
   End
   Begin VB.Shape Shape3 
	  BackColor	   =   &H00E0E0E0&
	  BackStyle	   =   1  'Opaque
	  Height		  =   1545
	  Left			=   4170
	  Top			 =   2400
	  Width		   =   3660
   End
   Begin VB.Shape Shape4 
	  BackColor	   =   &H00E0E0E0&
	  BackStyle	   =   1  'Opaque
	  Height		  =   3135
	  Left			=   4410
	  Top			 =   -720
	  Width		   =   90
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdLanzar_Click()

If txtAngulo.Text > 90 Then txtAngulo.Text = 90
If txtVelocidad.Text > 150 Then txtVelocidad.Text = 150

cmdLanzar.Enabled = False
Angulo = Val(txtAngulo)
Veloc = Val(txtVelocidad)
Pi = 3.141592
Viento = 0
Gravedad = 9.8
xInicial = Shape1.Left
yInicial = Shape1.Top

Direc = cmdLanzar.Tag
Direc = 3 - Direc
cmdLanzar.Tag = Direc

angleChk = angle#: If PlayerNum = 2 Then angleChk = 180 - angleChk
 
Angulo = Angulo / 180 * Pi	 ' Convierte grados a radianes

VelXIni = Cos(Angulo) * Veloc
VelYIni = Sin(Angulo) * Veloc
AntX = Shape1.Left
AntY = Shape1.Top

Do
  If Direc = 1 Then
	 x = Int(xInicial + (VelXIni * t) + (0.5 * (Viento / 5) * t ^ 2))
  Else
	 x = Int(xInicial - (VelXIni * t) + (0.5 * (Viento / 5) * t ^ 2))
  End If
  y = yInicial + ((-1 * (VelYIni * t)) + (0.5 * Gravedad * t ^ 2)) ' * (ScrHeight / 350)

  If x < 0 Then x = 0: Fuera = 1
  If x > 800 Then x = 800: Fuera = 2
  If (((x >= 387 And x <= 403) And y >= 330) And Direc = 1) Then
	  x = 387: y = 404: GoTo Red
  End If
  If (((x >= 397 And x <= 404) And y >= 330) And Direc = 2) Then
	  x = 403: y = 404: GoTo Red
  End If
  
  Shape1.Left = x:  Shape1.Top = y
  t = t + 0.0001

Loop Until (y >= yInicial) And (x <> xInicial)

'
' Analiza si pasó al otro lado de la cancha...
' O, si la envió afuera...
'
Red:
Shape1.Left = x:  Shape1.Top = y
If Direc = 1 Then
   If x < 400 Then
	  MsgBox "No cruzó la red... Punto para tu rival..."
	  lblPtsDer = Val(lblPtsDer) + 1
	  Recomienza = 1
   End If
   If Fuera = 2 Then
	  MsgBox "Fuera de la cancha... Punto para tu rival..."
	  lblPtsDer = Val(lblPtsDer) + 1
	  Recomienza = 1
   End If
Else
   If x > 402 Then
	  MsgBox "No cruzó la red... Punto para tu rival..."
	  lblPtsIzq = Val(lblPtsIzq) + 1
	  Recomienza = 2
   End If
   If Fuera = 1 Then
	  MsgBox "Fuera de la cancha... Punto para tu rival..."
	  lblPtsIzq = Val(lblPtsIzq) + 1
	  Recomienza = 2
   End If
End If

If Recomienza = 1 Then
   Shape1.Left = 750
   Shape1.Top = 404
ElseIf Recomienza = 2 Then
   Shape1.Left = 50
   Shape1.Top = 404
End If

txtAngulo.SetFocus
cmdLanzar.Enabled = True

End Sub

Espero que les guste...
Si tienen alguna sugerencia para hacer, bienvenida será...

Saludos

Tema: Juego de "Tenis"

Herramientas

Visualizar

Juego de "Tenis"

Marcadores

Marcadores

Permisos de publicación