Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 877
Réponses : 1
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Ecran de veille

Batchyuiop le 07/10/2012 à 21:14
Voici deux écran de veille, qui ne sont pas craiment de "veille", car il consomme des piles. Bon, les voici.
ü = sto (->)

Code
EffDessin
Lbl 0
For (A,0,94)
For (B,0,62)
entAléat(0,1)ü ( ) X
If X=0
Pxl-Off(B,A)
If X=1
Pxl-On(B,A)
End:End
For(A,0,62)
For(B,0,94)
Pxl-Change(A,B)
End:End
Goto 0


Le deuxieme est le meme, souf qu'il n'inverse pas les pixels à la fin :

Code
EffDessin
Lbl 0
For (A,0,94)
For (B,0,62)
entAléat(0,1)ü ( ) X
If X=0
Pxl-Off(B,A)
If X=1
Pxl-On(B,A)
End:End
Goto 0


Moi, j'arrive à voir des trucs avec de l'imagination (et sans drogues godgrace.gif )
snap le 09/10/2012 à 00:22
Y a moyen de pas mal optimiser :

Code
EffDessin
While 1
For (A,0,94
For (B,0,62
entAléat(0,1
If non(rép
Pxl-Off(B,A
If rép
Pxl-On(B,A
End:End
For(A,0,62
For(B,0,94
Pxl-Change(A,B
End:End:End
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.