Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Horloge
vibra le 09/04/2007 à 11:21
Salut les amis
Voici un petit programme, que j'ai concocté en 6 heures de dure labeur, qui permet de transformer votre TI-82, en...Montre-chronomètre à aiguilles !
Dans le menu fonction,
- chronomètre, appuyez sur {ENTER} quand GO... s'affiche pour lancer le chronomètre. Appuyez une fois sur {ENTER} pour le stopper, et une fois de plus pour quitter le programme.
- horloge, permet à la calculatrice de se transformer en véritable montre. Mais pour cela, il faut régler l'heure. Donc entrez les heures et les minutes, et appuyez sur {ENTER} pour lancer la montre (au moment où votre propre montre indique l'heure que vous avez entré dans la calculette). Appuyez une fois sur {ENTER} pour la stopper, et une deuxième pour quitter le programme.
Malheureusement, il semblerai que la vitesse de la calculatrice pour exécuter un programme soit altéré en fonction de la mémoire disponible. Par conséquent il faut régler la vitesse d'exécution. Pour cela commencez par entrer 95->L6(8 (essayez de vous garder une liste rien que pour les jeux). Puis dans le menu "réglages", choisissez "test". Le chronomètre va se mettre en route, et comparez la vitesse de la trotteuse avec celle de votre propre montre. Si la calculatrice est trop lente, choisissez dans le menu "réglages" le sous-menu "accelerer" ou si la calculette est trop rapide choisissez "ralentir".
Bon, d'accord ça ne sert pas à grand chose, mais c'est beau...
Voici le code : ({pi} représente le symbole pi)
Code
ClrHome
ClrDraw
-1.516129->Xmin
1.516129->Xmax
-1->Ymin
1->Ymax
Circle (0,0,1
L6(8->K
For (L,0,11)
(L*{pi}/6)->C
(cos C)->E
(sin C)->F
(.9cos C)->G
(.9sin C)->I
Line (G,I,E,F
End
For (L,-.06,.06,.02
Line (1,L,1.1,L
End
1->A
.5->O
.5->P
.5->U
.5->V
Menu ("FONCTION","HORLOGE",A,"CHRONOMETRE",B,"REGLAGES",C)
Lbl C
Menu ("REGLAGES","TEST",F,"ACCELERER",D,"RALENTIR",E)
Lbl D
(L6(8-2)->L6(8
Lbl E
(L6(8+1)->L6(8
L6(8->K
0->A
Goto B
Lbl A
Input "HEURES : ",H
Input "MINUTES : ",Z
59->T
Z-1->Z
({pi}/2-Z{pi}/30)->M
(16{pi}/30)->S
Lbl 1
Goto 1
Lbl B
-1->H
59->T
59->Z
(-44{pi}/30)->M
(16{pi}/30)->S
Lbl 1
T+1->T
(S-{pi}/30)->S
If S<-2{pi}
S+2{pi}->S
(.8cos S)->X
(.8sin S)->Y
If T=60
Then
(M-{pi}/30)->M
If M<-2{pi}
M+2{pi}->M
(.5cos M)->Q
(.5sin M)->R
Z+1->Z
If Z=60
Then
H+1->H
If H=24
Then
0->H
Line (.1-,.8,.1,-.6,0)
Text (50,51," ") <-5 espaces
End
0->Z
End
0->T
End
If A=1
Then
ClrHome
Disp "Go...3"
Pause
0->A
End
Line (0,0,U,V,0)
Line (0,0,X,Y)
Line (0,0,O,P,0)
Line (0,0,Q,R)
Text (50,46,H
X->U
Y->V
Q->O
R->P
For (L,0,K
1+1
End
getKey->D
If D=105
Then
Pause
ClrHome
ClrDraw
Stop
End
Goto 1
merci de bien vouloir l'essayer.
webmaster le 09/04/2007 à 12:20
J'aime bien l'idée !
@+ Le Webmaster
vibra le 09/04/2007 à 14:39
Merci Webmastervibra le 09/04/2007 à 17:14
Si qqn voulais bien l'essayer et me dire ce q'il en pense, je serais ravi. MerciBaptiste747 le 19/04/2007 à 18:15
Je suis en train de le recopier, ce soir ou demain ça devrait etre bon
vibra le 19/04/2007 à 19:34
Ok, mais jtu vas voir, ça ne sert à riendu tout !!
PMdej le 19/04/2007 à 21:46
ben alors si ca sert a rien moi je vais pas le prendre
!!!
enfin ........ quoi que !!
bon j'verrai !!
lol
Baptiste747 le 20/04/2007 à 09:03
Bon déja il y a deux lbl1
Ensuite a un endroit ya
donc ca bloque.
Et puis quand je fait test ca me met une erreur etiquette. Et ni les aiguilles du chrono, ni celles de l'horloge ne tournent.
Voila c tout
vibra le 20/04/2007 à 10:36
Te marre pas si vite
, tu vas voir que ça marche. En fait il y avait pas mal d'erreur...
Voici la version corrigée :
Code
ClrHome
ClrDraw
FnOff
Radian
AxesOff
-1.516129->Xmin
1.516129->Xmax
-1->Ymin
1->Ymax
Circle (0,0,1
If dim L6<1
Then
1-> dim L6
95->L6(1)
End
L6(1->K
For (L,0,11)
(L*{pi}/6)->C
(cos C)->E
(sin C)->F
(.9cos C)->G
(.9sin C)->I
Line (G,I,E,F
End
For (L,-.06,.06,.02
Line (1,L,1.1,L
End
1->A
.5->O
.5->P
.5->U
.5->V
Menu ("FONCTION","HORLOGE",A,"CHRONOMETRE",B,"REGLAGES",C)
Lbl C
Menu ("REGLAGES","TEST",F,"ACCELERER",D,"RALENTIR",E)
Lbl D
(L6(1)-2->L6(1
Lbl E
(L6(1)+1->L6(1
L6(1->K
Lbl F
0->A
Goto B
Lbl A
Input "HEURES : ",H
Input "MINUTES : ",Z
59->T
Z-1->Z
({pi}/2-Z{pi}/30)->M
(16{pi}/30)->S
Goto 1
Lbl B
-1->H
59->T
59->Z
(-44{pi}/30)->M
(16{pi}/30)->S
Lbl 1
T+1->T
(S-{pi}/30)->S
If S<-2{pi}
S+2{pi}->S
(.8cos S)->X
(.8sin S)->Y
If T=60
Then
(M-{pi}/30)->M
If M<-2{pi}
M+2{pi}->M
(.5cos M)->Q
(.5sin M)->R
Z+1->Z
If Z=60
Then
H+1->H
If H=24
Then
0->H
Line (.1,-.8,.1,-.6,0)
Text (50,51," ") <-5 espaces
End
0->Z
End
0->T
End
If A=1
Then
ClrHome
Disp "Go..."
Pause
0->A
End
Line (0,0,U,V,0)
Line (0,0,X,Y)
Line (0,0,O,P,0)
Line (0,0,Q,R)
Text (50,46,H
X->U
Y->V
Q->O
R->P
For (L,0,K
1+1
End
getKey->D
If D=105
Then
Pause
ClrHome
ClrDraw
Stop
End
Goto 1
Baptiste747 le 20/04/2007 à 14:20
Bon ca fait toujours une erreur etiquette quand je fait "test".
Les aiguilles du chrono et de la montre ne tournent toujours pas (en fait ca affiche juste le dessin mais le prog ne tourne plus, je fais annul et ca s'arrete)
vibra le 20/04/2007 à 14:24
C'est pas possible !!!
ça marche parfaitement chez moi ! T'as essayé le chrono ? Et l'erreur étiquette est où ? Vérifie que tu ne t'est pas trompé en recopiant, c'est la seule explication que je touve.
vibra le 20/04/2007 à 14:48
Bon, j'ai revérifié une fois de plus, le code est bon.
Vérifie que tu aies bien :
juste en dessous de :
Citation
Lbl A
Input "HEURES : ",H
Input "MINUTES : ",Z
59->T
Z-1->Z
({pi}/2-Z{pi}/30)->M
(16{pi}/30)->S
Si ça marche toujours pas essaye de mettre toutes les parenthèses, défois ça marche. Et sinon, si tu as une 82 Stat peut-être que mon programme n'est pas compatible avec (je l'ai fais sur TI-82).
PMdej le 21/04/2007 à 00:00
ah ben ouais forcément c'est normal alors !!!!!
tout ca de recopié pour rien !!! lol
:
Baptiste747 le 21/04/2007 à 08:17
Ouais mais moi j'ai une TI-82 STATS FR, donc je suis obligé de traduire en francais et j'ai dû de tromper quelque part...Baptiste747 le 21/04/2007 à 08:21
J'ai essayé l'horloge et le chrono et ca m'affiche juste l'image mais ce tourne pas.
Si non l'erreur etiquette c'est quand je fais "test".vibra le 21/04/2007 à 10:31
Vas dans discussions générales ->articles -> traductions des fonctions anglaise/françaises, peut-être que ça t'idera à trouver ton erreur.mad67 le 21/04/2007 à 11:47
sans aiguille je vous en fait un rapidosvibra le 21/04/2007 à 12:33
Ouais mais bon déjà que le seul interrêt d'avoir une montre sur sa calculette c'est de voir tourner les aiguilles, alors si en plus tu les supprimes !!
Sangohan38 le 21/04/2007 à 12:43
Essaye sur word de copier, de faire CTRL+H et de rechercher et remplacer toutes les fonctions par celle en français.
Tu aura donc le code en français.
Sangohan38Baptiste747 le 21/04/2007 à 13:37
J'ai tout essayé, tout traduit en francais, et ca marche toujours pas...
Tant pis
Luckyday le 14/09/2007 à 18:51
Il y a un probleme avec la ligne 11 if dim L6<1
moi déja je ne peux que écrire if dim (L6<1 et j'ai donc une erreur dim.
Or en suprimant cette ligne le programme marche (bien qu'un peu trop rapide)Stupid le 14/09/2007 à 20:44
dans le menu principal (celui ou tu te trouves quand t'allumes ta calto) tu fais
{0,0,0,0,0,0,0}[sto]L6 et tu remets la liste
et avoir un chrono parfait est impossible sur une tiluckyday le 14/09/2007 à 21:08
Et par curiositée si le programme marche sans cela va changer quoi ? (merci beaucoup quand meme)Stupid le 14/09/2007 à 21:24
déjà j'ai fait une petite faute
j'ai oublié un zero^^
{0,0,0,0,0,0,0,0}[sto]L6
ensuite je crois que ca fera que tu ne peux aps accelerer ou decceler le le chronoLuckyday le 14/09/2007 à 21:33
Eh bien je te remercie ton astuce marche mais j'étais plus proche de la seconde en enlevant cette ligne.Elle va beaucoup trop vite maintenant.
Stupid le 14/09/2007 à 21:36
si ca va plus vite c'est pas normal une ligne ca ralonge la durée
t'as qu'a fair eun coup de ralentirvibra le 15/09/2007 à 15:14
Bon ben alors remplace :
vibra a écrit :
Code
If dim L6<1
Then
1-> dim L6
95->L6(1)
End
par
Code
1->dim L6
If abs(L6(1))>20
95->L6(1
luckyday le 16/09/2007 à 15:27
le coup du ralentir euhm ... On peut ralentir combien de fois car je n'ai pas la réelle impression de ralentir désolé pour toutes ces questions mais à travers ce programme je tente d'apprendre (et à le perfectionner)vibra le 17/09/2007 à 18:23
Tu vois, 95 c'est un assez grand nombre. Cela implique que si tu met 94, le programme ne sera que très peu accéléré (cela assure un meilleur réglage). Donc si il va vraiment trop lentement , il faut que tu mette 50 ou un truc comme ça.vibra le 17/09/2007 à 18:27
Finalement j'ai réfléchis et il vaudrait mieux carrément supprimer
vibra a écrit :
[quote=vibra]Code
If dim L6<1
Then
1-> dim L6
95->L6(1)
End
Si il y a une erreur, c'est que la liste 6 n'existe pas, et doc il suffit de faire 95->L6(1).
Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
