Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - kindermoumoute

Pages: 1 ... 36 37 [38] 39 40 ... 57
556
The Axe Parser Project / Re: French Translation / Traduction Française
« on: November 11, 2010, 09:47:33 am »
Je pense que je vais mettre le tableau de toutes les commandes dans mon tutoriel. Mais ce ne sera évidemment pas la même présentation (et une version en hors ligne est quand même nécessaire).

557
Official Contest / Re: Cage Match #2: Homescreen Game
« on: November 11, 2010, 08:59:04 am »
VDODGE is pretty nice !

558
TI-BASIC / Re: Decimal Binary conversion
« on: November 10, 2010, 06:25:25 pm »
Compatible all bases.


559
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: November 10, 2010, 01:03:31 pm »
Je cherche une solution depuis tout à l'heure pour simplifier ce code :
Code: [Select]
:If getKey(20)
:8→I
:ElseIf getKey(28)
:7→I
:ElseIf getKey(36)
:6→I
:ElseIf getKey(19)
:5→I
:ElseIf getKey(27)
:4→I
:ElseIf getKey(35)
:3→I
:ElseIf getKey(18)
:2→I
:ElseIf getKey(26)
:1→I
:ElseIf getKey(34)
:0→I
:End
Pas d'idées ? ???

560
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: November 10, 2010, 06:58:25 am »
Quote from: DJ Omnimaga on November 10, 2010, 02:39:47 am
Ah je vois. Je vais surement aller m'inscrire là bas bientot, mais je ne sais pas si je serai super actif, à part dans les forums de projets et généraux, ayant abandonné la prog TI l'été passé et surtout avec l'approche des fêtes, je commence à avoir de la misère à trouver des trous dans la journée pour poster sur Omni tout en pouvant jouer à Starcraft :P
Je te rassure tout de suite : il n'y a que 15 membres x).

561
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: November 10, 2010, 01:42:21 am »
Il est du forum espace TI lui aussi ;D

562
[FR] Autre Sujets de Programmation TI, Casio et Aide / Re: Explication de la taille d'une application
« on: November 09, 2010, 03:20:52 pm »
OK, mais la question que je pose est la suivante : Quand on a atteint le minimum de RAM libre indiqué, et que l'on démarre une application de 16 Ko, comment la calculatrice gère ça au niveau de la mémoire vive (24+16 =40)?

563
[FR] Autre Sujets de Programmation TI, Casio et Aide / Re: Explication de la taille d'une application
« on: November 09, 2010, 02:54:08 pm »
Et la calculatrice est capable de lire cette mémoire... flash ? ou utilise-t-elle une mémoire vive qui m'est inconnu ? :P

564
[FR] Autres Discussions TI et Casio / Re: Calcul Mental 4.0
« on: November 09, 2010, 02:44:23 pm »
Quote from: Kiligolo on November 09, 2010, 01:47:11 pm
Mauvaise nouvelle : la version en axe ne pourra sortir que quand j'aurais appris les datas avec le tuto de kindermoumoute... :-\
Mais je croyais que tu avais comprit  :-X
Quote from: Kiligolo on November 09, 2010, 01:47:11 pm
Ou quand la fonction input marchera. re :-\
Elle marche, mais pas sur toutes les calculatrices. Si je peux te conseiller la fonction input de ztrumpet.

565
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: November 09, 2010, 02:32:17 pm »
Juste pour te prévenir : les code dans un spoiler c'est incompatible chrome et chromium.

Pour ton code je vais faire en plusieurs étapes, d'abord on aère et on commente :
Code: [Select]
:.PERSO
:
:.DATA
:[{sprite du perso}]→Pic1
:[{sprite du mur}]→Pic2
:
:Lbl A
:.M=1, Y=32, X=47, E=?
:1→M+31→Y+15→X
:
:.Boucle principale
:Repeat getKey(15)
:If getKey(2)
:sub(COG)
:ClrDraw
:End
:
:If getKey(3)
:sub(COD)
:ClrDraw
:End
:
:If getKey(1)
:sub(COB)
:ClrDraw
:End
:
:If getKey(4)
:sub(COH)
:ClrDraw
:End
:
:sub(MAP)
:
:Pt-On(X,Y,E*8+Pic1)
:
:.On affiche 3 niveaux de gris ?
:DispGraphr
:
:End
:Goto Z
:
:Lbl MAP
:If M=1
:For(A,0,11)
:Pt-On(A*8,0,Pic2)
:If (A≠4) and (A≠5)
:Pt-On(A*8,56,Pic2)
:End
:End
:For(A,1,7)
:Pt-On(0,A*8,Pic2)
:Pt-On(88,A*8,Pic2)
:End
:End
:Return
:
:.Déplacement à gauche ?
:Lbl COG
:0→B
:For(A,0,7)
:!If Pxl-Test(X-1,Y+A)
:B+1→B
:If B=8
:X-1→X
:End
:End
:End
:Return
:
:.Déplacement à droite ?
:Lbl COD
:0→B
:For(A,0,7)
:!If Pxl-Test(X+9,Y+A)
:B+1→B
:If B=8
:X+1→X
:End
:End
:End
:Return
:
:.Déplacement en bas ?
:Lbl COB
:0→B
:For(A,0,7)
:!If Pxl-Test(X+A,Y+9)
:B+1→B
:If B=8
:Y+1→Y
:End
:End
:End
:Return
:
:.Déplacement en haut ?
:Lbl COH
:0→B
:For(A,0,7)
:!If Pxl-Test(X+A,Y-1)
:B+1→B
:If B=8
:Y-1→Y
:End
:End
:End
:Return
:
:.La fin du programme
:Lbl Z
:ClrDraw
:ClrDrawr
:DispGraph
:.Pourquoi DispGraph ici ?
Je te laisse m'expliquer les endroits ou il y a des points d'interrogations.

