Accueil Ti-Gen Foire Aux Questions Chat sur le chan #tigcc sur IRC
Liste des membres Rechercher Aide
Bienvenue Invité !   Se connecter             Mes sujets   
Administrer
0 membre(s) et 1 visiteur(s) actif(s) durant les 5 dernières minutes 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 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


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 Déconnecté(e)    Voir le profil de Kevin Kofler Envoyer un email à Kevin Kofler Visiter le site WEB de Kevin Kofler Envoyer un message privé à Kevin Kofler  


²

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 Déconnecté(e)    Voir le profil de EJC2810 Envoyer un email à EJC2810 Envoyer un message privé à EJC2810  

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 Déconnecté(e)    Voir le profil de Kevin Kofler Envoyer un email à Kevin Kofler Visiter le site WEB de Kevin Kofler Envoyer un message privé à Kevin Kofler  


Recopier?! TI Connect, tu connais?
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°23   Marquer comme non lu.
EJC2810 Ecrit le: Lundi 21 mars 2005 à 19:09 Déconnecté(e)    Voir le profil de EJC2810 Envoyer un email à EJC2810 Envoyer un message privé à EJC2810  

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? :D 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 Déconnecté(e)    Voir le profil de EJC2810 Envoyer un email à EJC2810 Envoyer un message privé à EJC2810  


**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! :D
-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 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


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 Déconnecté(e)    Voir le profil de EJC2810 Envoyer un email à EJC2810 Envoyer un message privé à EJC2810  

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 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


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 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


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! :D

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 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


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 Déconnecté(e)    Voir le profil de EJC2810 Envoyer un email à EJC2810 Envoyer un message privé à EJC2810  

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 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


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. :D
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 Déconnecté(e)    Voir le profil de limmt Envoyer un email à limmt Visiter le site WEB de limmt Envoyer un message privé à limmt  


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

Vivement qu'il soit à ce stade :p

Malgré que j'ai tapé

#non# 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 Déconnecté(e)    Voir le profil de EJC2810 Envoyer un email à EJC2810 Envoyer un message privé à EJC2810  

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. :D

(Ben ouais faut bien un peu de suspense! :D )
    
  :: Index » GFA-Basic TI68K » Programmation » Tout plein de questions! :) (33 réponse(s))
Pages : 2/2     « 1 [2] » »|

.Répondre à ce sujet
Les boutons de code
[B]old[I]talic[U]nderline[S]trikethrough[L]ine Flip Hori[Z]ontallyFlip [V]erticallySha[D]ow[G]low[S]poilerCode [G][C]ite
Bullet [L]istList Item [K] Link [H][E]mail[P]icture SmileysHelp
Couleurs :
Saisissez votre message
Activer les smileys
     

Forum de Ti-Gen v3.0 Copyright ©2004 by Geoffrey ANNEHEIM
Webmaster: Kevin KOFLER, Content Admins: list, Server Admins: Tyler CASSIDY and Kevin KOFLER, DNS Admin: squalyl
Page générée en 177.9ms avec 18 requetes