Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1004
Réponses : 5
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Machine à sous

pachobo16 le 14/05/2012 à 16:42
Bonjour à tous !
Je suis nouveau sur le forum, et j'aimerais avoir votre avis sur un programme que je viens de créé.
C'est en fait une partie d'un programme de Casino regroupant plusieurs programmes comme une roulette, une machine à sous, etc...
Le programme Machine à sous tourne bien, mais je le trouve un peu lourd (1385 octetc...)
Je suis sûr qu'on peut le réduire considérablement, et c'est pour cela uqe je fait appel à vous happy.gif

voilà le code :

Code

:EffEcr
:0->M
:0->X
:0->Y
0->Z
:0->I
:Output(3,5,"MACHINE
:Output(5,6,"A SOUS
:Pause
:EffEcr
:Lbl 1
:If A<=0
:Then
:EffEcr
:Output(3,4,"VOUS ETES
:Output(5,4,"RUINE(E) !
:Pause
:EffEcr
:Goto 6
:End
Disp "VOTRE MISE :
:Input "=",M
:If M>A
:Then
:EffEcr
:Output(3,2,"VOUS N'AVEZ PAS
:Output(4,3,"ASSEZ D'ARGENT
:Output(5,4,"POUR MISER
:Output(6,5,"AUTAUT !
:Pause
:EffEcr
Goto 1
End
If M<=0
Then
EffEcr
Output(3,2,"VOUS NE POUVEZ
Output(5,1,"PAS MISER CELA !
Pause
Goto 1
End
A-M->A
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
Output(4,3,"0
Output(4,8,"0
Output(4,13,"0
Pause
Lbl 2
entAléat(10,99->X
partEnt(X->X
entAléat(10,99->Y
partEnt(Y->Y
entAléat(10,99->Z
partEnt(Z->Z
Output(4,3,X
Output(4,8,Y
Output(4,13,Z
I+1->I
If I<15
Then
Goto 2
Else
entAléat(1,8->X
partEnt(X->X
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
Output4,3,X
0->I
Lbl 3
entAléat(10,99->Y
partEnt(Y->Y
entAléat(10,99->Z
partEnt(Z->Z
Output(4,8,Y
Output(4,13,Z
I+1->I
If I<10
Then
Goto 3
Else
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
entAléat(1,8->Y
partEnt(Y->Y
Output(4,3,X
Output(4,8,Y
0->I
Lbl 4
entAléat(10,99->Z
partEnt(Z->Z
I+1->I
If I<5
Then
Goto 4
Else
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
entAléat(1,8->Z
partEnt(Z->Z
Output(4,3,X
Output(4,8,Y
Output(4,14,Z
If X=Y et X=/=Z et Z=/=Y
Then
M*2->M
M+A->A
Output(4,2,"(
Output(4,4,")
Output(4,7,"(
Output(4,9,")
Pause
Goto 5
End
If X=Z et X=/=Y et y=/=Z
Then
M*2->M
M+A->A
Output(4,2,"(
Output(4,4,")
Output(4,13,"(
Output(4,15,")
Pause
Goto 5
Enf
If Y=Z et X=/=Y et X=/=Z
Then
M*2->M
M+A->A
Output(4,7,"(
Output(4,9,")
Output(4,13,"(
Output(4,15,")
Pause
Goto 5
End
If X=Y et Y=Z
Then
11*M->M
M+A->A
Output(4,2,"(
Output(4,4,")
Output(4,7,"(
Output(4,9,")
Output(4,13,"(
Output(4,15,")
Pause
EffEcr
Output(1,3,"! JACKPOT !
Output(3,3,"VOTRE GAIN :
Output(4,7,M
Output(6,3,"VOTRE ARGENT :
Output(7,7,A
Pause
EffEcr
Goto 7
End
If X=/=Y et Y=/=Z
Pause
EffEcr
Output(1,5,"PERDU !
Output(3,3,"VOTRE GAIN :
Output(4,8,"0
Output6,3,"VOTRE ARGENT :
Output(7,7,A
Pause
EffEcr
Goto 7
End
Lbl 5
EffEcr
Output(1,5,"GAGNE !
Output(3,3,"VOTRE GAIN :
Output(4,7,M
Output(6,3,"VOTRE ARGENT :
Output (7,7,A
Pause
EffEcr
Goto7
End
Lbl 7
EffEcr
Menu("CONTINUER ?","OUI",1,"NON",6
Lbl 6
EffEcr
Output(1,1,"


Voilà le code.
Vous remarquerez surement que j'utilise une variable A pour l'argent qui n'a pas été définie. C'est normal, puisque comme je l'ai dit, ce code fait partie d'un programme plus grand, et donc la variable A est définie dans ce programme.

Voilà, pouvez vous m'aider à améliorer ce code, le rendre moins lourd ?
Merci. happy.gif

PS : N'ayant pas de cable pour tranférer mon programme de ma calculette à mon ordinateur, j'ai du le recopier à la main... (C'était long ! :p ) C'est pourquoi il peut y avoir quelques erreurs de syntaxe ^^
sandro le 14/05/2012 à 18:28
Bonjour et bienvenue,

Je te remets le code en l'optimisant (là où il y aura des commentaires symbolisés par //comentaire (attention, ne fonctionne pas pour de vrai dans un programme), c'est que j'ai modifié.

Code
:EffEcr
:EffVar MEffvar XEffvar YEffVar ZEffvar IOutput(3,5,"MACHINE  //ici (EffVar est dans prgm/CTL/G
:Output(5,6,"A SOUS
:Pause
:EffEcr
:Lbl 1
:If A<=0
:Then
:EffEcr
:Output(3,4,"VOUS ETES
:Output(5,4,"RUINE(E) !
:Pause
:EffEcr
:Goto 6
:End
Disp "VOTRE MISE :
:Input "=",M
:If M>A
:Then
:EffEcr
:Output(3,2,"VOUS N'AVEZ PAS
:Output(4,3,"ASSEZ D'ARGENT
:Output(5,4,"POUR MISER
:Output(6,5,"AUTAUT !
:Pause
:EffEcr
Goto 1
End
If M<=0
Then
EffEcr
Output(3,2,"VOUS NE POUVEZ
Output(5,1,"PAS MISER CELA !
Pause
Goto 1
End
A-M->A
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
Output(4,3,"0   //devient For(S,0,2:Output(4,5S+3,"O:End
Output(4,8,"0   //à enlever
Output(4,13,"0  //à enlever
Pause
Lbl 2
entAléat(10,99->X
partEnt(X->X  //inutile, c'est déjà un entier
entAléat(10,99->Y
partEnt(Y->Y   //inutile, c'est déjà un entir
entAléat(10,99->Z
partEnt(Z->Z   //inutile, c'est déjà un entier
Output(4,3,X
Output(4,8,Y
Output(4,13,Z
I+1->I
If I<15
Then
Goto 2
Else
entAléat(1,8->X
partEnt(X->X   //inutile, c'est déjà un entier
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
EffVar IOutput4,3,X    //à la place de la ligne suivante
0->I     //donc à enlever
Lbl 3
entAléat(10,99->Y
partEnt(Y->Y   //inutile, c'est déjà un entier
entAléat(10,99->Z
partEnt(Z->Z   //inutile, c'est déjà un entier
Output(4,8,Y
Output(4,13,Z
I+1->I
If I<10
Then
Goto 3
Else
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
entAléat(1,8->Y
partEnt(Y->Y   //inutile, c'est déjà un entier
Output(4,3,X
EffVar IOutput(4,8,Y  //à le place de la lige suivate
0->I    //donc à enlever
Lbl 4
entAléat(10,99->Z
partEnt(Z->Z   //inutile, c'est déjà un entier
I+1->I
If I<5
Then
Goto 4
Else
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
entAléat(1,8->Z
partEnt(Z->Z   //inutile, c'est déjà un entier
Output(4,3,X
Output(4,8,Y
Output(4,14,Z
If X=Y et X=/=Z et Z=/=Y   //devient If X=Y et X-Z et Z-Y  (enfin, c'est juste plus rapide, pas plus léger
Then
M*2->M   //devient 2M -> M
M+A->A
Output(4,2,"(
Output(4,4,")
Output(4,7,"(
Output(4,9,")
Pause
Goto 5
End
If X=Z et X=/=Y et y=/=Z   //devient If X=Y et X-Z et Z-Y  (enfin, c'est juste plus rapide, pas plus léger
Then
M*2->M   //devient 2M -> M
M+A->A
Output(4,2,"(
Output(4,4,")
Output(4,13,"(
Output(4,15,")
Pause
Goto 5
End
If Y=Z et X=/=Y et X=/=Z   //devient If X=Y et X-Z et Z-Y  (enfin, c'est juste plus rapide, pas plus léger
Then
M*2->M  //devient 2M -> M
M+A->A
Output(4,7,"(
Output(4,9,")
Output(4,13,"(
Output(4,15,")
Pause
Goto 5
End
If X=Y et Y=Z
Then
11*M->M   //devient 11M -> M
M+A->A
Output(4,2,"(
Output(4,4,")
Output(4,7,"(
Output(4,9,")
Output(4,13,"(
Output(4,15,")
Pause
EffEcr
Output(1,3,"! JACKPOT !
Output(3,3,"VOTRE GAIN :
Output(4,7,M
Output(6,3,"VOTRE ARGENT :
Output(7,7,A
Pause
EffEcr
Goto 7
End
If X=/=Y et Y=/=Z        //devient If X-Y et Y-Z (juste plus rapide
Pause    //Il ne manqurait pas un Then avant? Sauf bien sur si seul le Pause est soumis à la condition
EffEcr
Output(1,5,"PERDU !
Output(3,3,"VOTRE GAIN :
Output(4,8,"0
Output6,3,"VOTRE ARGENT :
Output(7,7,A
Pause
EffEcr
Goto 7
End
Lbl 5
EffEcr
Output(1,5,"GAGNE !
Output(3,3,"VOTRE GAIN :
Output(4,7,M
Output(6,3,"VOTRE ARGENT :
Output (7,7,A
Pause
EffEcr
Goto7
End
Lbl 7
EffEcr
Menu("CONTINUER ?","OUI",1,"NON",6
Lbl 6
EffEcr
Output(1,1,"


Bon, je crois que c'est tout juste au ligne par ligne, après on peut peut-être faire mieux en réorganisant le code.

Sandro
Pachobo16 le 14/05/2012 à 19:34
Ah merci pour ces quelques améliorations. happy.gif
linkakro le 14/05/2012 à 19:46
Tu viens d'apercevoir la spécialité de sandro : simplifier les codes au niveau des détails. happy.gif

La chose principale qu'il reste à observer est la structure des boucles qui utilise beaucoup trop de goto et de End mélangés. Cela peut grâvement pénaliser un programme.
If:Then:Goto:End est la cause d'un terrible ralentissement sur la durée, et peut causer des bugs dans certaines situations. (cf rubrique article)
Pachobo16 le 14/05/2012 à 20:20
Oui, je l'ai remarqué. Au bout d'une dizaine de fois ou le programme est utilisé en boucle, un gros ralentissement s'observe, et parfois même une ERR: Mémoire :/
J'ai vu dans les différents topic sur forum qu'on pouvait éviter ce genre de ralentissement en restructurant le code, en sortant les Goto des boucles etc... Mais je ne sais pas trop faire ça... J'ai appris à programmer un peu tout seul, en observant d'autres programmes...
linkakro le 14/05/2012 à 21:37
J'ai écrit un article dans a rubrique article. (ben oui je me répète et alors ^^)
J'y ai exposé mes observations et proposé quelques solutions parmi les plus simples.
Bon ok je t'aide un peu : https://tout82.pages-perso.fre[...].php?sujet=2757

J'ai réécrit le code en me limitant à des modifications techniques : je souhaite ne pas modifier le concept pour l'instant.
J'ai employé les solutions les plus évidentes, il est probable que d'autres solutions plus légères (mais aussi plus complexes) soient possibles.
Les Tabulations servent à mettre en évidence des zones modifiées.
Code
EffEcr
EffVar MEffvar XEffvar YEffVar ZEffvar IOutput(3,5,"MACHINE
Output(5,6,"A SOUS
Pause
EffEcr
Lbl 1
If A<=0
Then
EffEcr
Output(3,4,"VOUS ETES
Output(5,4,"RUINE(E) !
Pause
EffEcr
   End
   If A<=0
   Goto 6
If M>A
Then
Disp "VOTRE MISE :
Input "=",M
If M>A
Then
EffEcr
Output(3,2,"VOUS N'AVEZ PAS
Output(4,3,"ASSEZ D'ARGENT
Output(5,4,"POUR MISER
Output(6,5,"AUTAUT !
Pause
EffEcr
   End
   If M>A
   Goto 1

If M<=0
Then
EffEcr
Output(3,2,"VOUS NE POUVEZ
Output(5,1,"PAS MISER CELA !
Pause
   End
   If M<=0
   Goto 1
A-M->A
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
For(S,0,2
Output(4,5S+3,"O
End
Pause

   While I<15
entAléat(10,99->X
entAléat(10,99->Y
entAléat(10,99->Z
Output(4,3,X
Output(4,8,Y
Output(4,13,Z
I+1->I
   End

entAléat(1,8->X
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
EffVar IOutput4,3,X

   While I<10
entAléat(10,99->Y
entAléat(10,99->Z
Output(4,8,Y
Output(4,13,Z
I+1->I
   End
   
EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
entAléat(1,8->Y
Output(4,3,X
EffVar IOutput(4,8,Y

   While I<5
entAléat(10,99->Z
I+1->I
   End

EffEcr
For(N,1,8
Output(N,6,"(
End
For(S,1,8
Output(S,11,")
End
entAléat(1,8->Z
Output(4,3,X
Output(4,8,Y
Output(4,14,Z
   If X=Y et X-Z et Z-Y
   Then
2M->M
M+A->A
Output(4,2,"(
Output(4,4,")
Output(4,7,"(
Output(4,9,")
Pause
   End
   If X=Y et X-Z et Z-Y
   Goto 5
   If X=Z et X-Y et y-Z
   Then
2M->M
M+A->A
Output(4,2,"(
Output(4,4,")
Output(4,13,"(
Output(4,15,")
Pause
   End
   If X=Z et X-Y et y-Z
   Goto 5
   If Y=Z et X-Y et X-Z
   Then
M2->M
M+A->A
Output(4,7,"(
Output(4,9,")
Output(4,13,"(
Output(4,15,")
Pause

   End
   If Y=Z et X-Y et X-Z
   Goto 5
   If X=Y et Y=Z
   Then
11M->M
M+A->A
Output(4,2,"(
Output(4,4,")
Output(4,7,"(
Output(4,9,")
Output(4,13,"(
Output(4,15,")
Pause
EffEcr
Output(1,3,"! JACKPOT !
Output(3,3,"VOTRE GAIN :
Output(4,7,M
Output(6,3,"VOTRE ARGENT :
Output(7,7,A
Pause
EffEcr
   End
   If X=Y et Y=Z
   Goto 7

   If X-Y et Y-Z
   Then
Pause
EffEcr
Output(1,5,"PERDU !
Output(3,3,"VOTRE GAIN :
Output(4,8,"0
Output6,3,"VOTRE ARGENT :
Output(7,7,A
Pause
EffEcr
   End
   If X-Y et Y-Z
   Goto 7
   Lbl 5
EffEcr
Output(1,5,"GAGNE !
Output(3,3,"VOTRE GAIN :
Output(4,7,M
Output(6,3,"VOTRE ARGENT :
Output (7,7,A
Pause
EffEcr
   Lbl 7
EffEcr
Menu("CONTINUER ?","OUI",1,"NON",6
Lbl 6
EffEcr
Output(1,1,"
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.