Prgm matrix (film)

[PiR]

ouai nickel, mais comment faire pour que ce soit sur tout l'écran, j'ai essayé de changer la valeur de N mais après ça devient n'importe quoi

[critor]

Voilà une solution au problème où les caractères ne changent pas une fois écrits déjà (facilement modifiable pour avoir plus de colonnes et afficher autre chose que 0 et 1, etc).

Code: Select all

2→N

N→dim(|LMAT
For(I,1,N
randInt(1,8→|LMAT(I
End

ClrHome
While 1
For(I,1,N
Output(|LMAT(I),I,randInt(0,1
Output(8float{(|LMAT(I)+2)/8)+1,I," "
1+8float{(|LMAT(I))/8)→|LMAT(I
End
End


Euh, c'est quoi ton "float{" dans le code ? . . .

matrix.gif

Et tant que j'y suis, pourquoi la police de caractères est-elle anormale sur ta capture ?

[PiR]

float sur ma ti (française) c'est partEnt()
enfin, avec ça ça marche

[critor]

'partDéc(' en fait.


Alors tu peux avoir plus de 2 colonnes.

Moi avec 3-5 ça marche sur TI-84.

Mais comme la calculatrice est assez lente, si on met trop de colonnes, ça casse l'effet.

[Adriweb]

Et tant que j'y suis, pourquoi la police de caractères est-elle anormale sur ta capture ?

C'est juste une police différente qui a été instalée... je connais pas son nom, mais celle-ci s'y rapproche http://www.ticalc.org/archives/files/fi ... 42241.html

[PiR]

'partDéc(' en fait.

oui c'est ce que je voulais dire

Alors tu peux avoir plus de 2 colonnes.

Moi avec 3-5 ça marche sur TI-84.

Mais comme la calculatrice est assez lente, si on met trop de colonnes, ça casse l'effet.

c'est ça mon probleme, c'est que ça ralentit et que du coup on a plus l'effet de défilement

[Hayleia]

Oups, j'ai envoyé le code dans TokenIDE sans penser qu'il était configuré pour l'Axe -.-
Le float c'est fPart du coup.

Et oui, la police c'est une police zStart par Spyro543, BLOCKS (mais c'est la même dans tous mes screenshots, soit dit en passant).

Et comme dit critor, avec un N trop grand, ça devient ridicule. On voit plus l'affichage des nouveaux caractères qu'un véritable défilement. Ce qu'il faut à mon avis c'est plutôt garder un nombre de colonnes faibles mais les répartir un peu mieux sur l'écran.

[Hayleia]

Nouveau programme !
Voilà d'abord ce que ça donne avant le code ennuyant

matrix.gif

A.8xp

Le code ensuite. Pas forcément optimisé puisque, ne faisant pas de Basic d'habitude, je ne connais pas toutes les fonctions qui pourraient m'être utiles ici.

Code: Select all

3->N

N->dim(|LMATY
N->dim(|LMATX1
For(I,1,N
randInt(1,8->|LMATX1(I
Repeat not(Ans
randInt(1,8->R
0
For(K,1,I-1
Ans+(R=|LMATY(K
End
End
R->|LMATY(I
End
|LMATX1->|LMATX2

ClrHome
While 1
For(I,1,N
1+|LMATY(I->|LMATY(I
If Ans=9:Then
randInt(1,16->|LMATX1(I
1->|LMATY(I
End
Output(Ans,|LMATX1(I),randInt(0,1
1+8fPart(1/8(3+|LMATY(I
Output(Ans,|LMATX2(I)," "
If Ans=8:|LMATX1(I->|LMATX2(I
End
End

[PiR]

WOW, génial merci

[grosged]

Hey , pas mal du tout !