Discussion :

[EpiTouille]

ça donne :
A - je crée un nouvelle pièce aléatoire, si collision -> fin de partie !
B - doit-on faire une rotation ? si oui, faire la rotation -> si collision, annuler la rotation !
C - la pièce descend d'une case -> si collision, remonter d'une case et passer à la pièce suivante !

et il faut également tester les lignes complètes évidemment ^^ mais ça n'est pas le plus dur

Grace a toi, j'ai corrigé une 10ene de bug, parceque je ne testait pas dans le bon sens. Merci !

[joreveur]

Pour l'instant je n'ai qu’une seule forme... (un carré de 1x1) et j'ai un gros bug concernant la collision. bug que je m'explique pas... tant que je ne résous pas je vais pas plus loin...
comme je suis parti dans l'idée de la vitesse de déplacement avec le composant Ttimer que je paramètre, je ne dois pas être synchro entre l'affichage et ce qui se passe d'où la brique qui ne fait pas ce que j'escomptai...
Quand au multiformes je ne l'ai même pas envisagé...
à suivre ou pas...

voila où j'en étais..

Je vais quand même participer, Juste pour apprendre...
où j'en suis :

ce qui ne va pas
flèches du clavier pas résolu. j'utilise des boutons à cliquer (pas pratique)
toujours pas de formes complexes. c'est obligatoire ?
ce qui va
bug collision résolu. je ne rencontre plus de problèmes
gestion d'un ligne pleine résolue... et toutes les briques descendent d'une ligne (faut dire qu'actuellement il n'y a que la ligne du bas (ou une colonne) qui peut se remplir...)
mais ça progresse... mais encore du boulot...

[EpiTouille]

ce qui ne va pas
flèches du clavier pas résolu. j'utilise des boutons à cliquer (pas pratique)

Pourquoi n'utilise tu pas l’évènement OnKeyPressed ?

[joreveur]

Pourquoi n'utilise tu pas l’évènement OnKeyPressed ?

Bonjour,

j'ai essayé mais je n'ai pas bien compris comment ça marchait...
voir ...

Pour ne pas cliquer (pour l'instant) j'ai mis &A et &P dans les caption (avec alt+A et alt+P) ça dépanne. mais c'est provisoire...

et comme je suis en ce moment sur un autre point du programme ce n'est pas l'urgence immédiate...

merci.

[EpiTouille]

Pourtant, tout est dit dans la discutions Je comprends pas vraiment ton problème, car quand je fais ça, ça marche.

Tu vas dans les events de ta Form, et tu choisie OnKeyDown ou OnKeyPressed je sais plus. Et tu utilise les constante données dans la discution pour récupéré les flèches directionnelles.

[joreveur]

oui ça marche...
la discussion ayant évolué, une solution a été donné... 1 point de moins pour mon projet sans doute...

J'avais du faire un test un peu trop rapide la 1ere fois..

je viens d'utiliser KeyDown

sinon est-ce bien comme cela qu'on appelle une procédure déjà créée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  case Key of
    VK_RIGHT: Button4Click(form1);
    VK_LEFT:  Button3Click(form1);
...

dans mon cas ça fonctionne mais ce n'est peut-être pas très propre ?

[mick605]

Salut

1 point de moins pour mon projet sans doute...

Ya pas de raisons ... Le but d'un forum c'est d'aider, pas de penaliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  case Key of
    VK_RIGHT: Button4Click(form1);
    VK_LEFT:  Button3Click(form1);
...

En fait, le parametre, c'est Sender. Donc, normalement, tu devrais lui passer en parametres le bouton sur lequel tu est censé cliquer, du genre Button4Click(Button4);.

Apres, tu peux tres bien lui passer nil, si ton code dans ta procedure Button4Click ne tiens pas compte du parametre Sender. Le plus propre reste de faire une procedure DeplacerDroite par exemple, et de l'appeler dans le ButtonClick et dans le KeyDown.

Un petit conseil qui sera surement payant : renomme tes composants !!!

[Paul TOTH]

oui ça marche...
la discussion ayant évolué, une solution a été donné... 1 point de moins pour mon projet sans doute...

J'avais du faire un test un peu trop rapide la 1ere fois..

je viens d'utiliser KeyDown

sinon est-ce bien comme cela qu'on appelle une procédure déjà créée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  case Key of
    VK_RIGHT: Button4Click(form1);
    VK_LEFT:  Button3Click(form1);
...

dans mon cas ça fonctionne mais ce n'est peut-être pas très propre ?

comme tu as déjà une réponse éclairée j'ajoute juste un commentaire sur ton usage de Form1 comme paramètre des méthodes click.

ça fonctionne, y'a pas à dire, mais c'est une très mauvaise habitude dont tu devrais te débarrasser. Ton application ne possède probablement qu'une seule fiche de type TForm1 et la variable globale Form1 pointe sur la seule instance de cette fiche ... mais imaginons que demain tu veuilles lancer deux tétris en parallèle pour corser le jeu. Tu vas créer deux fiches TForm1 l'une à côté de l'autre...sauf que la variable Form1 ne pourra pointer que sur une seule des deux. Avec ton code le clic sur le bouton1 d'une fiche va fonctionner, le clic sur le bouton1 de l'autre fiche fera bouger la pièce de la première !

alors comment accéder à la fiche sans passer par la variable form1 ? tout simplement avec le mot clé Self qui à l'intérieur d'une méthode de la fiche te retourne l'instance de celle-ci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender);
begin
  if Self = Form1 then ShowMessage('C''est pratique !');
end;

[M.Dlb]

Alors vous en êtes où ? Bientôt fini ??

La deadline approche à grands pas

[Paul TOTH]

Alors vous en êtes où ? Bientôt fini ??

La deadline approche à grands pas

ah oui tient, je pensais que c'était pour la fin d'année ^^

bon ben je n'aurais rien à proposer alors

[mick605]

ah oui tient, je pensais que c'était pour la fin d'année ^^

bon ben je n'aurais rien à proposer alors

Alala, un bon programmeur comme toi le fait en 3 jours !

Pour ma part, j'espere que je finirai à temps !

[darrylsite]

Alala, un bon programmeur comme toi le fait en 3 jours !

Pour ma part, j'espere que je finirai à temps !

J'ai hâte de voir de voir le résultat.

Bon courage !

[joreveur]

Bonsoir,

j'ai livré ma version ce soir... je suis dans les délais...

à part ça la version livrée a le mérite d'exister, sans plus... c'est même pas un Tetris....

J'ai fait ce que j'ai pu avec le peu que je connaissais en la matière...

Bonne continuation aux autres...

[Paul TOTH]

Alala, un bon programmeur comme toi le fait en 3 jours !

Pour ma part, j'espere que je finirai à temps !

oui mais j'ai une vie en dehors de Delphi ^^

[Alcatîz]

Le défi est prolongé jusqu'au 31 décembre 2011.

[Alcatîz]

Nous avons pour l'instant reçu deux projets.

N'hésitez pas à renvoyer des versions améliorées, c'est la dernière en date qui sera prise en compte pour le défi.

[EpiTouille]

Ok cool, j'envoi la bêta1 ce soir Elle marche elle compile, mais à mon avis, faut être informaticien pour savoir s'en servir

[Alcatîz]

Et de trois ! Super

[EpiTouille]

je viens revoir ma mainloop ce soir. c'est fou ce qu'on gagne en rapidité quand on change juste les lignes de place! maintenant, mon programme est au moins 10x plus rapide

[EpiTouille]

Alors ça avance ? la date va venir venir vite

Bon aller quelque screen de mon projet