Je simplifie ton code pour une meilleur lecture :
Code: [Select]
:.PERSO
:
:.DATA
:[{sprite du perso}]→Pic1
:[{sprite du mur}]→Pic2
:
:Lbl A
:.M=1, Y=32, X=47
:1→M+31→Y+15→X
:
:.Boucle principale
:Repeat getKey(15)
:If getKey(2)
:sub(COG)
:sub(CLR)
:ElseIf getKey(3)
:sub(COD)
:sub(CLR)
:ElseIf getKey(1)
:sub(COB)
:sub(CLR)
:ElseIf getKey(4)
:sub(COH)
:sub(CLR)
:End
:
:sub(MAP)
:
:Pt-On(X,Y,Pic1)
:.Tu n'a qu'une sprite perso, alors je ne comprend pas le "+(E*8)"
:
:DispGraph
:
:End
:.La fin du programme
:ClrDraw
:Return
:
:Lbl CLR
:ClrDraw
:Return
:
:Lbl MAP
:If M=1
:For(A,0,11)
:Pt-On(A*8,0,Pic2)
:If (A≠4) and (A≠5)
:Pt-On(A*8,56,Pic2)
:End
:End
:For(A,1,7)
:Pt-On(0,A*8,Pic2)
:Pt-On(88,A*8,Pic2)
:End
:End
:Return
:
:.Déplacement à gauche ?
:Lbl COG
:sub(CO,X,-1,A,-1)
:Return
:
:.Déplacement à droite ?
:Lbl COD
:sub(CO,X,9,A,1)
:Return
:
:.Déplacement en bas ?
:Lbl COB
:sub(CO,Y,A,9,1)
:Return
:
:.Déplacement en haut ?
:Lbl COH
:sub(CO,Y,A,-1,-1)
:Return
:
:Lbl CO
:0→B
:For(A,0,7)
:!If Pxl-Test(X+r2,Y+r3)
:B+1→B
:If B=8
:r1+r4→r1
:End
:End
:End
Et c'est seulement maintenant que je vois "la chose" :o

Donc ton programme affiche des murs sur les bord, tu veux déplacer ton joueur de façon à ce qu'il s'arrête devant un mur (c'est un peu ça en gros, mais si tu avait caché des fonctions dans ton code, tu trouvera surement comment l'adapter).

Je te proposerai ce code qui va être plus facile à comprendre pour toi :
Code: [Select]
:.PERSO
:
:.DATA
:[{sprite du perso}]→Pic1
:[{sprite du mur}]→Pic2
:
:Lbl A
:1→M→Y→X
:
:.Boucle principale
:Repeat getKey(15)
:(getKey(3) and (X<11))-(getKey(2) and (X>1))+X→X
:(getKey(4) and (Y<7)-(getKey(1) and (Y>1))+Y→Y
:sub(MAP)
:Pt-On(X*8,Y*8,Pic1)
:DispGraph
:End
:Return
:
:
:Lbl MAP
:ClrDraw
:For(A,0,11)
:sub(ON,A*8,0)
:sub(ON,A*8,56)
:End
:For(A,0,7)
:sub(ON,0,A*8)
:sub(ON,88,A*8)
:End
:End
:Return
:
:Lbl ON
:Pt-On(r1,r2,Pic2)
Et encore la je reste gentil  ::)
Car le code le plus adapté ici est une map Data (voir lien plus haut).

566
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: November 09, 2010, 01:07:54 pm »
 ??? Perso je n'ai pas le courage de lire un code comme ça  :-\.
Si ton programme cherche à déplacer un personnage en fonction d'une map, je suis déjà en train d'expliquer cela à Kiligolo ici. (Cette fois c'est lui qui pourrait t'expliquer  ;D)

Je suis en train de commencer la rédaction sur les chapitres Data (il y en aura 2) dans mon tutoriel. Au mieux ce sera en ligne avant la fin de l'année. Au pire jamais. :P
Le problème c'est le temps, je ne trouve pas beaucoup de temps pour faire tout ce que j'ai envie, donc j'essaye de consacrer une grande partie au turoriel, en espérant ne pas trop vous faire attendre  :P.

567
Axe / Re: Routine Thread Index
« on: November 09, 2010, 11:37:59 am »
Very usefull, thank !

568
Axe / Re: transform an image displayed in hexadecimal String
« on: November 08, 2010, 02:59:56 pm »
:o it work, pretty routine !

569
The Axe Parser Project / Re: Bug Reports
« on: November 08, 2010, 02:19:50 pm »
I found a bug (I think) :
When I compile this code in Axe 0.4.4, it work :
Code: [Select]
:!If EXP1
:.Code
:ElseIf EXP2
:.Code
:End
But in 0.4.5, I'm obliged to do that :
Code: [Select]
:If EXP1=0
:.Code
:ElseIf EXP2
:.Code
:End
This is due to ERR:BLOCK when I compile.
???

570
[FR] Programmation Axe Parser / Re: [Axe Parser] Tutoriel sur le site du zéro
« on: November 08, 2010, 02:00:18 pm »
N'empêche que sur le site du zéro on dispose d'une palette d'outils très utiles non compatible html (d'après mes tests), enfin pas facile quoi :/

Pages: 1 ... 36 37 [38] 39 40 ... 57