| Une balle qui rebondit sur votre écran ^^ |
| Auteur |
Message |
RomanBoisselier
Autorisation : Membre
Nb de messages : 10
Inscrit le : Dim 20 Déc 2009, 16:54
|
Posté le : Lun 10 Mai 2010, 16:33
|
|
 |
EffDessin
EffVar A
AxesNaff
1->D
20->B
1->C
For(I,1,320
Lbl 1
A+4C->A
B+4D->B
Texte(A,B,"0"
If A >54 ou A <3
-C ->C
If B >87 ou B <3
-D ->D
End
EffDessin
EffEcr
Stop
Eff Var A
End
Else
Goto 1
End
Goto 1
Normalement il marche 
Taille : 125 Octets ( pour un programme qui ne sert pas à grand chose  )
----------------------
Définitivement Ti-addict |
 |
  |
| |
moi
Invité
|
Posté le : Lun 10 Mai 2010, 16:42
|
|
|
...
En effet ça sert a rien et n'importe quel programmeur peut en faire un.
Mais c'est bien de débuter !
prochaine étape: le pong. Bon courage mais c'est un programme facile.
|
| |
|
| |
AlexRider38
Autorisation : Membre
Nb de messages : 137
Inscrit le : Ven 26 Mar 2010, 17:13
|
Posté le : Lun 10 Mai 2010, 17:48
|
|
|
par quelle fonction est traduis "effvar"
merci
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Lun 10 Mai 2010, 19:09
|
|
|
Cette fonction n'est pas traduite en français je crois.
Si tu ne la trouve pas, tu peut toujours mettre à la place 0->A.
Sangohan38
|
| |
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Lun 10 Mai 2010, 19:19
|
|
|
En français: EffVar
En anglais: DelVar
[pgrm] + [Haut] + [Haut]
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
| |
|
| |
AlexRider38
Autorisation : Membre
Nb de messages : 137
Inscrit le : Ven 26 Mar 2010, 17:13
|
Posté le : Mar 11 Mai 2010, 17:50
|
|
|
Merci
Et je suis allé faire un tour sur ton site Alexvire ................................................................. il est super !!!!!!! La classe 
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mar 11 Mai 2010, 19:39
|
|
|
Bon, puisqu'on en est à parler de ton site Alexvire, j'ai regardé tes programmes et outre leur manque d'originalitée (ils sont déjà tous présents sur ce forum), tu as copier le programme de protection du site ti-online (il me semble).
Enfin, c'est le début d'un site et bonne continuation pour la suite.
Sangohan38
|
| |
|
| |
sypotu
Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Jeu 13 Mai 2010, 8:50
|
|
|
Moi aussi je suis allé voir ...
j'ai posté dans ton livre d'or
----------------------
Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
| |
|
| |
Starlight
Invité
|
Posté le : Jeu 13 Mai 2010, 11:22
|
|
|
Salut tout le monde.
je débute en progra et je voulais savoir si, pour ce programme, il n'yaavait pas une commande poru qu'il n'yai pas la trace de la "balle" sur l'écran et que tant qu'on appuie pas sur "entrer", le programme en s'arrête pas.
Merci d'avance.
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Jeu 13 Mai 2010, 16:10
|
|
|
Pour arrêter le programme en appuyant sur entrer, il suffit de rajouter un GetKey.
Pour effacer, comme ce n'est pas moi qui est fait le programme, je ne sais pas où regarder.
Voici le programme avec le getkey.
| Code | EffDessin
EffVar A
AxesNaff
1->D
20->B
1->C
For(I,1,320
Lbl 1
getkey->K
If K=105:Stop
A+4C->A
B+4D->B
Texte(A,B,"0"
If A >54 ou A <3
-C ->C
If B >87 ou B <3
-D ->D
End
EffDessin
EffEcr
Stop
Eff Var A
End
Else
Goto 1
End
Goto 1 |
Sangohan38
|
| |
|
| |
starlight
Invité
|
Posté le : Jeu 13 Mai 2010, 16:15
|
|
|
Merci.
|
| |
|
| |
simsmith78
Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 16 Oct 2011, 19:14
|
Posté le : Ven 21 Oct 2011, 19:27
|
|
|
Est-ce que quelqu'un pense que c'est possible que quand la balle passe a un certain endroit elle affiche une lettre pour faire un message caché a la fin du prog???
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Dim 23 Oct 2011, 1:55
|
|
|
Oui, c'est tout à fait possible mais il faut rajouter une condition sur l'abscisse et l'ordonnée de la balle pour chaque lettre et ça va prendre pas mal de place au final selon le nombre de lettres à afficher.
Sangohan38
|
| |
|
| |
simsmith78
Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 16 Oct 2011, 19:14
|
Posté le : Dim 23 Oct 2011, 19:39
|
|
|
C'est possible que en graphique ou pour tout?
Si c'est possible en normal, quelqu'un peut afficher la demarche svp ?
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Lun 24 Oct 2011, 1:05
|
|
|
Je pense que tu devrai essayer la méthode suivante en adaptant ton cas:
| Code | If X=a and Y=b (a et b étant les coordonnées que la balle doit atteindre pour s'afficher)
Output(1,1,"X (affiche X à la coordonnée 1,1)
|
Ensuite au début de la boucle, il y a surement un ClrHome donc ta lettre s'effacera.
Sangohan38
|
| |
|
| |
simsmith78
Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 16 Oct 2011, 19:14
|
Posté le : Lun 31 Oct 2011, 12:46
|
|
|
Par contre je n'y arrive pas, a rentrer ce qu'il faut pour faire apparaitre ou alors cela s'efface directement, donc svp comment faire?
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 31 Oct 2011, 13:39
|
|
|
en écran normal, fait spécialement pour simsmith78 :
| Code | ClrHome
1->X:1->Y
1->S:1->T
Repeat getKey
Output(Y,X,"* // afficher une position
69! // ralentir
Output(Y,X," " // effacer l'ancienne position
If Y=3 and (X=1 or X=5) // écrire une lettre à l'ancienne position
Output(Y,X,"L
If Y=3 and X=3
Output(Y,X,"O
If X=16 // calculer une nouvelle position
-1->S
If X=1
1->S
If Y=8
-1->T
If Y=1
1->T
X+S->X
Y+T->Y
End |
Ce programme écrit LOL en haut à gauche de l'écran.
édit : testé et amélioré quant à la position des lettres (mais marchait déjà avant)
On peut peut-être utiliser ceci dans certains cas :
| Code | If Y=2
Output(Y,X,sub("LOL",X,1 |
----------------------
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)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
simsmith78
Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 16 Oct 2011, 19:14
|
Posté le : Lun 31 Oct 2011, 20:53
|
|
|
Cela fait rebondir la balle comme auparavent et apres il y a un O et un * qui bougent pendant 1/2 seconde puis erreur domaine sur
:Output(X,Y," "
Sinon j'ai eu une idée mais comme étant débutant, je ne peux la réaliser,...
Ce serait de faire un jeu a partir de ce petit programme, en etant un point qui doit éviter la balle rebondissante le plus longtemps possible...Bien sur il faudrait effacer la trace qui reste apres le passage de la balle et si possible mettre une trajectoire plus aléatoire.
Bon courage si quelqu'un veut tenter
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Lun 31 Oct 2011, 21:20
|
|
|
Donne X et Y si tu peut qu'on t'aide pour le bug
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
simsmith78
Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 16 Oct 2011, 19:14
|
Posté le : Mar 01 Nov 2011, 12:00
|
|
|
Cela m'affiche X=9 et Y=7
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mar 01 Nov 2011, 20:05
|
|
|
C'est normal, tu t'es trompé dans le code c'est Output(Y,X," " et non Output(Y,X," "
Output c'est ordonnée puis abscisse (vérifie le dans tout le code.
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mer 02 Nov 2011, 9:34
|
|
|
| Citer : Sandro |
c'est Output(Y,X," " et non Output(Y,X," "
|
...
c'est en effet Ouptut(Y,X," " mais au lieu de Output(X,Y," " 
|
| |
|
| |
simsmith78
Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 16 Oct 2011, 19:14
|
Posté le : Mer 02 Nov 2011, 21:18
|
|
|
Merci a vous j'ai tout compris
|
| |
|
| |
made2kill
Invité
|
Posté le : Mar 15 Nov 2011, 10:25
|
|
|
Pour effacer la position précédente et que la balle ne s'arrête jamais de rebondir et ne s'arrête que quand vous appuyez sur une touche:
| Code | EffDessin
EffVar A
AxesNaff
1ü D
20üB
1üC
For(I,1,320
Lbl 1
While not(getKey
Text(A,B,"3 espaces
A+4CüA
B+4DüB
Texte(A,B,"O
If A>54 ou A<3
-CüC
If B>87 ou B<3
-DüD
Goto 1
End
EffDessin
EffEcr
Output(1,1," |
En plus c'est plus court 
|
| |
|
| |
R0cks1
Invité
|
Posté le : Lun 22 Déc 2014, 19:31
|
|
|
Le ü c'est quoi? Pck je l'ai pas trouvé sur ma Ti-82 stats.fr ... 
|
| |
|
| |
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Lun 22 Déc 2014, 19:39
|
|
|
ü est le signe conventionnel sur ce forum pour représenter le sto de ta calculatrice. Si tu en as plus l'habitude, tu peux le lire comme ça :
| Code | EffDessin:EffVar AAxesNaff
1->D:20->B:1->C
For(I,1,320
Lbl 1
While not(getKey
Text(A,B,"3 espaces
A+4C->A
B+4D->B
Texte(A,B,"O
If A>54 ou A<3
-C->C
If B>87 ou B<3
-D->D
Goto 1
End
EffDessin:EffEcr
Output(1,1," |
J'ai repris le dernier code du topic, mais cette opération peut s'effectuer sur n'importe lequel
J'en profite pour quelques optimisations mineures...
----------------------
Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 22 Déc 2014, 19:50
|
|
|
U minuscule tréma 'ü' représente effectivement la flèche sto, mais ce n'est pas une convention du forum, c'est le symbole utilisé dans les éditeurs de programmes publiés par Texas Instruments. Avec leur police il apparaîtrait comme une flèche, mais avec une police normale son code est le même que le u tréma. Et tous les paresseux le collent dans le forum tel quel.
On est pas assez fous pour choisir ü comme convention.
Article à propos des caractères du forum.
----------------------
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)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
