Forum de Ti-Gen.org, le site francophone des TI

Bienvenue Invité ! Se connecter Mes sujets	Administrer
Utilisateurs actifs : Aucun membre + 1 visiteur

Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.

:: Index » GFA-Basic TI68K » Programmation » Tout plein de questions!

(33 réponse(s))

./REPRISE DU POST PRECEDENT (post n°19) Marquer comme non lu.

geogeo

Ecrit le: Dimanche 20 mars 2005 à 20:23

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4258

Membre n°3

Inscrit le 29 janvier 2004

EJC2810 :
Euh, en fait y atoujours des problèmes!

RR_2ND et RR_DIAMOND fonctionnent en même temps mais RR_DIAMOND et RR_GAUCHE par exemple ne fonctionnent pas en même temps! #confus#

Ca marche pas terrible ce système pour les touches appuyées en même temps.

(je vous enverai le code plus tard si ça vous intéresse vraiment)

Je ne pourrai jamais débugguer GFA Basic ou t'aider si j'ai pas la source qui pose problème!

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°20 Marquer comme non lu.

Kevin Kofler

Ecrit le: Dimanche 20 mars 2005 à 20:33

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

²

Arrêtez de vous plaindre d'un bogue d'un outil de développement sans envoyer la source qui pose problème, ça ne sert à rien!

La première chose à faire quand il y a un problème dans un outil de développement est d'envoyer la source. Je ne diffuse jamais une source confidentielle envoyée pour des fins de débogage, et je suis sûr que geogeo ne ferait jamais ce genre de choses non plus.

Membre de l'équipe de TIGCC: http://tigcc.ticalc.org
Mainteneur du portage Linux/Unix de TIGCC: http://tigcc.ticalc.org/linux/
Membre de l'équipe de CalcForge: http://www.calcforge.org:70/

Participez à la reprise de Ti-Gen!

./Post n°21 Marquer comme non lu.

EJC2810

Ecrit le: Dimanche 20 mars 2005 à 21:47

Membre: Titan

Messages: 882

Membre n°367

Inscrit le 17 juillet 2004

Bon, ok je vais envoyer la source. Mais pas ce soir j'ai pas le temps de tout recopier.

Mais bon j'en vois pas trop l'utilité, je pense que le problème se fait sur n'importe quel prog GFA. Enfin, je pense, après...

Donc demain soir pour la source je pense.

./Post n°22 Marquer comme non lu.

Kevin Kofler

Ecrit le: Lundi 21 mars 2005 à 00:11

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

Recopier?! TI Connect, tu connais?

./Post n°23 Marquer comme non lu.

EJC2810

Ecrit le: Lundi 21 mars 2005 à 19:09

Membre: Titan

Messages: 882

Membre n°367

Inscrit le 17 juillet 2004

Euh oui, je l'ai mais je me suis pas amusé à apprendre toutes les fonctions. Envoyer et faire des backups me suffit!

Enfin, c'est toujours bon à connaitre!

Euh,... Comme vous voyez y a toujours pas le code! Ben c'est parce que là je révise mes TPE pour demain! On dirait pas hein?

Bon, j'y retourne! Je m'occuperai de ça vers 21h30.

./Post n°24 Marquer comme non lu.

EJC2810

Ecrit le: Lundi 21 mars 2005 à 21:48

Membre: Titan

Messages: 882

Membre n°367

Inscrit le 17 juillet 2004

