[Aportes indexados] Pong a la antigua

Estado
Cerrado para nuevas respuestas.

Loopzer

Oráculo Lvl 2
[CODIGO] Pong a la antigua

bue esto es simple
es un pong casi terminado

primero creamos un Formulario que se llame FrmMain y le ponemos esto

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Option</span> <span style="color: #b1b100;">Explicit</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> PeloX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> PeloY <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> Jugador1Y <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> Jugador2Y <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> Puedo_mover <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> Jugando <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> Fps <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> DpelotaX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> DpelotaY <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2"><span style="color: #b1b100;">Const</span> Pelota_Ancho = <span style="color: #cc66cc;">10</span></li><li style="" class="li1"><span style="color: #b1b100;">Const</span> Jugador1X = <span style="color: #cc66cc;">10</span></li><li style="" class="li1"><span style="color: #b1b100;">Const</span> Jugador2X = <span style="color: #cc66cc;">290</span></li><li style="" class="li2"><span style="color: #b1b100;">Const</span> Jugadores_Ancho = <span style="color: #cc66cc;">10</span></li><li style="" class="li1"><span style="color: #b1b100;">Const</span> Jugadores_Alto = <span style="color: #cc66cc;">30</span></li><li style="" class="li1"><span style="color: #b1b100;">Const</span> Jugadores_Movida = <span style="color: #cc66cc;">3</span></li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> GetAsyncKeyState Lib <span style="color: #ffffff;">"user32"</span> <span style="color: #66cc66;">(</span>ByVal vKey <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Form_Load<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #808080;">'voy a utilizar mi intervalitor para los fpsy las teclas:p</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> Control_Fps <span style="color: #b1b100;">As</span> Mi_Timer</li><li style="" class="li1"><span style="color: #b1b100;">Set</span> Control_Fps = <span style="color: #b1b100;">New</span> Mi_Timer</li><li style="" class="li1"><span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">Show</span></li><li style="" class="li2"><span style="color: #b1b100;">DoEvents</span></li><li style="" class="li1">Control_Fps.<span style="color: #66cc66;">init</span> <span style="color: #cc66cc;">1000</span>, <span style="color: #cc66cc;">15</span></li><li style="" class="li1">DpelotaX = <span style="color: #b1b100;">True</span></li><li style="" class="li2">DpelotaY = <span style="color: #b1b100;">True</span></li><li style="" class="li1"> </li><li style="" class="li1">Puedo_mover = <span style="color: #b1b100;">False</span></li><li style="" class="li2">Jugando = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">While</span> Jugando = <span style="color: #b1b100;">True</span></li><li style="" class="li1">    <span style="color: #b1b100;">DoEvents</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> Control_Fps.<span style="color: #66cc66;">Puedo</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        Fisica</li><li style="" class="li1">        MoverPelota</li><li style="" class="li2">        dibuja</li><li style="" class="li1">        Fps = Fps + <span style="color: #cc66cc;">1</span></li><li style="" class="li1">        VerTeclas</li><li style="" class="li2">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">Wend</span></li><li style="" class="li1"><span style="color: #b1b100;">Set</span> Control_Fps = <span style="color: #b1b100;">Nothing</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> mover<span style="color: #66cc66;">(</span>Jugador <span style="color: #b1b100;">As</span> Byte, Direccion <span style="color: #b1b100;">As</span> Byte<span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #808080;">'1 = ariba, simepre > 0</span></li><li style="" class="li1"><span style="color: #808080;">'2 = abajo, simpre < al maximo del formulario</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> Jugador = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> Direccion = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">If</span> Jugador1Y > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> Jugador1Y = Jugador1Y - Jugadores_Movida</li><li style="" class="li1">    <span style="color: #b1b100;">Else</span></li><li style="" class="li2">        <span style="color: #b1b100;">If</span> Jugador1Y + Jugadores_Alto < <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleHeight</span> <span style="color: #b1b100;">Then</span> Jugador1Y = Jugador1Y + Jugadores_Movida</li><li style="" class="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> Direccion = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">If</span> Jugador2Y > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> Jugador2Y = Jugador2Y - Jugadores_Movida</li><li style="" class="li1">    <span style="color: #b1b100;">Else</span></li><li style="" class="li2">        <span style="color: #b1b100;">If</span> Jugador2Y + Jugadores_Alto < <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleHeight</span> <span style="color: #b1b100;">Then</span> Jugador2Y = Jugador2Y + Jugadores_Movida</li><li style="" class="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> dibuja<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Me</span>.<span style="color: #b1b100;">Line</span> <span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>-<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleWidth</span>, <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleHeight</span><span style="color: #66cc66;">)</span>, <span style="color: #b1b100;">vbBlack</span>, BF</li><li style="" class="li2"><span style="color: #b1b100;">Me</span>.<span style="color: #b1b100;">Line</span> <span style="color: #66cc66;">(</span>Jugador1X, Jugador1Y<span style="color: #66cc66;">)</span>-<span style="color: #66cc66;">(</span>Jugador1X + Jugadores_Ancho, Jugador1Y + Jugadores_Alto<span style="color: #66cc66;">)</span>, <span style="color: #b1b100;">vbRed</span>, BF</li><li style="" class="li1"><span style="color: #b1b100;">Me</span>.<span style="color: #b1b100;">Line</span> <span style="color: #66cc66;">(</span>Jugador2X, Jugador2Y<span style="color: #66cc66;">)</span>-<span style="color: #66cc66;">(</span>Jugador2X + Jugadores_Ancho, Jugador2Y + Jugadores_Alto<span style="color: #66cc66;">)</span>, <span style="color: #b1b100;">vbRed</span>, BF</li><li style="" class="li1"><span style="color: #b1b100;">Me</span>.<span style="color: #b1b100;">Line</span> <span style="color: #66cc66;">(</span>PeloX, PeloY<span style="color: #66cc66;">)</span>-<span style="color: #66cc66;">(</span>PeloX + Pelota_Ancho, PeloY + Pelota_Ancho<span style="color: #66cc66;">)</span>, <span style="color: #b1b100;">vbWhite</span>, BF</li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Form_Unload<span style="color: #66cc66;">(</span>Cancel <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">Jugando = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Timer1_Timer<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">Caption</span> = Fps</li><li style="" class="li1">Fps = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> VerTeclas<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> GetAsyncKeyState<span style="color: #66cc66;">(</span>vbKeyW<span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> mover <span style="color: #cc66cc;">1</span>, <span style="color: #cc66cc;">1</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> GetAsyncKeyState<span style="color: #66cc66;">(</span>vbKeyS<span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> mover <span style="color: #cc66cc;">1</span>, <span style="color: #cc66cc;">2</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> GetAsyncKeyState<span style="color: #66cc66;">(</span>vbKeyUp<span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> mover <span style="color: #cc66cc;">2</span>, <span style="color: #cc66cc;">1</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> GetAsyncKeyState<span style="color: #66cc66;">(</span>vbKeyDown<span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> mover <span style="color: #cc66cc;">2</span>, <span style="color: #cc66cc;">2</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> GetAsyncKeyState<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">27</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> Jugando = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> MoverPelota<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> DpelotaX = <span style="color: #b1b100;">True</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> PeloX < <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleWidth</span> <span style="color: #b1b100;">Then</span> PeloX = PeloX + <span style="color: #cc66cc;">2</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> PeloX > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> PeloX = PeloX - <span style="color: #cc66cc;">2</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">If</span> DpelotaY = <span style="color: #b1b100;">True</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> PeloY < <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleHeight</span> <span style="color: #b1b100;">Then</span> PeloY = PeloY + <span style="color: #cc66cc;">2</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> PeloY > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> PeloY = PeloY - <span style="color: #cc66cc;">2</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Fisica<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #808080;">'***rebotar de la pelota***</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> PeloY <= <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> DpelotaY = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> PeloY + Pelota_Ancho > <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleHeight</span> <span style="color: #b1b100;">And</span> PeloY < <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleHeight</span> <span style="color: #b1b100;">Then</span> DpelotaY = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> PeloX <= <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> DpelotaX = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> PeloX + Pelota_Ancho > <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleWidth</span> <span style="color: #b1b100;">And</span> PeloY < <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">ScaleWidth</span> <span style="color: #b1b100;">Then</span> DpelotaX = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #808080;">'contra los jugadores</span></li><li style="" class="li1"><span style="color: #808080;">'jugador 1</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> PeloX <= Jugador1X + Jugadores_Ancho <span style="color: #b1b100;">And</span> PeloX + Pelota_Ancho >= Jugador1X <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> PeloY <= Jugador1Y + Jugadores_Alto <span style="color: #b1b100;">And</span> PeloY + Pelota_Ancho >= Jugador1Y <span style="color: #b1b100;">Then</span> DpelotaX = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #808080;">'juegador 2</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> PeloX + Pelota_Ancho >= Jugador2X <span style="color: #b1b100;">And</span> PeloX <= Jugador2X <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> PeloY <= Jugador2Y + Jugadores_Alto <span style="color: #b1b100;">And</span> PeloY + Pelota_Ancho >= Jugador2Y <span style="color: #b1b100;">Then</span> DpelotaX = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li></ol></div>[/vb]

y luego creamos una clase llamada Mi_Timer
esta clase la hice para facilitarme todo los problemas al controlar intervalos y antes que alguien diga algo ,esta clase esta echa asi nomas

bue ponganle esto a la clase
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Option</span> <span style="color: #b1b100;">Explicit</span></li><li style="" class="li2"><span style="color: #b1b100;">Public</span> Intervalo <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"><span style="color: #b1b100;">Public</span> QueMiro <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> Tiempo <span style="color: #b1b100;">As</span> Double</li><li style="" class="li1"><span style="color: #b1b100;">Private</span> Puede <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #808080;">'Const QueMiro = 1000 'es si me fijo en milisegundo o cualquier metodo que use</span></li><li style="" class="li2"><span style="color: #808080;">'Const intervalo = 1000 ' en el metodo que uno use</span></li><li style="" class="li1"><span style="color: #808080;">'en este caso miro los milisegundos</span></li><li style="" class="li1"><span style="color: #808080;">'y cada un 1000 milisegundos(un segundo) ejecuto la accion</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> init<span style="color: #66cc66;">(</span>TQueMiro <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, Inter <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    Intervalo = Inter</li><li style="" class="li2">    QueMiro = TQueMiro</li><li style="" class="li1">    Tiempo = <span style="color: #66cc66;">(</span><span style="color: #b1b100;">Timer</span> * QueMiro<span style="color: #66cc66;">)</span> + Intervalo</li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> </li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Function</span> Puedo<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> <span style="color: #66cc66;">(</span><span style="color: #b1b100;">Timer</span> * Intervalo<span style="color: #66cc66;">)</span> < Intervalo - <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span> <span style="color: #808080;">'me fijo que  el tiempo no vuelva a cerro</span></li><li style="" class="li1">        Tiempo = <span style="color: #66cc66;">(</span><span style="color: #b1b100;">Timer</span> * QueMiro<span style="color: #66cc66;">)</span> + Intervalo</li><li style="" class="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> <span style="color: #66cc66;">(</span><span style="color: #b1b100;">Timer</span> * QueMiro<span style="color: #66cc66;">)</span> >= Tiempo <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        Puede = <span style="color: #b1b100;">True</span></li><li style="" class="li1">        Tiempo = <span style="color: #66cc66;">(</span><span style="color: #b1b100;">Timer</span> * QueMiro<span style="color: #66cc66;">)</span> + Intervalo</li><li style="" class="li2">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1">Puedo = Puede</li><li style="" class="li2">Puede = <span style="color: #b1b100;">False</span></li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li1"> </li></ol></div>[/vb]
espero que les sirva despues si encuenro el de C++ lo paso
 
Estado
Cerrado para nuevas respuestas.
Arriba