Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 05 Juil 2011, 18:06
Bonjour bonjour :p
Hier j'ai finis mon juste prix très évolué, pa si lourd que ça ! ( comparé a mes autres programme ^^')
Je me suis inspiré du dernier juste prix posté sur ce site ( inspiré seulement je vous rassure !!! )
Il y a une image (le menu graphique que je ne met pas), donc dans le menu vous aurez juste le principale...
Il y a 4 niveaux de difficulté, le 4eme est bloqué tant que les 3 autres ne sont pas terminé.
Le 5 eme niveaux on choisi l'interval ( a partir de 1) et on choisi le nombre d'essai ( les autre niveau on 10 essai)
Il y a la barre horiz, on entre le nombre dans l'écran home, ça dis si c'est plus/moin, ça montre l'interval, le nombre d'éssai, l'interval se modifi au fur et a mesur que l'on entre des nombres exemple :
Si c'est entre 1 et 500, que l'on entre 200. ( 1< [X] < 500 )
La calculette nous dis : "c'est plus"
L'interval vas etre : ( 200 < [X] < 500 )
Voila, je crois que j'ai tout dis ^^', voici le code !
Code
:"progrm:JUSTPRIX >by UGO<
Lbl Á
11üL
9üC
EffDessin
EffEcr
AxesNAff
FonctNAff
CoordNAff
GraphNAff
QuadNAff
PleinEcr
0üXmin
94üXmax
0üYmin
62üYmax
6üdim(áPLUS
1üZ
0üY
RappelImage 1
Texte(1,62,"24/03/11
Texte(13,50,"juste prix
Texte(22,50,"<**>
Texte(13,17,"play
Texte(20,17,"rule
Texte(27,16,"reset
Texte(34,15,"score
Texte(41,18,"quit
EffVar X
2üP
codeTouch(üK
Repeat max(Rep={105
If Rep
Then
If Rep=45
Goto Q
If Rep=25 ou Rep=34
Then
Texte(13+7X,3," "
Texte(13+7X,40," "
X+(Rep=34)-(Rep=25
Rep+5((Rep<0)-(Rep>4üX
Else
P+(Rep=26)-(Rep=24
Rep+5((Rep<1)-(Rep>5üP
Texte(ú1,22,56+6P,"
Texte(22,50,sous-Cha ne("<*****",1,Rep+1),">
RappelImage 1
End
End
Texte(13+7X,3,"H
Texte(13+7X,42,"H
Pt-Aff(41,46-7X,3
Pt-Aff(6,46-7X,3
codeTouch(
End
If non(X
Then
Goto J
End
If X=1:Goto B
If X=2:Goto Z
If X=3:Goto S
If X=4:Goto Q
Lbl S
EffDessin
Texte(0,20,"SCORE:
Texte(10,0,"Level:
Texte(20,0,"1: nothing
Texte(26,0,"2: nothing
Texte(32,0,"3: nothing
Texte(38,0,"4: nothing
Texte(48,0,"5: nothing
If 1ևPLUS(1
Then
áPLUS(1üO
Texte(20,8,"win : ",O," [1 : 500]
End
If 1ևPLUS(2
Then
áPLUS(2üV
Texte(26,8,"win : ",V," [1 : 1000]
End
If 1ևPLUS(3
Then
áPLUS(3üM
Texte(32,8,"win : ",M," [1 : 5000]
End
If 1ևPLUS(4
Then
áPLUS(4üC
Texte(38,8,"win : ",C," [1 : 10 000]
End
If 1ևPLUS(5
Then
áPLUS(5üH
Texte(48,8,"win : ",H," [1 : ",áPLUS(6),"]
End
Pause
EffDessin
Goto Á
Lbl Z
EffEcr
Disp "RESET","SCORE
Disp ""
Disp "loading...
For(A,0,100
End
EffListe áPLUS
Goto Á
Lbl Q
EffEcr
EffDessin
Texte(ú1,0,16,"Thinks for
Texte(ú1,9,35,"playing !
Texte(ú1,25,0,"contact:
Texte(ú1,33,0,"ugo
Texte(ú1,33,28,"belfiore.fr
Texte(33,21,"a
Pt-Aff(24,24
Ligne(25,25,25,28
Ligne(24,29,20,29
Ligne(19,28,19,23
Ligne(20,22,23,22
Texte(ú1,56,61,"bye :
Texte(ú1,56,89,")
For(A,1,200
End
Stop
Lbl B
EffDessin
Texte(0,0,"CHOISISSEZ UN MODE:
Texte(9,2,"-FACILE (1-500)
Texte(15,2,"-MOYEN (1-1000)
Texte(21,2,"-DIFFICILE (1-5000)
Texte(28,0,"ENTREZ ENSUITE UN NOMBRE
Texte(36,0,"ET LE PROGRAMME VOUS DIRA
Texte(42,0,"SI C'EST PLUS OU MOINS !
Pause
EffDessin
Goto Á
Lbl J
If P=1
Then
Goto 1
End
If P=2
Then
Goto 2
End
If P=3
Then
Goto 3
End
If P=4
Then
Goto 4
End
If P=5
Then
Disp "****************
Disp "* INPUT INTERV *
Disp "****************
Output(8,1,"inter[1 : ]
Input F
Output(8,1,"intew[1 : ]
Output(8,10,F
Input "essai: ",W
Output(7,1,"Essai:
Output(7,8,W
Output(8,1,"Inter[1 : ]
Output(8,10,F
For(A,0,600
End
W+1üW
WüL
WüC
C-2üC
FüáPLUS(6
Goto 89
End
Lbl 1
entAl–at(1,500)üA
1üK
500üF
Goto 5
Lbl 2
entAl–at(1,1000)üA
2üK
1000üF
Goto 5
Lbl 3
entAl–at(1,5000)üA
3üK
5000üF
Goto 5
Lbl 89
entAl–at(1,F)üA
5üK
Goto 5
Lbl 4
If áPLUS(1)÷10 et áPLUS(1)ø0 et áPLUS(2)÷10 et áPLUS(2)ø0 et áPLUS(3)÷10 et áPLUS(3)ø0
Then
entAl–at(1,10000)üA
4üK
10000üF
Goto 5
Else
EffEcr
Disp "Acces","Denied !","","Need finish","the 3 last game.
Pause
EffEcr
Goto Á
End
Lbl 5
1üM
FüN
GÞT
Horiz
EffDessin
EffEcr
0üXmin
94üXmax
30üYmin
62üYmax
Ligne(94,62,63,62
Ligne(94,53,63,53
Ligne(94,53,94,62
Ligne(62,53,62,62
Ligne(36,30,36,37
Ligne(36,37,94,37
Lbl 55
If Z=L:Goto 66
Texte(1,64,"essai: ",C,"
Texte(24,41,"base: [1:",F,"]
Texte(0,0,"interval:
Texte(9,3,M," < [X] < ",N,"
Input "Numb3r:",G
If G>N ou G<M
Then
EffEcr
Goto 55
End
If G>A
Goto 10
If G<A
Goto 11
If G=A
Goto 12
Lbl 10
Disp "
Disp " C'est moins !
Z+1üZ
C-1üC
GüN
For(B,1,499
End
EffEcr
Goto 55
Lbl 11
Disp "
Disp " C'est plus !
Z+1üZ
C-1üC
GüM
For(B,1,499
End
EffEcr
Goto 55
Lbl 66
EffEcr
Disp "
Disp " PERDU !
Texte(9,3,M," < ",A," < ",N,"
Pause
Goto Á
Lbl 12
EffEcr
Disp "
Disp " EXACTE !
Texte(9,3,M," < ",A," < ",N,"
Pause
If Z÷L et K=4
Then
Disp "MODE","IMPOSSIBLE","REUSSI !
For(A,1,1500
End
ZüáPLUS(4
Goto Á
Else
If Z÷L et Kø4
Then
ZüáPLUS(K
Goto Á
Else
Goto Á
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mar 05 Juil 2011, 19:40
et bien, j'ai un programme ( a 1XXX octet) qui permet, en l'éxecutant de sauvgarder l'image 1... mais 1000 octet quoi ^^ je ne peux pas le mettre en format telechargable alors je ne l'ai pas mis, enlève les 2 recalpic ça marcheras quand m^me
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mar 05 Juil 2011, 21:32
Que voie-je là? ... Une corde vite, je ne veux pas vivre une minute de plus dans ce monde HORRIBLE.
Code
P+(Rep=26)-(Rep=24
Rep+5((Rep<1)-(Rep>5üP
Texte(ú1,22,56+6P,"
Texte(22,50,sous-Cha ne("<*****",1,Rep+1),">
RappelImage 1
End
End
Texte(13+7X,3,"H
Texte(13+7X,42,"H
Pt-Aff(41,46-7X,3
Pt-Aff(6,46-7X,3
codeTouch(
End
If non(X
Then // CAUSE DE MON SUICIDE
Goto J
End //CAUSE DE MON SUICIDE
If X=1:Goto B
If X=2:Goto Z
If X=3:Goto S
If X=4:Goto Q
Lbl S
EffDessin
Texte(0,20,"SCORE:
Texte(10,0,"Level:
Texte(20,0,"1: nothing
Texte(26,0,"2: nothing
Texte(32,0,"3: nothing
Texte(38,0,"4: nothing
Texte(48,0,"5: nothing
Sandro
PS : je ne retrouve pas cette corde de M**** , tampis, je me pendrait demain.
LOL : il est même plutôt bien optimisé tant code ; je faisait juste un peu d'humour.
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 05 Juil 2011, 23:05
Concernant Then/End :
C'est selon lui à cause de son shell. Il emploie des trucs moches pour empêcher son shell de bugguer.
Cela dâte de son programme de menu graphique.
Il l' ajoûte dans tous ses programmes.
( comme à chaque fois, je n'approuve pas tous ses bidules mais je n'ai pas le courage de signaler chaque défaut du menu dans chacun de ses programmes )
Moi je ne trouve pas que le code soit suffisamment optimisé. (mais ça ne veut pas dire que c'est facile ! )
Déjà bravo. Le top, ce sont tes options.
---------------------- 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)
hehe. tout a fait linko c est a cause de mirage os que. je met au premier uñ theñ et eñd. j3i decouvert que, mirage os, quañd on execute un programme avec la touche ENTER il le repette 2 fois si il y a uñ meñu graphique deriere.
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 13 Juil 2011, 1:18
-Les mêmes options
-un poids réduit
-peut facilement être adapté en graphique pour devenir plus beau
LJUST désigne la liste LJUST écrite avec le petit L du menu liste.
Code
Lbl 0
5->dim(LJUST
ClrHome
1->A
10->E
1->P
500
Menu("JUSTEPRIX","JOUER",J,"REGLES",L,"SCORES",S,"RESET",R,"QUITTER",Q
Lbl S
Disp "VICTOIRES POUR","CHAQUE NIVEAU
Pause LJUST
Goto 0
Lbl R
ClrList LJUST
Goto 0
Lbl L
Disp "TROUVEZ LE NOMBR","MYSTERE GRACE","AUX INDICES
Pause
Goto 0
Lbl J
Menu("NIVEAU","1-500",A,"1-1000",B,"1-5000",C,"1-10000",D,"PERSONNALISE",E
Lbl E
5->P
Input "1-",B
Input "ESSAIS :",E
B
Goto A
Lbl B
2->P
1000
Goto A
Lbl C
3->P
5000
Goto A
Lbl D
4->P
not(LJUST(1)LJUST(2)LJUST(3
If Ans
Disp "ACCES REFUSE","TERMINEZ LES","NIVEAUX 1,2,3
If Ans
Goto 0
10000
Lbl A
Ans->B
randInt(1,B->C
Lbl 1
ClrHome
Disp "ESSAIS :","ENTRE","ET
Output(1,10,E
Output(2,7,A
Output(3,7,B
Prompt X
If X<A or X>B
Goto 1
If X>C
Then
Pause "MOINS
X->B
End
If X<C
Then
Pause "PLUS
X->A
End
If X=C
Goto 2
E-1->E
If not(E
Goto 3
Goto 1
Lbl 3
Disp "PERDU","C'ETAIT :
Pause A
Goto 0
Lbl 2
1+LJUST(P->LJUST(P
Pause "EXACT
Goto 0
Lbl Q
---------------------- 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 : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Mer 13 Juil 2011, 2:08
Pour etre moin lourd il est moin lourd ^^
une ligne que je ne comrpend pas :
Code
Pause LJUST
Il fait combien ? a première vue 300-500 octet ? bravo !
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 13 Juil 2011, 2:30
Pause LJUST affiche la liste LJUST puis fait une pause. On peut alors parcourir la liste si elle dépasse de l'écran.
Il fait 640 octets
---------------------- 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)
)
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
je ne retrouve pas cette corde de M**** , tampis, je me pendrait demain.