**TI92P* main TextObject file 03/21/05, 21:40 R xtron2
¿ ¥Z e Rem X-Tron 2
Cls
Setfont F_8X10
Print At(4,8);"X-Tron v2.0"
Setfont F_4X6
Print At(7,10);"By Jerome Charpenay"
Repeat
Until RR_ENTER
Cls
Setfont F_4X6
Print At(1,1);"Lives:"
Line 0,8,159,8
Line 159,8,159,99
Line 159,99,0,99
Line 0,99,0,8
Line 2,10,157,10
Line 157,10,157,97
Line 157,97,2,97
Line 2,97,2,10
X%=10
Y%=90
Z%=2
Do
If RR_LEFT Then
Z%=1
Endif
If RR_RIGHT Then
Z%=2
Endif
If RR_UP Then
Z%=3
Endif
If RR_DOWN Then
Z%=4
Endif
If Z%=1 Then
X%=X%-1
Endif
If Z%=2 Then
X%=X%+1
Endif
If Z%=3 Then
Y%=Y%-1
Endif
If Z%=4 Then
Y%=Y%+1
Endif
If RR_ESC Or Point(X%,Y%)=TRUE Then
Exit
Endif
Plot X%,Y%
Vitesse%=500
If RR_2ND Then
Vitesse%=200
If RR_DIAMOND Then
Vitesse%=800
Endif
For Temp%=0 To Vitesse%
Next
Loop àQÙ

Tout ce que j'ai pu sauver avec le bloc note. J'ai cherché mais ai pas réussi à trouver comment lire les textes avec TI-Connect. Le seul truc que j'ai trouvé c'est démarrer le TIDeviceExplorer, sélectionner mon fichier et faire Open mais il me dit qu'aucun prog n'est associé à ce fichier... #confus#

Enfin bon, là c'est à peu près présentable, mais j'ai préféré blancer le bloc ici plutot que dans projets, car le jeu est très peu avancé.

