π
<-
Chat plein-écran
[^]

News 2024
Mars (7)
Janvier (20)

News 2023
Octobre (19)
Août (14)
Juillet (13)
Juin (21)
Mai (29)
Avril (24)
Mars (24)
Janvier (24)

News 2022
Octobre (23)
Août (14)
Juillet (15)
Juin (17)
Mai (31)
Avril (27)
Mars (28)
Janvier (34)

News 2021
Octobre (24)
Août (37)
Juillet (50)
Juin (32)
Mai (48)
Avril (61)
Mars (35)
Janvier (34)

News 2020
Octobre (17)
Août (43)
Juillet (43)
Juin (45)
Mai (60)
Avril (78)
Mars (36)
Janvier (39)

News 2019
Octobre (13)
Août (18)
Juillet (23)
Juin (28)
Mai (31)
Avril (26)
Mars (38)
Janvier (37)

News 2018
Octobre (13)
Août (32)
Juillet (23)
Juin (64)
Mai (63)
Avril (45)
Mars (43)
Janvier (45)

News 2017
Octobre (26)
Août (39)
Juillet (52)
Juin (88)
Mai (51)
Avril (43)
Mars (37)
Janvier (33)

News 2016
Octobre (25)
Août (42)
Juillet (34)
Juin (109)
Mai (55)
Avril (34)
Mars (37)
Janvier (24)

News 2015
Octobre (22)
Août (56)
Juillet (22)
Juin (94)
Mai (56)
Avril (32)
Mars (40)
Janvier (21)

News 2014
Octobre (26)
Août (18)
Juillet (23)
Juin (101)
Mai (57)
Avril (59)
Mars (54)
Janvier (31)

News 2013
Octobre (67)
Août (50)
Juillet (43)
Juin (193)
Mai (93)
Avril (102)
Mars (45)
Janvier (50)

News 2012
Octobre (64)
Août (63)
Juillet (53)
Juin (132)
Mai (88)
Avril (73)
Mars (57)
Janvier (58)

News 2011
Octobre (56)
Août (31)
Juillet (27)
Juin (71)
Mai (61)
Avril (32)
Mars (36)
Janvier (24)

News 2010
Octobre (11)
Août (8)
Juillet (14)
Juin (10)
Mai (3)
Avril (3)
Mars (1)

News 2009
Août (3)
Juin (2)
Mai (1)
Avril (2)
Mars (1)

ControlX 4.3.5 intègre Nlaunchy pour lancer les OS Nspire CX

Nouveau messagede critor » 14 Déc 2016, 15:22

Dans l'article précédent, ControlX, notre gestionnaire de démarrage pour TI-Nspire CX, devenait capable de lancer directement des OS officiels sans avoir à passer par le Boot2 et donc de façon plus rapide ! :bj:

Cela impliquait toutefois plusieurs contraintes ou inconvénients :
  • pas d'installation automatique de Ndless dans ce contexte
  • pas de possibilité de lancer des OS 4.0.0 ou antérieurs, car ControlX nécessite l'installation de nBoot qui perturbe ces anciennes versions :(
  • si la version d'OS lancée différait de la version d'OS installée, les textes du système étaient complètement mélangés :mj:
  • le nouvel OS 4.4 devrait en théorie pouvoir marcher, mais en pratique il n'est pas possible de le flasher car il est beaucoup trop gros :(
  • cette méthode spéciale de lancement activait une alerte de sécurité "Archive was modified" qui exécutait sous 30 secondes le code d'auto-destruction de l'OS, rendant donc la manipulation totalement inutile :mj:

Aujourd'hui le nouveau ControlX 4.3.5 intègre les patchs OS de Nlaunchy, ce qui lui permet de corriger ce dernier problème et donc de lancer des OS officiels de façon fiable ! :bj:
En pratique toutefois, parmi les versions qui nous concernent ici, précisons que les patchsNlaunchy ne gèrent à ce jour que les OS 4.0.3 et 4.2, et que les autres OS 4.0.2 et 4.3 conserveront donc le même problème d'auto-destruction.


Téléchargements : ControlX 4.3.5

Ressources : Tutoriel d'installation + mise à jour ControlX
Lien vers le sujet sur le forum: ControlX 4.3.5 intègre Nlaunchy pour lancer les OS Nspire CX (Commentaires: 14)

Mise à jour logiciels HP Prime 11226

