Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Dim 11 Jan 2009, 15:59
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.
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 11 Jan 2009, 20:10
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