Voilà donc le code, on accélère avec 2nd, on ralenti avec Diamond (bien que ça avance tout le temps, c'est un tron de toute façon). Et le problème étant que quand on accélère ou ralenti, on ne peut pas tourner.

Edit: MDRRR, cherchez le smiley caché parmis le code!

-Edité le Lundi 21 mars 2005 à 21:49 par EJC2810-
ReEdit: Cherchez les smileys cachés parmis le code!
-Edité le Lundi 21 mars 2005 à 21:50 par EJC2810-
-Edité le Mardi 22 mars 2005 à 17:23 par geogeo-

./Post n°25 Marquer comme non lu.

geogeo

Ecrit le: Mardi 22 mars 2005 à 17:27

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4258

Membre n°3

Inscrit le 29 janvier 2004

Qu'est ce qui merde au juste???

Pour
For I%=0 To Vitesse%
Next

Je te conseil d'utiliser pause ou bidouiller avec Timer% pour de la précision!

Version optimisée:

Cls
Setfont F_8X10
Print At(4,8);"X-Tron v2.0"
Setfont F_4X6
Print At(7,10);"By Jerome Charpenay"
A%=Ngetchx
Cls
Setfont F_4X6
Print At(1,1);"Lives:"
Line 0,8,159,8
Line 159,8,159,99
Line 159,99,0,99
Line 0,99,0,8
Line 2,10,157,10
Line 157,10,157,97
Line 157,97,2,97
Line 2,97,2,10
X%=10
Y%=90
Z%=2
Do
  If RR_LEFT Then
    Z%=1
  Else If RR_RIGHT Then
    Z%=2
  Endif

  If RR_UP Then
    Z%=3
  Else If RR_DOWN Then
    Z%=4
  Endif

  If Z%=1 Then
    Dec X%
  Else If Z%=2 Then
    Inc X%
  Else If Z%=3 Then
    Dec Y%
  Else
    Inc Y%
  Endif

  Exit If RR_ESC Or Point(X%,Y%)
  Plot X%,Y%
  Vitesse%=500
  If RR_2ND Then
     Vitesse%=200
  Else If RR_DIAMOND Then
    Vitesse%=800
  Endif
  For I%=0 To Vitesse%
  Next
Loop

-Edité le Mardi 22 mars 2005 à 17:41 par geogeo-
-Edité le Mardi 22 mars 2005 à 17:50 par geogeo-
-Edité le Mardi 22 mars 2005 à 17:53 par geogeo-
-Edité le Mardi 22 mars 2005 à 17:53 par geogeo-

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°26 Marquer comme non lu.

EJC2810

Ecrit le: Mardi 22 mars 2005 à 17:40

Membre: Titan

Messages: 882

Membre n°367

Inscrit le 17 juillet 2004

Et le problème étant que quand on accélère ou ralenti, on ne peut pas tourner.

Essaie Diamond+Direction et la direction ne marchera pas. C'est ça le problème.

Edit: Ta version optimisée ne marche pas du tout. Le principe du tron c'est que le "serpent" n'arrête pas d'avancer. Ce n'est pas le cas avec ton code. Tu m'as viré ma variable direcion ( Z% ).
-Edité le Mardi 22 mars 2005 à 17:42 par EJC2810-

./Post n°27 Marquer comme non lu.

geogeo

Ecrit le: Mardi 22 mars 2005 à 17:42

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4258

Membre n°3

Inscrit le 29 janvier 2004

Pourtant avec mon code ça fonctionne!

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°28 Marquer comme non lu.

geogeo

Ecrit le: Mardi 22 mars 2005 à 17:48

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4258

Membre n°3

Inscrit le 29 janvier 2004

Edit: Ta version optimisée ne marche pas du tout. Le principe du tron c'est que le "serpent" n'arrête pas d'avancer. Ce n'est pas le cas avec ton code. Tu m'as viré ma variable direcion ( Z% ).

Euh ouai ta raison je corrige!

Bah pourtant ça fonctionne! Diamond + direction!
-Edité le Mardi 22 mars 2005 à 18:00 par geogeo-

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°29 Marquer comme non lu.

geogeo

Ecrit le: Mardi 22 mars 2005 à 18:07

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4258

Membre n°3

Inscrit le 29 janvier 2004

Bon j'viens de retaper ta source et elle fonctionne excepté une erreur, il manque un Endif après:
If RR_2ND Then
Vitesse%=200

A mon avis, tu lances gfaexec et tu ne vois pas l'erreur or tu dois sans doute executer l'ancien programme! Tu peux le constater par toi même en tapant dans gfaexec au début ceci:
Delvar tokenbuf.

Donc moi je te conseil de lancer un programme pas à pas en faisant ceci:
gfabasic("ton_prog")
gfabasic("tokens")
gfatem("tokenbuf")
et là tu pourras voir les erreurs à chaque phase.
Le système d'affichage des erreurs va changer dans la prochaine bêta.

-Edité le Mardi 22 mars 2005 à 18:08 par geogeo-

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°30 Marquer comme non lu.

EJC2810

Ecrit le: Mardi 22 mars 2005 à 18:51

Membre: Titan

Messages: 882

Membre n°367

Inscrit le 17 juillet 2004

Ok, ça doit être ça. Je vais revoir mon code. Merci.

./Post n°31 Marquer comme non lu.

geogeo

Ecrit le: Jeudi 24 mars 2005 à 21:28

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4258

Membre n°3

Inscrit le 29 janvier 2004

Alors ça avance ce jeu de serpent. Faut bien faire de la pub pour GFA Basic même si il est pour l'instant à un stade où on ne peut pas faire de gros jeux... Malgré que j'ai tapé énormément de lignes de codes.

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°32 Marquer comme non lu.

limmt

Ecrit le: Vendredi 25 mars 2005 à 09:23

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Groupe: Omega staff

Messages: 4712

Membre n°20

Inscrit le 01 février 2004

il est pour l'instant à un stade où on ne peut pas faire de gros jeux

Vivement qu'il soit à ce stade

Malgré que j'ai tapé

Malgré que n'est pas français #gni#

http://www.falco-fr.com/ - http://www.jump67.com/ - http://www.msf-league.com/

./Post n°33 Marquer comme non lu.

EJC2810

Ecrit le: Vendredi 25 mars 2005 à 17:52

Membre: Titan

Messages: 882

Membre n°367

Inscrit le 17 juillet 2004

J'avoue ne pas avoir retouché beaucoup mon jeu.

Il faut dire que je suis sur un projet important en TI-Basic qui ne devrait pas tarder à sortir: La base du programme est finie, il ne reste que quelques améliorations et corrections à effectuer. Mais vous en saurez plus dans très peu de temps.

(Ben ouais faut bien un peu de suspense!

)