Poster un nouveau sujet Poster une réponse
animation horloge
Auteur Message
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 09 Jui 2010, 15:22   Citer 

ceci est une animation, pas un chronomètre.
ne regardez pas l'heure avec ça pendant un examen, vous aurez des surprises.



Code

AxesNaff
EffDessin
Horiz
1.4->Ymax
-1.4->Ymin
-4.4->Xmin
4.4->Xmax
Cercle(0,0,1.4
Cercle(0,0,1.2
Pt-On(0,0,2
Ligne(Xmin,.8,-1.2,.8
Ligne(Xmin,-.7,-1.2,-.7
Ligne(1.2,.8,Xmax,.8
Ligne(1.2,-.7,Xmax,-.7
Pt-On(0,1
Pt-On(0,-1
Pt-On(-1,0
Pt-On(1,0
SauveImage 1
Input "HEURES:",H
Input "MINUTES:",M
Input "SECONDES:",S
If H>12:H-12->H
Degré
EffEcr
Repeat 0
If S=60:M+1->M
If S=60:1->S
If M=60:H+1->H
If M=60:1->M
If H=12:0->H
RappelImage 1
30H+(M/2)->A
Ligne(0,0,2sin(A)/3,2cos(A)/3
6M->B
Ligne(0,0,5sin(B)/6,5cos(B)/6
6S->C
Ligne(0,0,sin(C),cos(C)
Output(2,5,ent(H
Output(2,8,ent(M
Output(2,11,S
For(D,1,100):End
S+1->S
Ligne(0,0,3sin(A)/4,3cos(A)/4,0
Ligne(0,0,5sin(B)/6,5cos(B)/6,0
Ligne(0,0,sin(C),cos(C),0
Pt-On(0,1
Pt-On(1,0
Pt-On(0,-1
Pt-On(-1,0
Pt-On(-.5,.8
Pt-On(-.8,.5
Pt-On(.5,.8
Pt-On(.8,.5
Pt-On(-.5,-.8
Pt-On(-.8,-.5
Pt-On(.5,-.8
Pt-On(.8,-.5
End





 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 12 Jui 2010, 9:54   Citer 

si ça ne vous plait pas, on peut l'améliorer:

au début du prog,

- supprimez Horiz
- remplacez "-4,4->Xmin" par "-2.2->Xmin" et "4.4->Xmax" par "2.2->Xmax"
- remplacez "Cercle(0,0,1.2" par "Cercle(0,0,1.3):Cercle(0,0,1.1)"
- supprimez les 3 "Output(quelque chose"

 Adresse email Haut de page Bas de page 
 
alexvire



Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
Posté le : Sam 12 Jui 2010, 11:53   Citer 

Pas mal !
J'aime bien ton programme, même si il ne donne pas la vrai heure je le trouve bien fait.

Je l'ai hébergé ici pour ceux qui veulent l'essayer sur émulateur.

----------------------
Salut, visitez mon site:

Et mon forum !

Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI.
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 12 Jui 2010, 16:31   Citer 

merci

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 12 Jui 2010, 22:30   Citer 

Je n'ai pas bien compris le sens du noir qui remplit le cadran.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 14 Jui 2010, 11:09   Citer 

quel noir?
tu as recopié à la main ou téléchargé?

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 14 Jui 2010, 23:14   Citer 

A la main sur vti. J'ai dû manquer une ligne.
Je vais donc tester le 83p.

EDIT: L'erreur était certainement de moi. L'horloge actuelle fonctionne mieux.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 15 Jui 2010, 9:14   Citer 

tant mieux.
est-ce que il y a l'heure intégrée sur les 83+?
je sais que sur les 84+ oui mais pour les 83 je sais pas.
si oui, je ferait une horloge qui donne la vraie heure.

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 15 Jui 2010, 9:20   Citer 

L'heure n'est pas intégrée dans les modèles inférieurs à la ti-84.

Sangohan38

 Adresse email Haut de page Bas de page 
 
Akmdad



Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Mer 23 Jui 2010, 11:38   Citer 

je te dis bravo persalteas!! ton programme est d'une qualité exceptionnelle! tu l'as fait tout seul?

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 23 Jui 2010, 20:05   Citer 

ben oui évidemment.

 Adresse email Haut de page Bas de page 
 
Akmdad



Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Mer 23 Jui 2010, 20:07   Citer 

ben alors bravo

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
xFire
Invité
Posté le : Jeu 30 Sep 2010, 23:42   Citer 

Bonjour à tous. J'ai un problème à cette ligne :

Code
Ligne(0,0,sin(C,cos(C


Après que je saisisse l'heure, la minute et la seconde, il me met ERR:ARGUMENT. J'ai essayé de refermer la parenthèse, ça marche mais la trotteuse ne s'efface pas.

  Haut de page Bas de page 
 
Rézus



Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Ven 01 Oct 2010, 9:28   Citer 

Oui c'est ça,il faut fermer la parenthèse du sin(C
Si la trotteuse ne s'efface pas,le problème ne vient pas de là.
Cette ligne est deux fois dans le programme.A la première,rajoute tout à la fin de la ligne: ,0
Tout en n'oubliant pas de fermer la parenthèse du cos(C avant la virgule.

 Adresse email Haut de page Bas de page 
 
xFire
Invité
Posté le : Sam 02 Oct 2010, 10:49   Citer 

J'ai modifié la première ligne comme cela :

Code
Line(0,0,sin(C),cos(C)


Et la deuxième :

Code
Line(0,0,sin(C),cos(C),0



Et cela marche très bien ! Merci beaucoup Rézus.

  Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Dim 03 Oct 2010, 12:34   Citer 

j'édite le code pour que les générations futures ne se trompent pas par ma faute.

le code est maintenant bon.

 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Ven 15 Oct 2010, 9:20   Citer 

Salut, persalteas, moi aussi j'ai déjà fais ce genre de prgm...
Le tien est bien mais le mien est différent,je le recopie, je l'envoi,
et ont pourra comparer, c'est promis !

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
raboulave



Autorisation : Membre
Nb de messages : 57
Inscrit le : Jeu 08 Oct 2009, 20:56
Posté le : Mar 19 Oct 2010, 22:10   Citer 

Bonsoir,
Merci pour ton petit prog qui doit être pas mal du tout happy.gif
Je dis qui doit être parce que chez moi il plante à SauveImage 1, Err : Mémoire.
Je ne sais pas à quoi c'est dû. J'ai recopié 3 fois de suite le code.
Je comprends pas !

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 19 Oct 2010, 22:23   Citer 

Déleste ta mémoire de quelques programmes et l'erreur disparaitra comme par enchantement.

Sangohan38

 Adresse email Haut de page Bas de page 
 
raboulave



Autorisation : Membre
Nb de messages : 57
Inscrit le : Jeu 08 Oct 2009, 20:56
Posté le : Mar 19 Oct 2010, 22:25   Citer 

D'accord merci happy.gif
Combien prend un SauveImage ? Parce qu'il me reste quand même 500 octets de libre ! C'est si lourd que ça ?

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 19 Oct 2010, 22:27   Citer 

Ça dépend du nombre de pixel allumés mais environ 800 octets/image.

Sangohan38

 Adresse email Haut de page Bas de page 
 
raboulave



Autorisation : Membre
Nb de messages : 57
Inscrit le : Jeu 08 Oct 2009, 20:56
Posté le : Mar 19 Oct 2010, 22:31   Citer 

Super ça marche tongue.gif
Dernière petite question : c'est moi ou ce n'est pas fluide ? Il se passe une sorte d'EffEcr des aiguilles à chaque seconde ! Ce n'est pas fluide quoi :/

 Adresse email Haut de page Bas de page 
 
Rézus



Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Mar 19 Oct 2010, 22:33   Citer 

Oui,il y a bien ça,mais bon,c'est compliquer de s'en passer et ça alourdirait le programme et le ralentirait.

 Adresse email Haut de page Bas de page 
 
raboulave



Autorisation : Membre
Nb de messages : 57
Inscrit le : Jeu 08 Oct 2009, 20:56
Posté le : Mar 19 Oct 2010, 22:34   Citer 

Désolé du double-post mais j'ai encore un autre petit problème _ _' Le dernier promis tongue.gif
Comment revenir à PleinEcr, mais dans le prog ? Parce qu'un novice, après avoir exécuté le prog, il se retrouve en Horiz et il est tout perdu, il sait pas quoi faire ! ^^

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Rézus



Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Mar 19 Oct 2010, 22:41   Citer 

Le programme se quitte en appuyant sur [on] non ? dans ce cas faut que persalteas bricole un petit truc.

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 20 Oct 2010, 15:08   Citer 

alors effectivement le programme se quitte avec On, après il faut faire [mode] puis "Plein" dans le menu mode.

sinon, on peut faire comme ça pour le prog:


Code

AxesNaff
EffDessin
Horiz
1.4->Ymax
-1.4->Ymin
-4.4->Xmin
4.4->Xmax
Cercle(0,0,1.4
Cercle(0,0,1.2
Pt-On(0,0,2
Ligne(Xmin,.8,-1.2,.8
Ligne(Xmin,-.7,-1.2,-.7
Ligne(1.2,.8,Xmax,.8
Ligne(1.2,-.7,Xmax,-.7
Pt-On(0,1
Pt-On(0,-1
Pt-On(-1,0
Pt-On(1,0
SauveImage 1
Input "HEURES:",H
Input "MINUTES:",M
Input "SECONDES:",S
If H>12:H-12->H
Degré
EffEcr
Repeat codetouche
If S=60:M+1->M
If S=60:1->S
If M=60:H+1->H
If M=60:1->M
If H=12:0->H
RappelImage 1
30H+(M/2)->A
Ligne(0,0,2sin(A)/3,2cos(A)/3
6M->B
Ligne(0,0,5sin(B)/6,5cos(B)/6
6S->C
Ligne(0,0,sin(C),cos(C)
Output(2,5,ent(H
Output(2,8,ent(M
Output(2,11,S
For(D,1,100):End
S+1->S
Ligne(0,0,3sin(A)/4,3cos(A)/4,0
Ligne(0,0,5sin(B)/6,5cos(B)/6,0
Ligne(0,0,sin(C),cos(C),0
Pt-On(0,1
Pt-On(1,0
Pt-On(0,-1
Pt-On(-1,0
Pt-On(-.5,.8
Pt-On(-.8,.5
Pt-On(.5,.8
Pt-On(.8,.5
Pt-On(-.5,-.8
Pt-On(-.8,-.5
Pt-On(.5,-.8
Pt-On(.8,-.5
End
PleinEcr
ZStandard
AxesAff
FonctOn
Output(1,1,"



en gros, remplacer Repeat 0 par repeat codetouche, plus la remise à zéro des paramètres à la fin.

puisque ce topic est remonté, voilà quelques modifs:

pour l'avoir en plein écran directement:


Code

:AxesNaff
:EffDessin
:1.4->Ymax:-1.4->Ymin
:-2.2->Xmin:2.2->Xmax
:Cercle(0,0,1.4
:Cercle(0,0,1.3
:Cercle(0,0,1.1
:Pt-On(0,0,2
:Ligne(Xmin,.8,-1.2,.8
:Ligne(Xmin,-.7,-1.2,-.7
:Ligne(1.2,.8,Xmax,.8
:Ligne(1.2,-.7,Xmax,-.7
:Pt-On(0,1
:Pt-On(0,-1
:Pt-On(-1,0
:Pt-On(1,0
:SauveImage 1
:Input "Heures:",H
:Input "Minutes:",M
:Input "SecOndes:",S
:If H>12:H-12->H
:Degré
:EffEcr
:Repeat 0
:If S=60:M+1->M
:If S=60:0->S
:If M=60:H+1->H
:If M=60:0->M
:If H=12:0->H
:RappelImage 1
:30H+(M/2)->A
:Ligne(0,0,2sin(A)/3,2cos(A)/3
:6M->B
:Ligne(0,0,5sin(B)/6,5cos(B)/6
:6S->C
:Ligne(0,0,sin(C),cos(C)
:For(D,1,100):End
:S+1->S
:Ligne(0,0,5sin(B)/6,5cos(B)/6,0
:Ligne(0,0,2sin(A)/3,2cos(A)/3,0
:Ligne(0,0,sin(C),cos(C),0
:Pt-On(0,1
:Pt-On(1,0
:Pt-On(0,-1
:Pt-On(-1,0
:Pt-On(-.5,.8
:Pt-On(-.8,.5
:Pt-On(.5,.8
:Pt-On(.8,.5
:Pt-On(-.5,-.8
:Pt-On(-.8,-.5
:Pt-On(.5,-.8
:Pt-On(.8,-.5
:End



et, si vous avez une Ti 84+ ou modèle supérieur, en voilà une qui se met à l'heure toute seule et qui ne se dérègle pas, et qui clignote moins:



Code

:AxesNaff
:EffDessin
:1.4->Ymax:-1.4->Ymin
:-2.2->Xmin:2.2->Xmax
:Cercle(0,0,1.4
:Cercle(0,0,1.3
:Cercle(0,0,1.1
:Pt-On(0,0,2
:Ligne(Xmin,.8,-1.2,.8
:Ligne(Xmin,-.7,-1.2,-.7
:Ligne(1.2,.8,Xmax,.8
:Ligne(1.2,-.7,Xmax,-.7
:Pt-On(0,1
:Pt-On(0,-1
:Pt-On(-1,0
:Pt-On(1,0
:SauveImage 1
:Degré
:EffEcr
:getTime->L1
:L1(1->H
:L1(2->M
:L1(3->S
:If H>12:H-12->H
:Repeat codetouch(
:RappelImage 1
:30H+(M/2)->A
:Ligne(0,0,2sin(A)/3,2cos(A)/3
:6M->B
:Ligne(0,0,5sin(B)/6,5cos(B)/6
:6S->C
:Ligne(0,0,sin(C),cos(C)
:Repeat L1(3)=/=S
:getTime->L1
:End
:L1(1->H
:L1(2->M
:L1(3->S
:If H>12:H-12->H
:Ligne(0,0,5sin(B)/6,5cos(B)/6,0
:Ligne(0,0,2sin(A)/3,2cos(A)/3,0
:Ligne(0,0,sin(C),cos(C),0
:Pt-On(0,1
:Pt-On(1,0
:Pt-On(0,-1
:Pt-On(-1,0
:Pt-On(-.5,.8
:Pt-On(-.8,.5
:Pt-On(.5,.8
:Pt-On(.8,.5
:Pt-On(-.5,-.8
:Pt-On(-.8,-.5
:Pt-On(.5,-.8
:Pt-On(.8,-.5
:End



 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes