begin process at 2012 02 11 01:08:43
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Jeux

 > LE JEU PONG MAIS EN 2D

LE JEU PONG MAIS EN 2D


 Information sur la source

Note :
8 / 10 - par 2 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Jeux Classé sous :pong2d, jeux, delphi, amusement, ordinateur Niveau :Initié Date de création :25/02/2006 Date de mise à jour :26/02/2006 14:47:04 Vu / téléchargé :3 767 / 718

Auteur : djfeeler

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
mon code est un jeu pong !! vous pouvez jouer contre l'ordinateur !! ou à deux !! les touches pour le joueur1 les flèches haut bas et joueur2 les touches ctrl et shift !! vous pouvez choisir le jeu normal gagner trois sets pour remporter la partie en 11 points ou tout simplement choisir les points d'une partie !! il possède trois niveux de difficulté !!! des effets de sons ont été apportés !!! bon amusement !!



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

26 février 2006 14:27:30 :
correction d'un bug !! et on peut maintenant enlevé le son ou le mettre !!!
26 février 2006 14:47:04 :
correction de bug !!!

 Sources du même auteur

Source avec Zip FAIRE DÉFILER UNE PHRASE
Source avec Zip LE JEU OTHELLO
Source avec Zip LE JEU MASTERMIND

 Sources de la même categorie

Source avec Zip JEU DE MOT MOTUS par philouchess
Source avec Zip Source avec une capture [LAZARUS] JEUX/LABYRINTHE : GENERATION ET RÉSOLUTION par timmalos
Source avec Zip Source avec une capture RUBIK'S CUBE par barbichette
Source avec Zip RUMMIKUB DES CHIFFRES CONTRE ORDINATEUR par Toidil
Source avec Zip Source avec une capture JEU D'ÉCHEC MAZETTE par ADMR

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture FIREMONKEY : PATHDATA ET FORMAT SVG par Christophe67
Source avec Zip Source avec une capture FIREMONKEY : ROTATION CUBE par Christophe67
Source avec Zip Source avec une capture MOTEUR PHYSIQUE 2D CHIPMUNK.. EN DELPHI! par Bacterius
Source avec Zip Source avec une capture FICHIER DUPLIQUÉ AVEC UNE TABLE DE HACHAGE par jerome1875
Source avec Zip Source avec une capture KINECT TEST V3 JOEUR A ALEX KIDD AVEC VOTRE KINECT par FFCAST

Commentaires et avis

Commentaire de f0xi le 03/03/2006 07:01:37 administrateur CS

nombreuse optimisation a faire :




remplacer de maniere generale :
if (valeur = 1) or (valeur = 2) or (valeur = 3) or (valeur =4) then ok := true;
if jouerordi = 1 then timerordi.Enabled := true;
if nombrept.Checked = true then enbpt.Enabled := true;

par :
ok := (valeur in [1..4]);
timerordi.Enabled := (jouerordi = 1);
enbpt.Enabled := nombrept.Checked;
___________________________________

grace a l'unité Math, remplacer d'une maniere generale :
if (place1 >= 100) and (place1 <=200) and (place2>=100) and (place2 <= 200) then ok2 := true;

par :
ok2 := (inrange(place1,100,200) and inrange(place2,100,200));
___________________________________

remplacer d'une maniere generale  :
if valeur = 1 then
begin
cl1 := -4;
cl2 := 4 ;
end;
if valeur = 2 then
begin
cl1 := 4;
cl2 := 4 ;
end;
if valeur = 3 then
begin
cl1 := -4;
cl2 := -4 ;
end;
if valeur = 4 then
begin
cl1 := 4;
cl2 := -4 ;
end;

par :
case Valeur of
  1 : begin cl1 :=-4; cl2 := 4; end;
  2 : begin cl1 := 4; cl2 := 4; end;
  3 : begin cl1 :=-4; cl2 :=-4; end;
  4 : begin cl1 := 4; cl2 :=-4; end;
end;
___________________________________

remplacer de maniere generale :
while ok2 <> true do ...
if btniv1.Checked = true then ...

par :
while not ok2 do ...
if btniv1.Checked then ...
___________________________________

remplacer :
if contreordi.Checked = true then begin
lordinateur.visible := true;
lj2.Visible := false;
end;

par :
lordinateur.visible := contreordi.Checked;
lj2.Visible := not contreordi.Checked;
___________________________________

remplacer (grace a l'unité math) :
if ordi.Top <= 0 then ordi.Top := 0;
if ordi.Top >= 240 then ordi.Top := 240;

if joueur.Top <= 0 then joueur.Top:=0;
if joueur.top >= 232 then joueur.Top:=232;

par :
ordi.Top := Max(Min(Ordi.Top, 240), 0);
joueur.Top := Max(Min(Ordi.Top, 232), 0);
___________________________________

voila ... bonne optimisations.

Commentaire de djfeeler le 03/03/2006 10:12:51

merci beaucoup !!! sinon tu en penses quoi de mon jeux ?

Commentaire de tyazer95880 le 25/11/2006 16:57:33

Moi, je n'arrive pas à faire démarrer le programme à cause d'une soit disant erreur.
On m'indique qu'il y a une erreur avec 'messages' au début du programme...
Quelqu'un pourrait-il m'aidé?

Commentaire de Also know as le 01/05/2007 00:25:01

Euh...
Il est passé ou le jeu ainsi que ces sources ???

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Debugger et jeux récent! [ par Don0Choa ] Bonjour, voila j'ai voulu installer 2 jeux tres réssent(Mafia et Age OfEmpre qui ne sort que le mois prochain) , mais apres l'installation, lorsque je Conseil pour Moteur 3D [ par dami ] Bonjour a tous .Je développe actuellement un jeux de stratégie 3D temps réel. J'ai décidé d'importer les objects via un loader 3ds que j'ai fais, je l This existe ? [ par Bruto ] En C++ & C#, il existe le membre This pour chaque objet. Ce qui permet à un objet d'une classe de pointer vers lui-même.Par exemple, je dispose d'une Microsoft Access et Delphi [ par Frank19 ] Allo, j'ai une base de donnée qui est en Access et jvoudrais m'en servir dans mon projet en Delphi. En l'ajoutant dans le BDE, jai pu lier ma base a m Comment savoir si les fichiers cachés sont affichés ? [ par MyC ] Comment à partir d'un programme delphi peut-on savoir si les fichiers cachés sont masqués ou affichés ? Et par ailleurs est-il possible de les affiche Composants delphi en vb ? [ par MyC ] Salut !Est-il possible d'utiliser des composants delphi en vb ? Try Except et Debuggage Delphi [ par vagabon ] Bonjour,Comment faire pour que Delphi ne rentre pas en mode DEBUG quand il tombe sur une exception à l'intérieur d'un TRY Except ? MerciVag Integration Word dans interface Delphi [ par freud2000 ] Bonjour, je cherche à créer une application delphi qui aurais dans sa propre interface un document word modifiable . Comment peut on faire ?Merci par Need help from french developer [ par karlokarl ] Hi.Sorry for wirting in english, I don't speak french.I'd need a little help from a developer who has a French version of Delphi 6 (Enterprise, Update Fichier ini [ par DonKillah ] Salut tout le monde, je suis un peu nouveau sur Delphi, avant je codais -enfin je code toujours- en C et en Asm ; donc j'ai une petite question ...Mon


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,810 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales