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
Auteur Message
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Dim 11 Jan 2009, 15:59   Citer 

Salut, Comme vous pouvait le remarquer, La connexion de ma ti au pc me donne des aiiles...
Ce programme ne sert qu'à faire joli mais m'a servi a m'entrainner a faire un casse brique que je pense poster prochainement des qu'il marchera completement.

Donc ce programme est un écran de veille... :


Code
:ClrHome
:Menu("  VEILLE  :","SIMPLE",1,"ALEATOIRE",2,"QUIT",Á
:Lbl 1
:iPart (10rand)üA
:iPart (7rand)üB
:If A=0 or B=0:B+2üB:A+2üA
:If B>8:B-3üB
:If A+4>16:A-1üA
:Lbl A
:Repeat K=22
:getKeyüK
:If A=1:Goto D
:If B=8:Goto B
:A-1üA
:B+1üB
:Output(B-1,A+1,"      "
:Output(B,A,"DODO"
:For(Á,1,100,1)
:End
:End
:Lbl B
:Repeat K=22
:getKeyüK
:If B=1:Goto A
:If A=1:Goto C
:A-1üA
:B-1üB
:Output(B+1,A+1,"      "
:Output(B,A,"DODO"
:For(Á,1,100,1)
:End
:End
:Lbl C
:Repeat K=22
:getKeyüK
:If A+3=16:Goto B
:If B=1:Goto D
:A+1üA
:B-1üB
:Output(B+1,A-1,"     "
:Output(B,A,"DODO"
:For(Á,1,100,1)
:End
:End
:Lbl D
:Repeat K=22
:getKeyüK
:If A+3=16:Goto A
:If B=8:Goto C
:A+1üA
:B+1üB
:Output(B-1,A-1,"     "
:Output(B,A,"DODO"
:For(Á,1,100,1)
:End
:End
:Lbl 2
:iPart 12randüA
:iPart 8randüB
:If A=0 or B=0:A+2üA:B+2üB
:If A+3>16:A-6üA
:If B>8:B-2üB
:randüX
:If X<0.5
:Then
:Output(B,A,"DODO"
:Goto 3
:End
:If X>0.5
:Then
:Output(B,A,"TI 82"
:Goto 3
:End
:Lbl 3
:For(Á,1,1000,1)
:End
:Output(B,A,"     "
:Goto 2
:Lbl Á
:ClrHome
:Output(1,1,"




C'est un programme pas (très) utile mais que je poste au cas ou ça interresse quelqu'un.

 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Dim 11 Jan 2009, 19:05   Citer 

Salut,

Écran de veille qui n'économise absolument pas les piles - faut-il le rappeler ?

Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 11 Jan 2009, 20:10   Citer 

Sinon c'est bien de s'exercer, mais c'est sur que peu de personnes vont trouver de l'intérêt à recopier ton programme pour avoir un écran de veille qui bouffe leurs piles :p

Ca me rappelle mon Cube en 3D

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Dim 11 Jan 2009, 21:02   Citer 

Je vous l'avez dit qu'il était inutile... ça a fait réfléchir pas mal de gas de ma classe tout de même...

 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