Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse <<   Page: , 2, , , , ,      >>
la vertion 4 béta du Labygénérateur !
Auteur Message
lover-lol
Avatar

Autorisation : Membre
Nb de messages : 74
Inscrit le : Ven 03 Déc 2010, 3:42
Posté le : Sam 01 Jan 2011, 20:59   Citer 

Merci !

----------------------
Derien winkle.gif
 Adresse email Haut de page Bas de page 
 
metallica



Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
Posté le : Sam 01 Jan 2011, 22:16   Citer 

De rien winkle.gif

----------------------


Tutoriel sur l'Axe Parser !
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 03 Jan 2011, 10:52   Citer 

OUAHH !! C'est génial, toutes c'est petites astuces Metallica pour
économiser des octets ! bigmouth.gif
Je kiffe grave ! Va y ! Déchire toi, balance en plein ! bigmouth.gif
Çà fait gagner de la place et de la vitesse au prgm ! karate.gif

Merci aussi a persalteas pour cet quelques modifications, je vais l'ais
essayer sans attendre et je vous dirais quoi ! bigmouth.gif
Par contre ta remarque sur le fait que le labyrinthe n'a pas de solution
m’inquiète beaucoup, car les miens sont bel et bien PARFAITS !
(Un seul est unique chemin possible et cela dans tout les cas, et aucune zone inaccessible)... loupe.gif
Vérifie si tu n'a pas fait d'erreur ! Quel plaie ce recopiage ! maxiangry.gif
Et oui il n'y a pas de "et" entre les Pxl-Test... godgrace.gif

Pour info j'ai déjà écrit la version 4.5 !
je prendrait en compte vos modifications et la publirée bientôt ! glasses.gif

Merci a tous pour votre soutient ! bigmouth.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 03 Jan 2011, 13:59   Citer 

Çà y est j'ai tester vos propositions et toutes fonctionnent ! happy.gif
C'est officiel elles seront intégrées à la version 4.5 du prgm ! glasses.gif
Sauf peut'être les "delvar x" à la place de "0-)x".
Car elle prend la même place et n'est pas forcement plus facile à écrire...
Cependant si elle va plus vite à s'exécuter je la l'adopterais... minied.gif

Merki ! kiss.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 03 Jan 2011, 20:26   Citer 

j'ai vérifié ça me fait bien un labyrinthe avec le chemin coupé au milieu de l'écran.

 Adresse email Haut de page Bas de page 
 
metallica



Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
Posté le : Mar 04 Jan 2011, 18:34   Citer 

