Gamme TI-82


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 : 788
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 
 
Google_AdSense



Publicité    



 
coc5
Avatar

Autorisation : Membre
Nb de messages : 891
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 - 2019 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink