| horloge |
| Auteur |
Message |
vibra
Invité
|
Posté le : Lun 09 Avr 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
Autorisation : Administrateur
Nb de messages : 775
Inscrit le : Mer 18 Aoû 2004, 22:13
|
Posté le : Lun 09 Avr 2007, 12:20
|
|
|
J'aime bien l'idée !
@+ Le Webmaster 
|
 |
|
| |
vibra
Invité
|
Posté le : Lun 09 Avr 2007, 14:39
|
|
|
Merci Webmaster
|
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Lun 09 Avr 2007, 17:14
|
|
|
Si qqn voulais bien l'essayer et me dire ce q'il en pense, je serais ravi. Merci
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Baptiste747
Autorisation : Membre
Nb de messages : 20
Inscrit le : Dim 01 Avr 2007, 19:14
|
Posté le : Jeu 19 Avr 2007, 18:15
|
|
|
Je suis en train de le recopier, ce soir ou demain ça devrait etre bon
|
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Jeu 19 Avr 2007, 19:34
|
|
|
Ok, mais jtu vas voir, ça ne sert à riendu tout !!
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
PMdej
Autorisation : Membre
Nb de messages : 141
Inscrit le : Mer 07 Mar 2007, 19:10
|
Posté le : Jeu 19 Avr 2007, 21:46
|
|
|
ben alors si ca sert a rien moi je vais pas le prendre
!!!
enfin ........ quoi que !!
bon j'verrai !!
lol 
----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION |
| |
|
| |
Baptiste747
Autorisation : Membre
Nb de messages : 20
Inscrit le : Dim 01 Avr 2007, 19:14
|
Posté le : Ven 20 Avr 2007, 9: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
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Ven 20 Avr 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 |
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
Baptiste747
Autorisation : Membre
Nb de messages : 20
Inscrit le : Dim 01 Avr 2007, 19:14
|
Posté le : Ven 20 Avr 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
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Ven 20 Avr 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.
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Ven 20 Avr 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 :
| Citer | 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).
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
PMdej
Autorisation : Membre
Nb de messages : 141
Inscrit le : Mer 07 Mar 2007, 19:10
|
Posté le : Sam 21 Avr 2007, 0:00
|
|
|
ah ben ouais forcément c'est normal alors !!!!!
tout ca de recopié pour rien !!! lol :
----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION |
| |
|
| |
Baptiste747
Autorisation : Membre
Nb de messages : 20
Inscrit le : Dim 01 Avr 2007, 19:14
|
Posté le : Sam 21 Avr 2007, 8: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
Autorisation : Membre
Nb de messages : 20
Inscrit le : Dim 01 Avr 2007, 19:14
|
Posté le : Sam 21 Avr 2007, 8: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
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Sam 21 Avr 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.
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
mad67
Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Sam 21 Avr 2007, 11:47
|
|
|
sans aiguille je vous en fait un rapidos
|
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Sam 21 Avr 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 !!
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 21 Avr 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.
Sangohan38
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Baptiste747
Autorisation : Membre
Nb de messages : 20
Inscrit le : Dim 01 Avr 2007, 19:14
|
Posté le : Sam 21 Avr 2007, 13:37
|
|
|
J'ai tout essayé, tout traduit en francais, et ca marche toujours pas... 
Tant pis
|
| |
|
| |
Luckyday
Invité
|
Posté le : Ven 14 Sep 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
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Ven 14 Sep 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 ti
|
| |
|
| |
luckyday
Invité
|
Posté le : Ven 14 Sep 2007, 21:08
|
|
|
Et par curiositée si le programme marche sans cela va changer quoi ? (merci beaucoup quand meme)
|
| |
|
| |
Stupid
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Ven 14 Sep 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 chrono
|
| |
|
| |
Luckyday
Invité
|
Posté le : Ven 14 Sep 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
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Ven 14 Sep 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 ralentir
|
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Sam 15 Sep 2007, 15:14
|
|
|
Bon ben alors remplace :
| Citer : vibra |
| 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 |
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
luckyday
Invité
|
Posté le : Dim 16 Sep 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)
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Lun 17 Sep 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.
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Lun 17 Sep 2007, 18:27
|
|
|
Finalement j'ai réfléchis et il vaudrait mieux carrément supprimer
| Citer : vibra | [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).
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
