| Stopper edit-meilleurs scores-problème cable |
| Auteur |
Message |
Jérôme
Invité
|
Posté le : Ven 14 Oct 2011, 20:37
|
|
 |
Salut à tous,
j'ai beaucoup de questions...
Déjà je cherche un moyen de sauvegarder les scores d'un jeu que j'ai trouvé (donc pas de moi) et de définir 3 meilleurs scores ... Commme par exemple, entre 30 et 50 = Nul 
Voici le programme  :
:ClrHome
:Output(4,6,"MAXIME
:Output(5,5,"PRESENTE
:For(T,0,300
:End
:ClrHome
:Output(4,6,"SLALOM
:For(T,0,300
:End
:0üA
:0üS
:0üV
:0üX
:0üB
:0üK
:4üA
:0üS
:3üV
:Lbl 0
:ClrHome
:round(7rand+1,0)üX
:If Xø1
:Output(X-1,8,"+
:If Xø8
:Output(X+1,8,"+
:16üB
:Lbl 1
:Output(A,B,"=
:B-1üB
:getKeyüK
:If (K=105 or K=25) and Aø1
:A-1üA
:If (K=104 or K=34) and Aø8
:A+1üA
:If A=X and B=8
:S+1üS
:If AøX and B=8
:Then
:ClrHome
:Disp ""," TU AS LOUPE"," UNE PORTE!!"," SCORE:
:Output(4,8,S
:Pause
:Goto Q
:End
:If B=1
:Goto 0
:Goto 1
:Lbl Q
:ClrHome
Ensuite j'aimerais bien comprendre comment protéger les programmes de l'edit sur une calculette autre que la mienne.
Et pour finir ^^, j'ai un cable pc->ti (grey) mais quand je connecte ma ti 82stats.fr , il ne la trouve dans aucun port 
Merci de votre aide !
|
| |
  |
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Ven 14 Oct 2011, 21:25
|
|
|
Si tu arrive à transférer ce programme https://ti83.pages-perso.free.fr/prgm/asm/divers/protect.zip et le shell SOS sur ta TI, tu peut vérouiller dévérouille à volenté l'édition des programmes sur ta TI, et lors du transfert, ils resteront dans l'état au moment de l'envoie (du point de vue de l'édition).
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
 |
|
| |
Jérôme
Invité
|
Posté le : Ven 14 Oct 2011, 21:51
|
|
|
Oui mais le problème c'est que le câble déconne... En passant par Graph link j'arrive pas à transférer des programmes.
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Ven 14 Oct 2011, 22:01
|
|
|
T'a assayé avec TI-Connect?
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
Jérôme
Invité
|
Posté le : Ven 14 Oct 2011, 22:05
|
|
|
Je crois bien... Je réessaye lundi et je te dis :p Et sinon pour les meilleurs scores, tu peux m'expliquer ? :S
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Sam 15 Oct 2011, 10:40
|
|
|
Tu fait un encodage mathématique et tu stoque le résultat dans une liste en codant le résultat (utilise des pi, de e, voir des log et des ln si tu connais) puis, quant il faut lire le score, la TI décode (en faisant les oppérations inverses) et si le nombre est incohérent (ce qui sera surement le cas si l'on a modifié la liste), tu affiche TRICHEUR. Mieux encore, si tu teste la cohérence des valeures au tout début déjà, tru peut même mettre un stop dans le code, qui est executé si et seulement si le score est incohérent.
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
Jérôme
Invité
|
Posté le : Sam 15 Oct 2011, 10:51
|
|
|
Tu peux me faire un exemple ? :] J'ai pas tout compris en particulier l'encodage et faire une liste...
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Sam 15 Oct 2011, 11:05
|
|
|
Prenons par example une liste des 3 meilleurs score:
Pour encoder (S étant le score et R le rand):
| Code | | (ln((8*S+pi/2)²)^3)/log(e²-pi+3) -> lSCORE(R |
et pour décoder (L1 étant la liste des scores décodés)
| Code | For(A,1,3
lSCORE(A -> X
X*log(e²-pi+3) -> X
racine_cube(X -> X
e^(X) -> X
racine carrée(X) -> X
X-pi/2 -> X
X/8 -> X
X -> L1(A)
End
Arrondi(L1,5 -> L1 |
Soit en simplifié :
| Code | {0 -> L1
For(A,1,3
0.125(-pi/2+racine carrée(e^(racine_cube(lSCORE(A)*log(e²-pi+3) -> L1(A)
End
|
Et pour vérifier si l'on a triché :
| Code | If prod(L1) [différend de] ent(Prod(L1
Then
Disp "TRICHEUR
Stop
End |
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
Jérôme
Invité
|
Posté le : Sam 15 Oct 2011, 11:11
|
|
|
Ok merci et juste si je veux que "Nul" apparaisse lorsque le score est entre 0 et 10 par ex je fais comment ?
Et je met l'encodage au début et le désencodage à la fin c'est ca !?
|
| |
|
| |
tilo1996
Autorisation : Membre
Nb de messages : 122
Inscrit le : Sam 23 Avr 2011, 10:47
|
Posté le : Sam 15 Oct 2011, 11:28
|
|
|
La variable S Est ici deja decodée Bien sur 
| Code | | If S>0 et S<10: Disp"T ES NUL" |
|
| |
|
| |
Jérôme
Invité
|
Posté le : Sam 15 Oct 2011, 11:50
|
|
|
Merci !
In correspond à quoi je ne le trouve pas ... et pi =comme en maths ^^' ?
|
| |
|
| |
Jérôme
Invité
|
Posté le : Sam 15 Oct 2011, 11:54
|
|
|
c'est bon pour in 
[désolé double post]
|
| |
|
| |
xDreams
Invité
|
Posté le : Sam 15 Oct 2011, 12:07
|
|
|
Tu peux recopier le prog avec les meilleurs scores stp ?
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Sam 15 Oct 2011, 21:50
|
|
|
pi est bien la lettre greque que l'on utilise en maths, et ln est le logarithme népérien (c'est la touche audessus de [sto -> ]).
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
Jérôme
Invité
|
Posté le : Sam 15 Oct 2011, 23:08
|
|
|
Tu pourrais réécrire le prgm avec les meilleurs scores stp ? J'arrive pas :S(je débute)
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 16 Oct 2011, 0:04
|
|
|
| Code | 3->dim(lSCORE
0.125(-pi/2+racine carrée(e^(racine_cube(lSCORE*log(e²-pi+3)->L1
If fPart(prod(L1
Then
Disp "TRICHEUR
Stop
End
:ClrHome
:Output(4,6,"MAXIME
:Output(5,5,"PRESENTE
:For(T,0,300
:End
:ClrHome
:Output(4,6,"SLALOM
:For(T,0,300
:End
:0ü A
:0üS
:0üV
:0üX
:0üB
:0üK
:4üA
:0üS
:3üV
:Lbl 0
:ClrHome
:round(7rand+1,0)üX
:If Xø1
:Output(X-1,8,"+
:If Xø8
:Output(X+1,8,"+
:16üB
:Lbl 1
:Output(A,B,"=
:B-1üB
:getKeyüK
:If (K=105 or K=25) and Aø1
:A-1üA
:If (K=104 or K=34) and Aø8
:A+1üA
:If A=X and B=8
:S+1üS
:If AøX and B=8
:Then
:ClrHome
:Disp ""," TU AS LOUPE"," UNE PORTE!!"," SCORE:
:Output(4,8,S
:Pause
:Goto Q
:End
:If B=1
:Goto 0
:Goto 1
:Lbl Q
:ClrHome
If S<10:Disp "T'ES NUL !
:ClrHome
S->L1(4
SortD(L1
3->dim(L1
(ln((8*L1+pi/2)²)^3)/log(e²-pi+3)->lSCORE // L1 est bien une liste
Disp "RECORDS:",L1
Pause
:ClrHome |
Cela devrait marcher mais je n'ai pas le temps de vérifier.
Et je n'ai pas envisagé d'optimiser le coeur du code.
----------------------
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)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
Jérôme
Invité
|
Posté le : Dim 16 Oct 2011, 1:12
|
|
|
Parfait pour les meilleurs scores ! Merci
|
| |
|
| |
Jérôme
Invité
|
Posté le : Mer 19 Oct 2011, 19:09
|
|
|
Boonsoir,
Nouveau problème, cela marcahit et tout mais maintenant j'ai erreur DIM:INVALIDE et ca pointe sur
(j'ai eu un RESET, si c'est en rapport avec ca...)
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mer 19 Oct 2011, 21:31
|
|
|
ça vient d'une petite erreur dans le code : remplace tous les L1 par lSCORE.
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
Jérôme
Invité
|
Posté le : Jeu 20 Oct 2011, 0:16
|
|
|
J'ai réussi, en faites sur l'écran d'accueil j'ai tapé "3->dim(L1" et j'ai appuyé sur "entrer" et sa marchait ! Merci quand même
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Jeu 20 Oct 2011, 18:23
|
|
|
Oui, tu peut aussi tout simplement remplacer su la première lige le lSCORE par L1, ça te résoudra aussi le problème. Mais dans tous les cas, si tu ne suis pas la manip que j'ai expliqué dans mon messages précédent, tu risque de te faire effacer tes scores par un programme (L1 est assez souvant utilisée).
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
xDreams
Autorisation : Membre
Nb de messages : 96
Inscrit le : Jeu 20 Oct 2011, 0:22
|
Posté le : Jeu 20 Oct 2011, 19:48
|
|
|
Ok je vais le faire alors :p Merci du conseil ! (Jérôme)
-----
EDIT: Quand j'ai l'affichage des meilleurs scores sa me mets le résultat de l'opération '-- 3.267 etc ... :p
----------------------
Reprise du dev Ti-Basic !
( mais passé à html5/css3 et c#)
Mes Programmes (Mis à jour le 13/01/12) |
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Jeu 20 Oct 2011, 20:24
|
|
|
désolé, je me suis trompé  le code de Linkakro était bien correct, c'est moi qui ai mal lu.
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
xDreams
Autorisation : Membre
Nb de messages : 96
Inscrit le : Jeu 20 Oct 2011, 0:22
|
Posté le : Jeu 20 Oct 2011, 21:17
|
|
|
Pas de problème !
----------------------
Reprise du dev Ti-Basic !
( mais passé à html5/css3 et c#)
Mes Programmes (Mis à jour le 13/01/12) |
| |
|
| |
