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
Ecran de veille style Windows
Auteur Message
perimgui



Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
Posté le : Sam 15 Jan 2011, 17:45   Citer 

Bonjour, je vous propose un programme totallement inutil qui est en fait du même style que l'un des écrans de veille de Windows : le logo de Windows bouge et se cogne contre les paroi de l'écran.

Bon, il ne sert à rien mais je tenais quand même à vous le montrer, on ne sait jamais happy.gif Et puis tant qu'à faire, comment pourrais-je l'améliorer ?

On commence par entrer le symbole qui va défiler (c'est une chaine alors vous pouvez entrer plusieurs caractères). Vous devez ensuite entrer la vitesse sachant que plus le nombre que vous entrez est proche de zéro et plus la vitesse est importante (les chiffres négatifs font offices de zéro)

Par contre, comme il est infini, vous devez appuyer sur "ON" puis sur "1:QUITTER" pour quitter.

Voici donc mon code:


Code

:0->A
:0->X
:0->Y
:EffEcr
:Input "SYMBOLE:",Chaine1
:EffEcr
:Input "VITESSE:",B
:EffEcr
:AxesNAff
:EffDessin

:Lbl 1
:While X!=57
     :Texte(X,Y,Chaine1)
     :0->A
     :While A<=B
          :A+1->A
     :End
     :X+1->X
     :Y+1->Y
     :If Y=91:Goto 4
:End

:Lbl 2
::While Y!=91
     :Texte(X,Y,Chaine1)
     :0->A
     :While A<=B
          :A+1->A
     :End
     :X-1->X
     :Y+1->Y
     :If X=0:Goto 1
:End

:Lbl 3
:While X!=0
     :Texte(X,Y,Chaine1)
     :0->A
     :While A<=B
          :A+1->A
     :End
     :X-1->X
     :Y-1->Y
     :If Y=0:Goto 2
:End

:Lbl 4
:While Y!=0
     :Texte(X,Y,Chaine1)
     :0->A
     :While A<=B
          :A+1->A
     :End
     :X+1->X
     :Y-1->Y
     :If X=57:Goto 3
:End
:Goto 1     



!= veut dire "différent de"
<= veut dire "inférieur ou égal à"
>= veut dire "supérieur ou égal à"

Si vous avez des questions ou des sugjestion, n'hésitez pas !

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 16 Jan 2011, 18:51   Citer 


Code
:While A<=B
:A+1->A
:End

// remplacé par

:For(A,1,B
:End




les goto à l'intérieur de while ralentissent et auraient pu faire buguer.

** La traînée derrière est-elle prévue ?

C'est dommage que les caractères autres que le premier sortent de l'écran à droite. Utilise longueur(

Plutôt que de prévoir une section par cas de déplacement contenant chacune une temporisation etc. je propose que ces sections ne contiennent que des remplissages de variables, et de pratiquer des incréments sur X et Y avec ces autres variables une bonne fois.
Ce concept n'est pas de moi.

j'ai même une erreur domaine lorsque le symbole arrive tout en bas à droite ( il faut attendre)

====
Voici une amélioration :

Code
:0->X
:0->Y
:EffEcr
:Input "TEXTE:",Chaine1
:longueur(Chaîne1)->L
:Input "VITESSE:",B
:EffEcr
:AxesNAff
:EffDessin
:Lbl 1
:If X=0:1->C
:If Y=0:1->D
:If Y=57:-1->D
:If X=95-4L:-1->C
:For(A,1,B
:End
:X+C->X
:Y+D->Y
:Texte(Y,X,Chaine1)
:Goto 1


Pour une fois j'ai testé le prog.

----------------------
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
 Adresse email Haut de page Bas de page 
 
perimgui



Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
Posté le : Dim 16 Jan 2011, 19:47   Citer 

Oui, désolé, j'ai résolu tout les problèmes apparent, je poste ma nouvelle version à la place de l'ancienne ?

Et oui, la trainée est voulue, elle donne un certain style je trouve.

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 16 Jan 2011, 19:53   Citer 

Tu veux dire une autre version que la mienne ?

Oui poste le : si c'est plus court et propre, plus de gens oseront le recopier (mais ce n'est pas garantit).

----------------------
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
 Adresse email Haut de page Bas de page 
 
perimgui



Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
Posté le : Dim 16 Jan 2011, 20:04   Citer 

Ben c'est ta version - le bug qui met "erreur domaine".

Dès que j'ai le temps, je met la nouvelle version.

J'ai remarqué que toi et les autres m'aidiez beaucoup et je vous en remercie grandement (j'ai rarement vu des gens aussi sympa sur internet).

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 16 Jan 2011, 21:49   Citer 

L'erreur domaine venait de ton prog sur ma calto pourtant !?
J'ai mal organisé mon message.

----------------------
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
 Adresse email Haut de page Bas de page 
 
perimgui



Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
Posté le : Lun 17 Jan 2011, 17:12   Citer 

Calto ? Pardon mais je ne vois pas ce que ça veut dire (peut-être la contraction de calculatrice avec autre chose).

Donc je n'ai toujours pas compris ce que tu as voulu dire happy.gif

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 17 Jan 2011, 20:58   Citer 

calto=calculatrice
Dans mon gros message, l'erreur domaine à laquelle je faisait allusion venait de mon test de ton programme.
Quand tu as dis que tu avais corrigé l'erreur domaine de mon programme, j'ai douté.
Je crois qu'il s'agit juste d'un quiproquo. Tu as cru que l'erreur était dans le mien. J'ai modifié le message pour empêcher ce quiproquo.

----------------------
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
 Adresse email Haut de page Bas de page 
 
perimgui



Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
Posté le : Mar 18 Jan 2011, 19:22   Citer 

Moi je parle de mon programme, de l'erreur de mon programme...arg, avec tout ce que tu as dit, je ne comprends plus rien... frozen.gif

Enfin, sinon, j'ai corrigé l'erreur sur un programme qui arrive à cette erreur plus rapidement et il ne m'a plus suffit que de l'appliquer à celui-ci.

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 19 Jan 2011, 0:27   Citer 

Tant pis pour ce fichu quiproquo.
As-tu trouvé une quelconque erreur sur mon prog ?
Poste donc le tiens, s'il n'a plus d'erreur. Est-il mieux que le mien ?

----------------------
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
 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 24 Jan 2011, 17:23   Citer 

Moi perso je les trouves sympa c'est écrans de veille...
J'en et déjà éditer pas mal mais jamais poster...
Je te les poste c'est promit ! 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 
 
Poster un nouveau sujet Poster une réponse





  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