UNE MACHINE À SOUS
blueperfect
Messages postés
234
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013
-
19 juin 2009 à 17:51
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 17 juil. 2009 à 21:20
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 17 juil. 2009 à 21:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/50205-une-machine-a-sous
https://codes-sources.commentcamarche.net/source/50205-une-machine-a-sous
17 juil. 2009 à 21:20
Merci quand même mais je ne me cache pas ;)
Cordialement, Bacterius !
17 juil. 2009 à 10:44
Bonne continuation à l'auteur de cette application.
Dr. Joseph LOMBET.
25 juin 2009 à 17:22
moi j'ai vue ce dégradés dans une vrai machine à sous dans un Casino prés de chez nous, et j'ai voulu le recopier sur mon code on faisant un peut de trafique on va dire à l'aide d'un logiciel de traitement d'image et voilà le résultat !
On peut les enlever sans problème le titre veut tout dire, par conséquent ça va diminuer le code et le travail à faire!
DEBIARS JUNIOR
25 juin 2009 à 15:28
Cordialement, Bacterius !
25 juin 2009 à 15:05
c'est du vrai à 100% Thanks !!
DEBIARS JUNIOR
25 juin 2009 à 15:04
Which is (( qui est ))... etc , parceque je ne suis pas fort en français
même la description c'est WIKIPEDIA.
j'ai fait de mon mieux de faire tout en français sauf peut être les variables Globaux..etc pour permettre aux USERS de comprendre à peu prés ce que fait le CODE
mais bon ce n'est pas très important dans le bon sens du terme..
Bactérius Essai de faire ta propre version !!
Et puis poste la moi dans cette Email: debiars87@live.fr
et après je vais voir la différence.
Merci d'avance!
DEBIARS JUNIOR
25 juin 2009 à 14:33
Sinon, comprends-tu ce que tu écris ? J'ai la méchante impression que tu as passé cette phrase dans le traducteur google :
"qui est mis en place à courir après trois arrêts Bobine!"
Ce qui est la traduction littérale de l'anglais "which is set to run after three reel stops", qui veut dire autre chose ("qui est enclenché après trois arrêts de bobine"). Bref, juste pour savoir si tu te contentais de passer des phrases recopiées dans un traducteur où si tu essayerais véritablement de "commenter" ce que tu écris (ce n'est pas que pour les autres, c'est pour toi aussi, dans 2 ou 3 ans si tu veux retrouver cette source tu ne vas pas comprendre tes commentaires).
Cordialement, Bacterius !
25 juin 2009 à 14:24
Ensuite, on met OfferaHold à True si BarNum = 8 (ce que j'ai cru comprendre).
Ensuite, on parcourt chaque composant de la fiche, jusqu'à tomber sur un TPanel (on profite qu'ils soient dans l'ordre). Alors, on va changer sa couleur en fonction (puis on incrémente N qui représente le panel actuel pour passer au suivant). Pour savoir si le bonus est atteint ou pas, une simple condition booléenne suffit : si BarNum est supérieur à l'index du panel (on commence par 0 pour le panel 1, 1 pour le panel 2, etc ...), alors le bonus est atteint, sinon non.
Et voilà comment on compresse 158 lignes de code en 15 lignes ... si tu n'as pas tout compris demande-moi.
Cordialement, Bacterius !
25 juin 2009 à 14:19
______________________________________________
const
BarColors: array [Boolean, 0..1] of TColor = ((clMaroon, clOlive), (clRed, clYellow));
var
I, N: Integer;
begin
...
OfferaHold :(BarNum 8);
N := 0;
for I := 0 to ComponentCount - 1 do
if Components[I] is TPanel then with TPanel(Components[I]) do
begin
Color := BarColors[BarNum > N, 0];
Font.Color := BarColors[BarNum > N, 1];
Inc(N);
end;
end;
______________________________________________
C'est encore plus concis.
Cordialement, Bacterius !
25 juin 2009 à 14:11
Cordialement, Bacterius !
25 juin 2009 à 14:09
Entre les lignes de code 206 et 364 : je te montre comment obtenir le même résultat sans faire de redondances abusives :
______________________________________________
const
BarColors: array [Boolean, 0..1] of TColor = ((clMaroon, clOlive), (clRed, clYellow));
var
I: Integer;
Panels: array [1..8] of Pointer;
begin
...
Panels[1] := @Panel1;
Panels[2] := @Panel2;
Panels[3] := @Panel3;
Panels[4] := @Panel4;
Panels[5] := @Panel5;
Panels[6] := @Panel6;
Panels[7] := @Panel7;
Panels[8] := @Panel8;
OfferaHold :(BarNum 8);
for I := 1 to 8 do
with TPanel(Panels[I]) do
begin
Color := BarColors[BarNum > Pred(I), 0];
Font.Color := BarColors[BarNum > Pred(I), 1];
end;
end;
______________________________________________
Et on peut mieux faire.
Les explications dans le prochain commentaire.
Cordialement, Bacterius !
25 juin 2009 à 12:50
Un Simple case me fera l'affaire et ne pas répéter les panels
j'ai faits ça parce que c'est mon premier code ici !!
DEBIARS JUNIOR
25 juin 2009 à 12:47
Oui j'aimerai bien que tu me montre comment je procede !!
DEBIARS JUNIOR
25 juin 2009 à 12:45
DEBIARS JUNIOR
25 juin 2009 à 09:00
Cordialement, Bacterius !
25 juin 2009 à 01:59
"Offl..." ça veut dire quoi en fait ? " c'est un nouvelle abréviation !! "
non mais attend c'est mon premier code ici !!
et pour l'optimisation j'ai envie que tu m'aide Thomas franchement ton aide est précieuse pour moi!
j'ai envie vraiment d'améliorer ce code.
merci d'avance!
DEBIARS JUNIOR
24 juin 2009 à 23:04
Cordialement, Bacterius !
24 juin 2009 à 23:03
Sinon, il y a trop de redondances. Il y a sûrement un moyen intelligent et concis d'allier simplicité, brièveté et performance (il n'y a qu'à voir entre les lignes de code 206 et 364 ! 158 lignes de code contre 30 si l'on avait codé proprement ...). Si tu veux plus de détails, n'hésites pas à demander.
Cordialement, Bacterius !
19 juin 2009 à 22:48
Je vais les noter tout de suite
MERci BLUEPERFECT !!
DEBIARS JUNIOR
19 juin 2009 à 17:51
Puisque tu travailles dans le visuel :
* Toutes tes constantes tableaux de chaines, tu peux les intégrer visuellement dans un TDataModule, sous forme de ListBox ou de ValueList...:-)
* L'une des extensions de ton programme semble être le TImageList, mais contenant des images de "grande taille"... Un composant avec une colletion de TBitmap !
* Tu aurais pu grouper les OnTimer, et tu devrais instaurer une logique de réentrance (un test sur un flag à l'entrée...)
Sinon, c marrant !