Nouveau messagede critor » 14 Déc 2016, 16:54

Suite au bêta-test des logiciels HP Prime 11165 dans l'article précédent, les logiciels d'HP Prime passent aujourd'hui en version 11226, avec le gros avantage de tourner désormais nativement sur les ordinteurs Mac ! :bj:

Bonne émulation et bons transferts à tous ! ;)


Téléchargements :
Lien vers le sujet sur le forum: Mise à jour logiciels HP Prime 11226 (Commentaires: 4)

Jour 15 : Programme de l'Avent TI-83 Premium CE

Nouveau messagede critor » 15 Déc 2016, 00:00

Oh, il neige ! :o
Code: Tout sélectionner
EnrBDG BDG0
ZDécimal
AxesNAff
FoncNAff
QuadNAff
GraphNAff
40Xmax→Xmax
40Ymax→Ymax
0→Xmin
0→Ymin
ArrPlanAff NOIR
CouleurBord 1
EffDess
131→Y
77→L
9→X
For(I,0,Y,2
Ligne(X,I,L,I,BLEU MRN,2
End
For(I,16,Y,16
Ligne(X,I,L,I,GRIS FON,1
For(J,­14,­4,2
Ligne(X+7,I+J,X+14,I+J,ORANGE,2
End
Pt-Aff(X+12,I-10,GRIS,1
End
X+2→X
{0,3,3,1,6,0,2,7,6,2,4,0,3,7,6,3,4,0,4,6,0,5,3,3,8,23,23,8,15,0,9,23,23,9,15,0,10,23,0,11,23,22,11,20,0,12,23,22,12,20,20,12,17,0,13,23,22,13,20,20,13,17,0,14,23,22,14,20,0,15,23,0,16,23,0,17,23,22,17,20,0,18,23,22,18,20,20,18,17,0,19,23,22,19,20,20,19,17,0,20,23,22,20,20,0,21,23,0,22,23,23,22,15,0,23,23,23,23,15,0,24,15,0,25,15,0,26,15,0,27,15,0,28,15,0,29,15,0,30,15,0,31,15,0,32,15,0,33,15,0,34,15,0,35,15,0,36,15,0,37,15,0,38,15,0,39,15,0,40,7,0,41,7,0,42,7,0,43,7,0,44,9,9,44,7,0,45,10,10,45,7,0,46,11,11,46,8,0,47,12,11,47,9,9,47,7,0,48,13,13,48,11,10,49,14,14,49,11,11,50,12,11,51,16,16,51,13,13,51,11,10,52,18,18,52,16,16,52,11,0,53,18,18,53,16,16,53,11,9,54,19,10,55,18,18,55,16,16,55,10,10,55,8,8,56,18,18,56,16,16,56,10,9,57,16,16,57,10,10,57,8,8,58,11,9,59,12,12,59,10,10,60,11,11,61,12,12,59,3,3,60,6,0,61,7,6,61,4,0,62,7,6,62,4,0,63,6,0,64,3,3
For(I,1,dim(Rep),3
Ligne(X+Rep(I),Y+Rep(I+1),X+Rep(I),Y+Rep(I+2),BLEU MRN,1
End
For(I,3,Xmax,8
Ligne(I,0,I,3,VERT,2
End
For(I,3+8,Xmax,16
For(J,1,3
Ligne(I-J,3+J,I+J+1,3+J,VERT,1
End
For(J,1,4
partEnt(2.75-J/2
Ligne(I-Rep,6+J,I+Rep+1,6+J,VERT,1
End
End
219→M
For(I,0,28,2
Ligne(M-25,I,M+25,I,BLANC,2
If I≤14
Ligne(M-5,I,M+5,I,MARRON,2
If I≥18 et I≤25
Then
Ligne(M-8,I,M-16,I,BLEU CLR,2
Ligne(M+8,I,M+16,I,BLEU CLR,2
End
End
For(I,28,42
I-28
Ligne(M-25+Rep,I,M+25-Rep,I,ROUGE,1
End

5→N
0→dim(⌊N
N→dim(⌊N
While non(getKey
For(I,1,N
If NbrAléat>.95 et 0≥imag(⌊N(I
Then
nbrAléatEnt(0,Xmax
If non(pxl-Test(0,Rep
Ymax+Rep→⌊N(I
End
⌊N(I)-4
If 0≤imag(Rep
Then
If pxl-Test(Ymax-imag(Rep),réel(Rep
Then

­→⌊N(I
End
If 0≤imag(Rep
Then
Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),3
Pt-Aff(réel(Rep),imag(Rep),3,GRIS CLR
Rep→⌊N(I
End
End
End
End
ArrPlanNAff
RappelBDG BDG0
DelVar BDG0
Lien vers le sujet sur le forum: Jour 15 : Programme de l'Avent TI-83 Premium CE (Commentaires: 16)

Nouvelle démo gLib : le manoir Croft encore plus complet !

Nouveau messagede critor » 15 Déc 2016, 00:08

Dans sa dernière démo de sa bibliothèque gLib pour TI-83 Premium CE, TheMachine02 te modélisait en 3D une petite chambre issue du manoir Croft dans Tomb Raider 3.

Aujourd'hui TheMachine02 va encore et toujours plus loin, avec cette fois-ci tout le hall d'accueil du manoir ! :bj:

Et si tu fais bien attention ci-dessous, tu verras que tu n'es pas seul(e) dans ce hall... ;)



Téléchargement : archives_voir.php?id=778063
Lien vers le sujet sur le forum: Nouvelle démo gLib : le manoir Croft encore plus complet ! (Commentaires: 4)

Jour 16 : Programme de l'Avent TI-83 Premium CE

Nouveau messagede critor » 16 Déc 2016, 00:05

Soudain, dans un éclair blanc, un mot s'allume dans le ciel...
Code: Tout sélectionner
...
CouleurTexte(MAGENTA
Texte(100,110,"J o y e u x
...
For(X,110,261
For(Y,101,114
If non(pxl-Test(Y,X
Pxl-NAff(Y,X
End
End
...

Show/Hide spoilerAfficher/Masquer le spoiler
Code: Tout sélectionner
EnrBDG BDG0
ZDécimal
AxesNAff
FoncNAff
QuadNAff
GraphNAff
40Xmax→Xmax
40Ymax→Ymax
0→Xmin
0→Ymin
ArrPlanAff NOIR
CouleurBord 1
EffDess
131→Y
77→L
9→X
For(I,0,Y,2
Ligne(X,I,L,I,BLEU MRN,2
End
For(I,16,Y,16
Ligne(X,I,L,I,GRIS FON,1
For(J,­14,­4,2
Ligne(X+7,I+J,X+14,I+J,ORANGE,2
End
Pt-Aff(X+12,I-10,GRIS,1
End
X+2→X
{0,3,3,1,6,0,2,7,6,2,4,0,3,7,6,3,4,0,4,6,0,5,3,3,8,23,23,8,15,0,9,23,23,9,15,0,10,23,0,11,23,22,11,20,0,12,23,22,12,20,20,12,17,0,13,23,22,13,20,20,13,17,0,14,23,22,14,20,0,15,23,0,16,23,0,17,23,22,17,20,0,18,23,22,18,20,20,18,17,0,19,23,22,19,20,20,19,17,0,20,23,22,20,20,0,21,23,0,22,23,23,22,15,0,23,23,23,23,15,0,24,15,0,25,15,0,26,15,0,27,15,0,28,15,0,29,15,0,30,15,0,31,15,0,32,15,0,33,15,0,34,15,0,35,15,0,36,15,0,37,15,0,38,15,0,39,15,0,40,7,0,41,7,0,42,7,0,43,7,0,44,9,9,44,7,0,45,10,10,45,7,0,46,11,11,46,8,0,47,12,11,47,9,9,47,7,0,48,13,13,48,11,10,49,14,14,49,11,11,50,12,11,51,16,16,51,13,13,51,11,10,52,18,18,52,16,16,52,11,0,53,18,18,53,16,16,53,11,9,54,19,10,55,18,18,55,16,16,55,10,10,55,8,8,56,18,18,56,16,16,56,10,9,57,16,16,57,10,10,57,8,8,58,11,9,59,12,12,59,10,10,60,11,11,61,12,12,59,3,3,60,6,0,61,7,6,61,4,0,62,7,6,62,4,0,63,6,0,64,3,3
For(I,1,dim(Rep),3
Ligne(X+Rep(I),Y+Rep(I+1),X+Rep(I),Y+Rep(I+2),BLEU MRN,1
End
For(I,3,Xmax,8
Ligne(I,0,I,3,VERT,2
End
For(I,3+8,Xmax,16
For(J,1,3
Ligne(I-J,3+J,I+J+1,3+J,VERT,1
End
For(J,1,4
partEnt(2.75-J/2
Ligne(I-Rep,6+J,I+Rep+1,6+J,VERT,1
End
End
219→M
For(I,0,28,2
Ligne(M-25,I,M+25,I,BLANC,2
If I≤14
Ligne(M-5,I,M+5,I,MARRON,2
If I≥18 et I≤25
Then
Ligne(M-8,I,M-16,I,BLEU CLR,2
Ligne(M+8,I,M+16,I,BLEU CLR,2
End
End
For(I,28,42
I-28
Ligne(M-25+Rep,I,M+25-Rep,I,ROUGE,1
End
CouleurTexte(MAGENTA
Texte(100,110,"J o y e u x

For(X,110,261
For(Y,101,114
If non(pxl-Test(Y,X
Pxl-NAff(Y,X
End
End
5→N
0→dim(⌊N
N→dim(⌊N
While non(getKey
For(I,1,N
If NbrAléat>.95 et 0≥imag(⌊N(I
Then
nbrAléatEnt(0,Xmax
If non(pxl-Test(0,Rep
Ymax+Rep→⌊N(I
End
⌊N(I)-4
If 0≤imag(Rep
Then
If pxl-Test(Ymax-imag(Rep),réel(Rep
Then

­→⌊N(I
End
If 0≤imag(Rep
Then
Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),3
Pt-Aff(réel(Rep),imag(Rep),3,GRIS CLR
Rep→⌊N(I
End
End
End
End
ArrPlanNAff
RappelBDG BDG0
DelVar BDG0
Fichiers joints
AVENT16P.8xp
(1.66 Kio) Téléchargé 67 fois
Lien vers le sujet sur le forum: Jour 16 : Programme de l'Avent TI-83 Premium CE (Commentaires: 0)

Jour 17 : Programme de l'Avent TI-83 Premium CE

Nouveau messagede critor » 17 Déc 2016, 00:01

... et puis un autre...
Code: Tout sélectionner
...
CouleurTexte(BLEU CLR
Texte(100,110+69,"N o ë l
...

Show/Hide spoilerAfficher/Masquer le spoiler
Code: Tout sélectionner
EnrBDG BDG0
ZDécimal
AxesNAff
FoncNAff
QuadNAff
GraphNAff
40Xmax→Xmax
40Ymax→Ymax
0→Xmin
0→Ymin
ArrPlanAff NOIR
CouleurBord 1
EffDess
131→Y
77→L
9→X
For(I,0,Y,2
Ligne(X,I,L,I,BLEU MRN,2
End
For(I,16,Y,16
Ligne(X,I,L,I,GRIS FON,1
For(J,­14,­4,2
Ligne(X+7,I+J,X+14,I+J,ORANGE,2
End
Pt-Aff(X+12,I-10,GRIS,1
End
X+2→X
{0,3,3,1,6,0,2,7,6,2,4,0,3,7,6,3,4,0,4,6,0,5,3,3,8,23,23,8,15,0,9,23,23,9,15,0,10,23,0,11,23,22,11,20,0,12,23,22,12,20,20,12,17,0,13,23,22,13,20,20,13,17,0,14,23,22,14,20,0,15,23,0,16,23,0,17,23,22,17,20,0,18,23,22,18,20,20,18,17,0,19,23,22,19,20,20,19,17,0,20,23,22,20,20,0,21,23,0,22,23,23,22,15,0,23,23,23,23,15,0,24,15,0,25,15,0,26,15,0,27,15,0,28,15,0,29,15,0,30,15,0,31,15,0,32,15,0,33,15,0,34,15,0,35,15,0,36,15,0,37,15,0,38,15,0,39,15,0,40,7,0,41,7,0,42,7,0,43,7,0,44,9,9,44,7,0,45,10,10,45,7,0,46,11,11,46,8,0,47,12,11,47,9,9,47,7,0,48,13,13,48,11,10,49,14,14,49,11,11,50,12,11,51,16,16,51,13,13,51,11,10,52,18,18,52,16,16,52,11,0,53,18,18,53,16,16,53,11,9,54,19,10,55,18,18,55,16,16,55,10,10,55,8,8,56,18,18,56,16,16,56,10,9,57,16,16,57,10,10,57,8,8,58,11,9,59,12,12,59,10,10,60,11,11,61,12,12,59,3,3,60,6,0,61,7,6,61,4,0,62,7,6,62,4,0,63,6,0,64,3,3
For(I,1,dim(Rep),3
Ligne(X+Rep(I),Y+Rep(I+1),X+Rep(I),Y+Rep(I+2),BLEU MRN,1
End
For(I,3,Xmax,8
Ligne(I,0,I,3,VERT,2
End
For(I,3+8,Xmax,16
For(J,1,3
Ligne(I-J,3+J,I+J+1,3+J,VERT,1
End
For(J,1,4
partEnt(2.75-J/2
Ligne(I-Rep,6+J,I+Rep+1,6+J,VERT,1
End
End
219→M
For(I,0,28,2
Ligne(M-25,I,M+25,I,BLANC,2
If I≤14
Ligne(M-5,I,M+5,I,MARRON,2
If I≥18 et I≤25
Then
Ligne(M-8,I,M-16,I,BLEU CLR,2
Ligne(M+8,I,M+16,I,BLEU CLR,2
End
End
For(I,28,42
I-28
Ligne(M-25+Rep,I,M+25-Rep,I,ROUGE,1
End
CouleurTexte(MAGENTA
Texte(100,110,"J o y e u x
CouleurTexte(BLEU CLR
Texte(100,110+69,"N o ë l

For(X,110,261
For(Y,101,114
If non(pxl-Test(Y,X
Pxl-NAff(Y,X
End
End
5→N
0→dim(⌊N
N→dim(⌊N
While non(getKey
For(I,1,N
If NbrAléat>.95 et 0≥imag(⌊N(I
Then
nbrAléatEnt(0,Xmax
If non(pxl-Test(0,Rep
Ymax+Rep→⌊N(I
End
⌊N(I)-4
If 0≤imag(Rep
Then
If pxl-Test(Ymax-imag(Rep),réel(Rep
Then

­→⌊N(I
End
If 0≤imag(Rep
Then
Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),3
Pt-Aff(réel(Rep),imag(Rep),3,GRIS CLR
Rep→⌊N(I
End
End
End
End
ArrPlanNAff
RappelBDG BDG0
DelVar BDG0

AVENT16Q.8xp
(1.69 Kio) Téléchargé 58 fois
Lien vers le sujet sur le forum: Jour 17 : Programme de l'Avent TI-83 Premium CE (Commentaires: 0)

Jour 18 : Programme de l'Avent TI-83 Premium CE

Nouveau messagede critor » 18 Déc 2016, 00:00

... et encore un autre !

Mais décidément, cette neige...
C'est une tempête de givre dévastatrice digne d'une des sept plaies de l'Egypte, oui... :o
Ou plutôt une tempête de verglas comme dirait DJ Omnimaga ! ;)

Il faut que l'on fasse quelque chose... vite !...

Code: Tout sélectionner
...
CouleurTexte(VERT
Texte(100,110+69+43,"2 0 1 6
...

Show/Hide spoilerAfficher/Masquer le spoiler
Code: Tout sélectionner
EnrBDG BDG0
ZDécimal
AxesNAff
FoncNAff
QuadNAff
GraphNAff
40Xmax→Xmax
40Ymax→Ymax
0→Xmin
0→Ymin
ArrPlanAff NOIR
CouleurBord 1
EffDess
131→Y
77→L
9→X
For(I,0,Y,2
Ligne(X,I,L,I,BLEU MRN,2
End
For(I,16,Y,16
Ligne(X,I,L,I,GRIS FON,1
For(J,­14,­4,2
Ligne(X+7,I+J,X+14,I+J,ORANGE,2
End
Pt-Aff(X+12,I-10,GRIS,1
End
X+2→X
{0,3,3,1,6,0,2,7,6,2,4,0,3,7,6,3,4,0,4,6,0,5,3,3,8,23,23,8,15,0,9,23,23,9,15,0,10,23,0,11,23,22,11,20,0,12,23,22,12,20,20,12,17,0,13,23,22,13,20,20,13,17,0,14,23,22,14,20,0,15,23,0,16,23,0,17,23,22,17,20,0,18,23,22,18,20,20,18,17,0,19,23,22,19,20,20,19,17,0,20,23,22,20,20,0,21,23,0,22,23,23,22,15,0,23,23,23,23,15,0,24,15,0,25,15,0,26,15,0,27,15,0,28,15,0,29,15,0,30,15,0,31,15,0,32,15,0,33,15,0,34,15,0,35,15,0,36,15,0,37,15,0,38,15,0,39,15,0,40,7,0,41,7,0,42,7,0,43,7,0,44,9,9,44,7,0,45,10,10,45,7,0,46,11,11,46,8,0,47,12,11,47,9,9,47,7,0,48,13,13,48,11,10,49,14,14,49,11,11,50,12,11,51,16,16,51,13,13,51,11,10,52,18,18,52,16,16,52,11,0,53,18,18,53,16,16,53,11,9,54,19,10,55,18,18,55,16,16,55,10,10,55,8,8,56,18,18,56,16,16,56,10,9,57,16,16,57,10,10,57,8,8,58,11,9,59,12,12,59,10,10,60,11,11,61,12,12,59,3,3,60,6,0,61,7,6,61,4,0,62,7,6,62,4,0,63,6,0,64,3,3
For(I,1,dim(Rep),3
Ligne(X+Rep(I),Y+Rep(I+1),X+Rep(I),Y+Rep(I+2),BLEU MRN,1
End
For(I,3,Xmax,8
Ligne(I,0,I,3,VERT,2
End
For(I,3+8,Xmax,16
For(J,1,3
Ligne(I-J,3+J,I+J+1,3+J,VERT,1
End
For(J,1,4
partEnt(2.75-J/2
Ligne(I-Rep,6+J,I+Rep+1,6+J,VERT,1
End
End
219→M
For(I,0,28,2
Ligne(M-25,I,M+25,I,BLANC,2
If I≤14
Ligne(M-5,I,M+5,I,MARRON,2
If I≥18 et I≤25
Then
Ligne(M-8,I,M-16,I,BLEU CLR,2
Ligne(M+8,I,M+16,I,BLEU CLR,2
End
End
For(I,28,42
I-28
Ligne(M-25+Rep,I,M+25-Rep,I,ROUGE,1
End
CouleurTexte(MAGENTA
Texte(100,110,"J o y e u x
CouleurTexte(BLEU CLR
Texte(100,110+69,"N o ë l
CouleurTexte(VERT
Texte(100,110+69+43,"2 0 1 6
For(X,110,261
For(Y,101,114
If non(pxl-Test(Y,X
Pxl-NAff(Y,X
End
End
5→N
0→dim(⌊N
N→dim(⌊N
While non(getKey
For(I,1,N
If NbrAléat>.95 et 0≥imag(⌊N(I
Then
nbrAléatEnt(0,Xmax
If non(pxl-Test(0,Rep
Ymax+Rep→⌊N(I
End
⌊N(I)-4
If 0≤imag(Rep
Then
If pxl-Test(Ymax-imag(Rep),réel(Rep
Then

­→⌊N(I
End
If 0≤imag(Rep
Then
Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),3
Pt-Aff(réel(Rep),imag(Rep),3,GRIS CLR
Rep→⌊N(I
End
End
End
End
ArrPlanNAff
RappelBDG BDG0
DelVar BDG0

AVENT16R.8xp
(1.71 Kio) Téléchargé 64 fois
Lien vers le sujet sur le forum: Jour 18 : Programme de l'Avent TI-83 Premium CE (Commentaires: 0)

Jour 19 : Programme de l'Avent TI-83 Premium CE

Nouveau messagede critor » 19 Déc 2016, 00:01

D'un coup de baguette, les flocons de neige prennent un comportement plus normal !

L'astuce est d'allumer 1 pixel par flocon, ce qui est plus réaliste qu'une jolie étoile, surtout quand il y en a plusieurs qui s'empilent.

Mais par contre, oui qu'ils tombent plus lentement maintenant... Que faire ?...

Code: Tout sélectionner
...
⌊N(I)-
If 0≤imag(Rep
Then
...
If 0≤imag(Rep
Then
Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),4
Pt-Aff(réel(Rep),imag(Rep),4,GRIS CLR
Rep→⌊N(I
End
End
...

Show/Hide spoilerAfficher/Masquer le spoiler
Code: Tout sélectionner
EnrBDG BDG0
ZDécimal
AxesNAff
FoncNAff
QuadNAff
GraphNAff
40Xmax→Xmax
40Ymax→Ymax
0→Xmin
0→Ymin
ArrPlanAff NOIR
CouleurBord 1
EffDess
131→Y
77→L
9→X
For(I,0,Y,2
Ligne(X,I,L,I,BLEU MRN,2
End
For(I,16,Y,16
Ligne(X,I,L,I,GRIS FON,1
For(J,­14,­4,2
Ligne(X+7,I+J,X+14,I+J,ORANGE,2
End
Pt-Aff(X+12,I-10,GRIS,1
End
X+2→X
{0,3,3,1,6,0,2,7,6,2,4,0,3,7,6,3,4,0,4,6,0,5,3,3,8,23,23,8,15,0,9,23,23,9,15,0,10,23,0,11,23,22,11,20,0,12,23,22,12,20,20,12,17,0,13,23,22,13,20,20,13,17,0,14,23,22,14,20,0,15,23,0,16,23,0,17,23,22,17,20,0,18,23,22,18,20,20,18,17,0,19,23,22,19,20,20,19,17,0,20,23,22,20,20,0,21,23,0,22,23,23,22,15,0,23,23,23,23,15,0,24,15,0,25,15,0,26,15,0,27,15,0,28,15,0,29,15,0,30,15,0,31,15,0,32,15,0,33,15,0,34,15,0,35,15,0,36,15,0,37,15,0,38,15,0,39,15,0,40,7,0,41,7,0,42,7,0,43,7,0,44,9,9,44,7,0,45,10,10,45,7,0,46,11,11,46,8,0,47,12,11,47,9,9,47,7,0,48,13,13,48,11,10,49,14,14,49,11,11,50,12,11,51,16,16,51,13,13,51,11,10,52,18,18,52,16,16,52,11,0,53,18,18,53,16,16,53,11,9,54,19,10,55,18,18,55,16,16,55,10,10,55,8,8,56,18,18,56,16,16,56,10,9,57,16,16,57,10,10,57,8,8,58,11,9,59,12,12,59,10,10,60,11,11,61,12,12,59,3,3,60,6,0,61,7,6,61,4,0,62,7,6,62,4,0,63,6,0,64,3,3
For(I,1,dim(Rep),3
Ligne(X+Rep(I),Y+Rep(I+1),X+Rep(I),Y+Rep(I+2),BLEU MRN,1
End
For(I,3,Xmax,8
Ligne(I,0,I,3,VERT,2
End
For(I,3+8,Xmax,16
For(J,1,3
Ligne(I-J,3+J,I+J+1,3+J,VERT,1
End
For(J,1,4
partEnt(2.75-J/2
Ligne(I-Rep,6+J,I+Rep+1,6+J,VERT,1
End
End
219→M
For(I,0,28,2
Ligne(M-25,I,M+25,I,BLANC,2
If I≤14
Ligne(M-5,I,M+5,I,MARRON,2
If I≥18 et I≤25
Then
Ligne(M-8,I,M-16,I,BLEU CLR,2
Ligne(M+8,I,M+16,I,BLEU CLR,2
End
End
For(I,28,42
I-28
Ligne(M-25+Rep,I,M+25-Rep,I,ROUGE,1
End
CouleurTexte(MAGENTA
Texte(100,110,"J o y e u x
CouleurTexte(BLEU CLR
Texte(100,110+69,"N o ë l
CouleurTexte(VERT
Texte(100,110+69+43,"2 0 1 6
For(X,110,261
For(Y,101,114
If non(pxl-Test(Y,X
Pxl-NAff(Y,X
End
End
5→N
0→dim(⌊N
N→dim(⌊N
While non(getKey
For(I,1,N
If NbrAléat>.95 et 0≥imag(⌊N(I
Then
nbrAléatEnt(0,Xmax
If non(pxl-Test(0,Rep
Ymax+Rep→⌊N(I
End
⌊N(I)-
If 0≤imag(Rep
Then
If pxl-Test(Ymax-imag(Rep),réel(Rep
Then

­→⌊N(I
End
If 0≤imag(Rep
Then
Pt-NAff(réel(⌊N(I)),imag(⌊N(I)),4
Pt-Aff(réel(Rep),imag(Rep),4,GRIS CLR
Rep→⌊N(I
End
End
End
End
ArrPlanNAff
RappelBDG BDG0
DelVar BDG0

AVENT16S.8xp
(1.71 Kio) Téléchargé 70 fois
Lien vers le sujet sur le forum: Jour 19 : Programme de l'Avent TI-83 Premium CE (Commentaires: 3)

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
980 utilisateurs:
>962 invités
>13 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)