Trucs et autres

→ **MyCalcs** profile · by **Wellen** » 27 May 2011, 22:09

Voilà. Si vous aussi vous vous ennuyez en cours et que vous faites des "trucs" avec votre calculette, n'hésitez pas !
J'ai juste pas envie de me sentir seul

Si vous insistez, je mettrai le code, mais c'est vraiment pas compliqué.

→ **MyCalcs** profile · by **noelnadal** » 27 May 2011, 22:11

Tu t'ennuies à ce point en cours ?

Bravo en tout cas.

programmes pour TI · by **jacques** » 27 May 2011, 23:01

Wouah ! C'est sympa !

Si ça t'embêtes pas, balance nous le code, ça pourrait être utile à certains (ce genre de programme permet de mieux savoir se servir de l'écran graphique).

→ **MyCalcs** profile · by **noelnadal** » 28 May 2011, 09:05

Si je ne me trompe pas, tu as utilisé les fonctions, dont la fonction inverse, c'est bien ça ?

→ **MyCalcs** profile · by **Lionel Debroux** » 28 May 2011, 09:15

Oui, c'est du dessin en XOR.
Je pense que:
* le premier, le troisième (qui ressemble au premier, mais n'est pas identique) et le cinquième sont faits à partir du centre de l'écran;
* le deuxième est fait à partir de lignes dont une extrémité est le coin en haut à gauche;
* le quatrième est fait à partir de deux lignes, une dont l'extrémité est le coin en bas à gauche et l'autre le coin en haut à droite.

→ **MyCalcs** profile · by **Wellen** » 28 May 2011, 09:51

Oui c'est juste une histoire de lignes, qui parcourent l'écran en alternant noir/blanc. Tu vois Noel, rien de bien compliqué.

Lionel : presque un sans faute

la quatrième c'est pas exactement ça.

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all: :FnOff :AxesOff :0→B:‾2→A :1→T :0→Xmin:94→Xmax :0→Ymin:62→Ymax :ClrDraw :For(Θ,0,96*2+62*2+2 :Line(47,31,A,B,T :1-T→T :A+not(B)-(B=62→A :B-(A=‾2)+(A=96→B :If not(getKey :End :Pause :ClrDraw :0→A:0→B:1→T :For(Θ,1,157 :Line(0,62,A,B,T :1-T→T :A+not(B)-(B=62→A :B-not(A)+(A=94→B :If not(getKey :End :Pause :ClrDraw :0→A:0→B:0→T :For(Θ,1,154 :Line(95-A,62-B,A,B,T :1-T→T :A+not(B)-(B=62→A :B-not(A)+(A=94→B :If not(getKey :End :Pause :ClrDraw :94→A:31→B:1→T :For(Θ,1,126 :Line(0,31,A,B,T :Line(94,31,94-A,62-B,T :1-T→T :A+not(B)-(B=62→A :B-not(A)+(A=94→B :If not(getKey :End :Pause :ClrDraw :‾15→Xmin:15→Xmax:‾10→Ymin:10→Ymax :0→A:0→B:1→T :Radian :For(Θ,0,2π-.01,.05 :Line(0,0,10cos(Θ),10sin(Θ),T :1-T→T :If not(getKey :End :Pause :ZStandard :AxesOn :Disp

J'ai séparé les différentes parties du programme pour que ça soit plus clair..

Le XOR, c'est quoi le principe au juste ? J'ai entendu loulou en parler plusieurs fois, mais bon..

→ **MyCalcs** profile · by **Lionel Debroux** » 28 May 2011, 12:10

Ah, du noir et blanc alterné...
En noir et blanc, le XOR, c'est une inversion de la couleur. Table de vérité: 0 xor 0 = 0, 0 xor 1 = 1, 1 xor 0 = 1, 1 xor 1 = 0.

→ **MyCalcs** profile · by **Wellen** » 28 May 2011, 12:49

Oui, je connais, mais quel est le lien que tu a fait avec ces images ? Tu peux arriver aux mêmes resultats plus facilement ?

ici · by **Loulou 54** » 28 May 2011, 12:54

ça fait le même effet, oui. Mais ça sera pas exactement pareil je pense.

http://tibank.forumactif.com/t6549-c-to ... -programme

Regarde vers le milieu de la page, il y a des screens d'essais du genre.

Et admirez la rapidité du C..