Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Sam 26 Mai 2012, 13:05
Salut à tous!!! Eh oui, je ne suis pas mort (étonnant non?) mais je programme toujours un peu parfois. Et la je me suis dit que les guitar hero ou il n'y avait qu'une touche a appuyer toutes les minutes, c'est pas drole, et je me suis dit que si je reprenais ma méthode de mon programme VOITURE BY SNAP , sa serait super!! Et je ne m'étais pas trompé, le jeu est super rapide, comme dans le vrai guitar hero!! Le seul truc c'est que si on ralentit le programme, il faut attendre que le rond soit vraiment a l'interieur des crochets. Au début sa peut perturber, mais quand on a le coup de main sa passe tout seul. Moi pour ma part je joue sans ralentir le programme. Une de ces difficultée, c'est fou!!
Voila mon programme, super pas lourd en plus!! (229 octets, la belle vie!! )
Code
:Effvar SEffvar OEffvar PEffvar QEffvar REffvar DEffvar CEffecr
:Disp "","","","","","","
:While D =/= 10 <-- Nombre de vies. Changez comme vous le voulez.
:S+1 -> S
:Output(8,1,"ERREURS :
:Output(8,10,D
:For(J,1,13,3
:Output(1,J,"[ ]
:End
:ajouter des 69! ici pour ralentir le programme
:entAléat(1,5 -> N
:Output(4,3N-1,"0
:Output(8,1," "
:Disp "
:codeTouche -> K
:Q -> R : P -> Q : O -> P : N -> O
:If R et K-10=/=R : D+1 -> D
:End
:EffEcr
:Output(4,3,"SCORE :
:Output(4,12,S
:Pause
:EffEcr
:Output(1,1,"
Et voila!!
EDIT : se joue avec les 5 boutons en haut de la calto^^
Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Sam 26 Mai 2012, 18:04
En effet c'est de la belle optimisation
(et sinon, ça avance ton rpg ? )
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTIONEN VIDEO
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Sam 26 Mai 2012, 18:47
Le RPG n'avance pas du tout. Faudrait que je le reprenne mais j'ai la flemme
Un jour peut-être j'arriverais à m'y remettre^^ Pour l'instant j'ai à peu près fini les deplacement, la map. Mais il me manque l'histoire, les combats, l'xp, etc...
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 27 Mai 2012, 20:18
Je désire tester une autre méthode de défilement des variables et je ne sais pas si cela sera utile.
(il y a 3 méthodes dont la tienne)
(si tu veux tu peux comparer avec mon cubefield)
Tu as oublié quelques-uns des espaces nécessaires à effacer la notification des erreurs.
"DelVar C" est innutile.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 28 Mai 2012, 11:47
sinon, tu peut remplacer les 69! par un boucle for vide : For(A,1,B):End
où tu intialise B au début du programme, puis que tu le réduise au fur et à mesure qu'on avance : ça devient donc de plus en plus dur.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Slt Invité
Posté le : Lun 28 Mai 2012, 12:56
Merci g fait la 2eme technique
je ne reviendrai plu jamai sur ce site : )
(j'ai recu mon cable!!!)
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 28 Mai 2012, 16:12
euh, si t'as une Nspire, effectivement, tu vas pas rester longtemps
Je ne programme pas du tout pour Nspire.
J'ai quelques programmes dispersés sur le forum, comme Easy f'(X) qui fait les dérivées, un programme d'étude complète avec la réaction d'une fonction x², quelques jeux (fléchettes, morpion 3D, labyrinthe 3D, casse brique, tir dans l'espace, foot, bowling, etc..., et sinon d'autres programmes plus inutiles comme un faux appareil photo, un traducteur morse <--> français, et je sais plus très bien...)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 28 Mai 2012, 16:33
@ Slt :
Soit tu cherches un peu sur le forum soit tu consultes nos signatures, soit tu vas sur un site dédié au téléchargement comme ti-calc limite pour ta 82statfr ou Ti-planet pour ta Nspire.
Ma signature contient un lien vers pratiquement tous mes programmes pour ti82stat à 84plus
NOTION IMPORTANTE : utiliser une seule fonction d'affichage est plus lourd mais plus rapide qu'utiliser un For.
J'ai constaté qu'un Output est trois fois plus rapide qu'un For et un Output.
Je ne parviens pas à départager les trois méthodes de défilement des variables losque la méthode d'affichage est la même. Donc il vous suffit d'adapter la méthode d'affichage.
Cependant je ne suis pas certain que l'écran et les variables soient parfaitement synchronisées.
Que les spécialistes de la guitare fassent un essai.
Ci-dessous je rappelle le programme de snap puis je poste les miens, tous avec un affichage amélioré.
Celui de snap a subit d'autres améliorations mineures.
Code
DelVar SDelVar ODelVar PDelVar QDelVar RDelVar DClrHome
For(J,1,7 // plus léger
Disp " // (pas besoin d'être rapide au démarrage)
End //
While D-10
S+1->S
Output(8,1,"ERREURS :
Output(8,10,D
Output(1,1,"[ ][ ][ ][ ][ ] // trois fois plus rapide en dehors du programme
69!
randInt(1,5->N
Output(4,3N-1,"0
Output(8,1," "
Disp "
getKey->K
Q->R
P->Q
O->P
N->O
If R and K-10-R
D+1->D
End
ClrHome
Output(4,3,"SCORE :
Output(4,12,S
Pause
ClrHome
Output(1,1,"
Code
DelVar SDelVar DClrHome
ClrList L1
4->dim(L1
L1->L2
For(J,1,7
Disp "
End
While D-10
S+1->S
Output(8,1,"ERREURS :
Output(8,10,D
Output(1,1,"[ ][ ][ ][ ][ ]
69!
randInt(1,5->L2(4
Output(4,3Ans-1,"0
Output(8,1," "
Disp "
getKey->K
L2(1
If Ans and K-10-Ans
D+1->D
SortA(L1,L2 // j'exploite un bug
End
ClrHome
Output(4,3,"SCORE :
Output(4,12,S
Pause
ClrHome
Output(1,1,"
Code
DelVar SDelVar DClrHome
ClrList L1
4->dim(L1
1->C
For(J,1,7
Disp "
End
While D-10
S+1->S
Output(8,1,"ERREURS :
Output(8,10,D
Output(1,1,"[ ][ ][ ][ ][ ]
69!
randInt(1,5->L1(C
Output(4,3Ans-1,"0
Output(8,1," "
Disp "
getKey->K
C+1->C
If C=5
1->C
L1(C
If Ans and K-10-Ans
D+1->D
End
ClrHome
Output(4,3,"SCORE :
Output(4,12,S
Pause
ClrHome
Output(1,1,"
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)