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
|
|
|
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 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 !
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 16 Jan 2011, 18:51
|
|
|
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 |
|
|
|
perimgui
Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
|
Posté le : Dim 16 Jan 2011, 19:47
|
|
|
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.
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 16 Jan 2011, 19:53
|
|
|
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 |
|
|
|
perimgui
Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
|
Posté le : Dim 16 Jan 2011, 20:04
|
|
|
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).
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 16 Jan 2011, 21:49
|
|
|
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 |
|
|
|
perimgui
Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
|
Posté le : Lun 17 Jan 2011, 17:12
|
|
|
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
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 17 Jan 2011, 20:58
|
|
|
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 |
|
|
|
perimgui
Autorisation : Membre
Nb de messages : 31
Inscrit le : Ven 14 Jan 2011, 18:59
|
Posté le : Mar 18 Jan 2011, 19:22
|
|
|
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...
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.
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 19 Jan 2011, 0:27
|
|
|
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 |
|
|
|
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Lun 24 Jan 2011, 17:23
|
|
|
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 !
---------------------- 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 |
|
|
|