Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.
Menu
Calculatrices
Graph 35 à 100
Graph 25+Pro/25+E/25+E II
Graph 35+USB/75(+E)/85/95 SD
Graph 100(+)
Classpad 300/330(+)
fx-CG 10/20 (Prizm)
Classpad 400(+E)
Graph 90+E
fx-92+ SC
Liens
¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Jeux >> Graph 35 à 100 >> Projet >> Snake 2007
Snake 2007
Version : Apha 1.3 Taille : 3500 octets Ajouté le : 2007-04-07 17:17 Modifié le : 2007-05-18 14:07
Auteur et posteur :
PhixmeHors ligneMembrePoints: 136 Défis: 0 Message
Aucune image disponible
Nombre de visites sur cette page : 9719
Score au progrank : 27
Pas encore de note !
Vous devez être connecté(e) pour noter (inscription).
1478 téléchargements | Soumettre un test


Description :

Snake en mode graphique

Evolution du Projet:
- Menu: 100%
- Enregistrement d'un reccord: 0%
- Graphisme du Snake: 40%
* G?rer des "billes": 0%
* G?rer la "queue du Snake": 60%

Langues: Fran?aise / Anglaise

Pour plus de descriptions t?l?charger le fichier zip et contactez-moi.


Commentaires :

Pages: Précédente | 1, 2, 3, 4, 5 | Suivante

PhixmeHors ligneMembrePoints: 136 Défis: 0 Message
Posté le 19-05-2007 à 14:01 | #
Ouai ce que je veux surtout pas faire et a ce niveau autant pas utiliser Isz et Dsz et refaire tout le code, je trouverai une solution pour compresser tout ça dans une ou deux variables.

ça peut prendre du temps pour trouver le code et la formule magique.

Mais sinn donner moi juste une petite impression, et voir si ça marche sur des graphs autre que la G100.
PhixmeHors ligneMembrePoints: 136 Défis: 0 Message
Posté le 19-05-2007 à 14:20 | #
Voila la base pour les flemards du download:

BG-None
AxesOff
ClrGraph
20->A
20->B
27->K
Lbl C
ClrGraph
ViewWindow 1,64,1,1,32,1
Text 2,5,"SCORE:"
F-Line 2.5,2.5,61,2.5
F-Line 61,2.5,61,27.5
F-Line 61,27.5,2.5,27.5
F-Line 2.5,27.5,2.5,2.5
Lbl D
Do
GetKey->S
S différent de 0=>S->K
K=27=>Goto F
K=37=>Goto H
K=38=>Goto E
K=28=>Goto G
LpWhile Ans=0
Goto D
Lbl E
Do
GetKey->S
S différent de 0=>S->K
K=38=>Dsz B
B < ou = 3=>61->B
F-Line B-0.5,A,B-0.5,A-1
F-Line B-1,A,B-1,A-1
K=28 Or K=37=>Goto D
LpWhile Ans=0
Goto E
Lbl F
Do
GetKey->S
S différent de 0=>S->K
K=27=>Isz B
B superieur ou = à 61.5=>3->B
F-Line B-0.5,A,B-0.5,A-1
F-Line B,A,B,A-1
K=37 Or K=28=>Goto D
LpWhile Ans=0
Goto F
Lbl G
Do
GetKey->S
S différent de 0=>->K
K=28=>Isz A
A supérieur ou = à 28=>3->A
F-Line B,A-0.5,B-1,A-0.5
F-Line B,A,B-1,A
K=27 Or K=38=>Goto D
LpWhile Ans=0
Goto G
Lbl H
Do
GetKey->S
S différent de 0=>S->K
K=37=>Dsz A
A [Inférieur ou =] 2.5=>27->A
F-Line B,A+0.5,B-1,A+0.5
F-Line B,A,B-1,A
K=38=>Goto J
K=27=>Goto I
LpWhile Ans=0
Goto H
Lbl I
Do
GetKey->S
S différent de 0=>S->K
K=27->Isz B
B supérieur ou = 61.5=>3->B
F-Line B-0.5,A,B-0.5,A+1
F-Line B,A,B,A+1
K=37 Or K=28=>Goto D
LpWhile Ans=0
Goto I
Lbl J
Do
GetKey->S
S différent de 0=>S->K
K=38=>Dsz B
B inférieur ou = 2=>60->B
F-Line B+1,A,B+1,A+1
F-Line B+0.5,A,B+0.5,A+1
K=28 Or K=37=>B+1.5->B
K=28 Or K=37=>Goto D
LpWhile Ans=0
Goto J
MeithalHors ligneAncien administrateurPoints: 3125 Défis: 7 Message
Posté le 19-05-2007 à 16:56 | #
Code original mais un peu trop gotoïfié à mon gout

J'avoue n'avoir aucune idée de comment il peut fonctionner sans matrice ni liste.
MuelsacoHors ligneFondateurPoints: 9335 Défis: 175 Message
Posté le 19-05-2007 à 17:43 | #
Avec des pixels tests c'est possible mais pas le plus rapide à mon avis...
PhixmeHors ligneMembrePoints: 136 Défis: 0 Message
Posté le 19-05-2007 à 19:13 | #
Les Pixels Test je prévois ça pour stopper le programme quand le snake touche sa queue.

Je voulais faire ça en pixel off mais en 3 lignes sa risque d'etre lent.
PhixmeHors ligneMembrePoints: 136 Défis: 0 Message
Posté le 19-05-2007 à 19:16 | #
Sinn pour les goto j'ai pas trop le choix ça permet d'alléger le programme en répartissant les mouvement sur plusieurs Label, ça accélere le snake par 3.
LenainnoirHors ligneAncien administrateurPoints: 5186 Défis: 24 Message
Posté le 19-05-2007 à 19:18 | #
Hi hi ! Les Goto ça accélère le programme.

Mppfffrrrr


Excuse moi c'est nerveux.
Es-tu sûr de ne pas pouvoir remplacer les Goto ? C'est la pire commande de Basic.
PierrotllHors ligneAncien administrateurPoints: 5488 Défis: 41 Message
Posté le 20-05-2007 à 16:16 | #
!=0
Jamais on ne devrait voir de tests comme ça!!!
Pour tout ordi, 0 est faux, 1 (et tout ce qui est différent de 0) est vrai.
Alors au lieu d'écrire
S!=0=>
mets plutot
S=>
MuelsacoHors ligneFondateurPoints: 9335 Défis: 175 Message
Posté le 20-05-2007 à 16:26 | #
Tous les languages n'associent pas 1 à true et 0 à false (bon la calculatrice si )
PhixmeHors ligneMembrePoints: 136 Défis: 0 Message
Posté le 20-05-2007 à 16:46 | #
Hum hum bon à savoir.....

Sinn Isz, Dsz, Lbl et Goto sont des boucles. Plus tu mets d'infos dans une boucle plus elle est longue a tourner.

Donc les goto ici sont obligatoire. ça permet au lieu de mettre 20 lignes dans une grande boucle. Dans mettre 5 à la place sur pls Label. Fais moi confiance c'est testé et retesté...

Pages: Précédente | 1, 2, 3, 4, 5 | Suivante

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 88 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd