Une animation avec un histogramme qui bouge, comme sur les lecteurs de musique...
J'ai fait ça y'a super longtemps, donc c'est surement optimisable...
J'ai fait ça y'a super longtemps, donc c'est surement optimisable...
- Code:
8->G:8->H:8->I
8->J:8->K
ClrHome
Repeat getKey
randInt(1,2->A
randInt(1,2->B
randInt(1,2->C
randInt(1,2->D
randInt(1,2->E
If G=8:2->A
If H=8:2->B
If I=8:2->C
If J=8:2->D
If K=8:2->E
If G=1:1->A
If H=1:1->B
If I=1:1->C
If J=1:1->D
If K=1:1->E
G+(A=1)-(A=2->G
H+(B=1)-(B=2->H
I+(C=1)-(C=2->C
J+(D=1)-(D=2->D
K+(E=1)-(E=2->K
If A=1:Output(G,2,"
If A=2:Output(G,2,"XX
If B=1:Output(H,5,"
If B=2:Output(H,5,"XX
If C=1:Output(I,8,"
If C=2:Output(I,8,"XX
If D=1:Output(J,11,"
If D=2:Output(J,11,"XX
If E=1:Output(K,14,"
If E=2:Output(K,14,"XX
End