Tu veux d'autres optimisations. Tiens:
Tous les "If {EXPRESSION}=0" peuvent être remplacer par "If non({EXPRESSION}"
Ensuite toutes parenthèses se trouvant avant un [sto->] peut être supprimer. (Ce qui fait pas mal d'octets économiser.)
Je te conseil d'écrire Delvar {VARIABLE} au lieu de 0->{VARIABLE} car tu peux par exemple écrire:

Code
:Delvar X{0,1,4->A
au lieu de:
:0->X
:{0,1,4->A



----------------------


Tutoriel sur l'Axe Parser !
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mer 05 Jan 2011, 11:34   Citer 

Persalteas, tu m’inquiète beaucoup, car ce prgm fonctionne vraiment
à la perfection... angry.gif
Si c'est moi qui est fait une erreur, ce n'ai pas grave,
garde ce que tu a déjà recopier car la version 4.5 ne devrait plus tardé.
Tu n'auras alors plus qu'a compléter ou modifier, et avec un peu de chance
çà rectifiera l'erreur... happy.gif
Mais qu'entend tu par "chemin coupé au milieu de l'écran" ??? crazy.gif

PS: Merci Metalica ! kiss.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 05 Jan 2011, 15:29   Citer 

j'entends qu'il y a une ligne (bon, pas une ligne droite, elle fait des détours) qui va du haut de l'écran au bas de l'écran, me barrant ainsi le chemin.

 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Jeu 06 Jan 2011, 13:08   Citer 

C'est space ton truc ! crazy.gif Tu sais quoi ?
Je posterais un lien avec une vidéo et de images...
En attendant essaye de faire un "Reset défaut" de la calto.(çà ne suprime rien...). ahh.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Jeu 06 Jan 2011, 13:09   Citer 

4.5 ! La version musclée du Labygénérateur ! evil.gif evil.gif 691 octéts...(avec les lignes facultatives et 640 sans).



Code
:Menu("LABYRINTHE","PLAY",2,"NEW",1,"REPET",3
:Lbl 1:Effvar c:Effvar P:1-)N  ----(Effvar C facultatif).
:AxesNaff
:RappelImage (le n° de votre image):Pause:EffDessin  ----(Ligne facultative).
:0-)Xmin:0-)Ymin:94-)Xmax:62-)Ymax
:Vertical 1:Vertical 93
:Horizontale 1:Horizontale 61
:Lbl 3
:{0,4,0,-4,0-)A:{0,3.1,0,-3.1,0-)B:{62,65.1,62,58,9-)C
:Lbl 0
:Reapet pxl-Test(A,B
:1+4entAléat(0,15-)A
:1+4entAléat(0,23-)B:End
:If A=1:2-)L
:If A=61:4-)L
:If B=1:1-)L
:If B=93:3-)L
:While 1
:If non(pxl-Test(A+LA(L),B+LA(L+1:Then
:A+LA(L-)A:B+LA(L+1-)B
:Ligne(B,LC(L)-A,B-LB(L+1),LC(L)-A-LB(L)
:C+1-)C:Pxl->On(62,partEnt(C/(154/45)+2  ----(Ligne facultative).
:Else
:If pxl-Test(A+4(A=/=61),B)Pxl-Test(A-4(A=/=1),B)pxl-Test(A,B+4(B=/=93))pxl-Test(A,B-4(B=/=1))=1
:Goto 0
:End
:entAléat(1,4-)L
:End
______________________________________________________________________

:Lbl 2
:Effvar X:Effvar Y
:3+4entAléat(1,14-)C
:3+4entAléat(1,21-)D
:Pxl-On(C,D
:If P=0:Then:3-)A:3-)B
:For(P,2,92:Plx-Off(62,P:End  ----(Ligne facultative).
:End:1-)P
:
:Repeat A=C ou B=D
:codeTouche-)K
:
:If K=45:Goto 6
:Y-2(K=24)+2(K=26-)Y
:x-2(K=25)+2(K=34-)x
:
:If non(Pxl-Test(A+X,B+Y:Then
:Pt-Off(B,62-A,3
:A+2X-)A:B+2Y-)B
:Pt-On(B,62-A,3
:End:Effvar X:Effvar Y
:End
:N+2-)N:Pxl-On(62,N:Goto 2
:Lbl 6
:Menu("GAGNE !","QUIT",5,"SAVE",4
:Lbl 4:SauveImage 0
:Lbl 5:EffListe LA:EffListe LB:EffListe LC:AxesAff:ZStandard:EffEcr:Disp (N-1)/2:Stop



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
metallica



Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
Posté le : Jeu 06 Jan 2011, 17:21   Citer 

Tiens je suis sympa, je vais t'optimiser ton code (regarde les commentaires):

Code
:Menu("LABYRINTHE","PLAY",2,"NEW",1,"REPET",3
:Lbl 1:Effvar cEffvar P1-)N  // Pas besoin de mettre ":" après Delvar {variable}
:AxesNaff
:RappelImage (le n° de votre image):Pause:EffDessin
:0-)Xmin:0-)Ymin:94-)Xmax:62-)Ymax
:Vertical 1:Vertical 93
:Horizontale 1:Horizontale 61
:Lbl 3
:{0,4,0,-4,0-)A:{0,3.1,0,-3.1,0-)B:{62,65.1,62,58,9-)C
:Lbl 0
:Reapet pxl-Test(A,B
:1+4entAléat(0,15-)A
:1+4entAléat(0,23-)B:End
:2(A=1)+4(A=61-)L  // Calcul de booléen évitant d'utiliser des If. Augmente la vitesse du programme
:(B=1)+3(B=93-)L
:While 1
:If non(pxl-Test(A+LA(L),B+LA(L+1:Then
:A+LA(L-)A:B+LA(L+1-)B
:Ligne(B,LC(L)-A,B-LB(L+1),LC(L)-A-LB(L)
:C+1-)C:Pxl->On(62,2+partEnt(C/(154/45  // Le 2+ au début pour supprimer ")"
:Else
:If pxl-Test(A+4(A=/=61),B)Pxl-Test(A-4(A=/=1),B)pxl-Test(A,B+4(B=/=93))pxl-Test(A,B-4(B=/=1  // Le =1 n'est pas nécessaire. 
:Goto 0
:End
:entAléat(1,4-)L
:End
______________________________________________________________________

:Lbl 2
:Effvar XEffvar Y3+4entAléat(1,14-)C // Même remarque qu'au début
:3+4entAléat(1,21-)D
:Pxl-On(C,D
:If non(P:Then:3-)A:3-)B
:For(P,2,92:Plx-Off(62,P:End
:End:1-)P
:Repeat A=C ou B=D
:codeTouche-)K
:If K=45:Goto 6
:Y-2(K=24)+2(K=26-)Y
:x-2(K=25)+2(K=34-)x
:If non(Pxl-Test(A+X,B+Y:Then
:Pt-Off(B,62-A,3
:A+2X-)A:B+2Y-)B
:Pt-On(B,62-A,3
:End:Effvar XEffvar YEnd // Encore même remarque.
:N+2-)N:Pxl-On(62,N:Goto 2
:Lbl 6
:Menu("GAGNE !","QUIT",5,"SAVE",4
:Lbl 4:SauveImage 0
:Lbl 5:EffListe LA:EffListe LB:EffListe LC:AxesAff:ZStandard:EffEcr:Disp (N-1)/2  // La dernière ligne du programme est déjà un Stop


A chque fois que tu aère le programme d'une ligne ça prend 1 octet en plus.

----------------------


Tutoriel sur l'Axe Parser !
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 06 Jan 2011, 19:37   Citer 

Faux! C'est quand tu rajoute un : que ça met des octets donc un retour à la ligne ou continuer en mettant les deux points consomme autant de mémoire.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
metallica



Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
Posté le : Jeu 06 Jan 2011, 19:44   Citer 

Oui mais je dit ça dès qu'il n'y a rien sur cette ligne (sauter plusieurs lignes pour séparer en plusieurs parties son code par exemple)

----------------------


Tutoriel sur l'Axe Parser !
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Ven 07 Jan 2011, 9:11   Citer 

Merci les copains ! Çà fonctionne très bien et sa économise tout pleins d’octets !
But :
:2(A=1)+4(A=61-)L
sad.gifB=1)+3(B=93-)L
Est faux si L=0 angry.gif

Je propose donc :
sad.gifB=1)+2(A=1)+3(B=93)+4(A=61
:Rép(Rép=/=0)+L(Rép=0-)L
C'est plus long mais çà fonctionne ! bigmouth.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Ven 07 Jan 2011, 9:15   Citer 

4.6 ! La version musclée du Labygénérateur ! happy.gif



Code
:Menu("LABYRINTHE","PLAY",2,"NEW",1,"REPET",3
:Lbl 1:Effvar cEffvar P1-)N  ----(Effvar C facultatif).
:AxesNaff
:RappelImage (le n° de votre image):Pause:EffDessin  ----(Ligne facultative).
:0-)Xmin:0-)Ymin:94-)Xmax:62-)Ymax
:Vertical 1:Vertical 93
:Horizontale 1:Horizontale 61
:Lbl 3
:{0,4,0,-4,0-)A:{0,3.1,0,-3.1,0-)B:{62,65.1,62,58,9-)C
:Lbl 0
:Reapet pxl-Test(A,B
:1+4entAléat(0,15-)A
:1+4entAléat(0,23-)B:End
:If A=1:2-)L
:If A=61:4-)L
:If B=1:1-)L
:If B=93:3-)L
:While 1
:If non(pxl-Test(A+LA(L),B+LA(L+1:Then
:A+LA(L-)A:B+LA(L+1-)B
:Ligne(B,LC(L)-A,B-LB(L+1),LC(L)-A-LB(L)
:C+1-)C:Pxl->On(62,2+partEnt(C/(154/45  ----(Ligne facultative).
:Else
:If pxl-Test(A+4(A=/=61),B)Pxl-Test(A-4(A=/=1),B)pxl-Test(A,B+4(B=/=93))pxl-Test(A,B-4(B=/=1
:Goto 0
:End
:entAléat(1,4-)L
:End
______________________________________________________________________

:Lbl 2
:Effvar XEffvar Y
3+4entAléat(1,14-)C
:3+4entAléat(1,21-)D
:Pxl-On(C,D
:If P=0:Then:3-)A:3-)B
:For(P,2,92:Plx-Off(62,P:End  ----(Ligne facultative).
:End:1-)P
:
:Repeat A=C ou B=D
:codeTouche-)K
:
:If K=45:Goto 6
:Y-2(K=24)+2(K=26-)Y
:x-2(K=25)+2(K=34-)x
:
:If non(Pxl-Test(A+X,B+Y:Then
:Pt-Off(B,62-A,3
:A+2X-)A:B+2Y-)B
:Pt-On(B,62-A,3
:End:Effvar XEffvar Y
End
:N+2-)N:Pxl-On(62,N:Goto 2
:Lbl 6
:Menu("GAGNE !","QUIT",5,"SAVE",4
:Lbl 4:SauveImage 0
:Lbl 5:EffListe LA,LB,LC:AxesAff:ZStandard:EffEcr:Disp (N-1)/2



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 08 Jan 2011, 8:53   Citer 

je vais l'essayer.
qu'est ce qu'elle a de mieux que la précédente, selon toi?

 Adresse email Haut de page Bas de page 
 
metallica



Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14
Posté le : Dim 09 Jan 2011, 11:59   Citer 

J'avais pas vu un truc mais à la fin dès que t'écris:

Code
:EffListe LA:EffListe LB:EffListe LC


Tu peux remplacer par:

Code
EffListe LA,LB,LC



----------------------


Tutoriel sur l'Axe Parser !
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 10 Jan 2011, 10:45   Citer 

Aïe !!! Une erreur ! ahh.gif
B=1)+2(A=1)+3(B=93)+4(A=61
:Rép(Rép=/=0)+L(Rép=0-)L
Ne fonctionne pas non plus ! angry.gif
Elle génère des erreurs lorsque A et B=1...
Ne l'utilisée pas ! extraterre.gif

Utilisez pour le moment :
:If A=1:2-)L
:If A=61:4-)L
:If B=1:1-)L
:If B=93:3-)L

Désolé, faudra faire avec... cry.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
f/x=x²
Invité
Posté le : Lun 10 Jan 2011, 17:06   Citer 

LA,LB et LC c'est L1,L2 et L3?

  Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 10 Jan 2011, 17:16   Citer 

Oui, tu peut les remplacer par çà...
Si tu veut faire comme moi, c'est le petit "l" dans le catalogue
puis la lettre a, b ou c... happy.gif

PS: Merci a Métalica. Çà fonctionne ! happy.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse <<   Page: , 2, , , , ,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa