X1&X2

Question

salut tous le monde
bon voici un code : j'ai pas compris la valeur 2170 ,1900,1250, X1,X2,Y1,Y2

Private Sub Timer1_Timer()


Label4.Caption = (CStr(Date))


Line1.X2 = Line1.X1 + 2170 * Sin(3.141592 / 30 * Second(Time))
Line1.Y2 = Line1.Y1 - 2170 * Cos(3.141592 / 30 * Second(Time))


Line2.X2 = Line1.X1 + 1900 * Sin(3.141592 / 30 * (Minute(Time) + (Second(Time) / 60)))
Line2.Y2 = Line1.Y1 - 1900 * Cos(3.141592 / 30 * (Minute(Time) + (Second(Time) / 60)))


Line3.X2 = Line1.X1 + 1250 * Sin(3.141592 / 6 * (a + (Hour(Time) + (Minute(Time)) / 60)))
Line3.Y2 = Line1.Y1 - 1250 * Cos(3.141592 / 6 * (a + (Hour(Time) + (Minute(Time)) / 60)))


End Sub

PCPT · Answer

salut,
des positions/tailles arbitraires, pour faire une horloge à aiguille....
2170 la plus grande pour les secondes, 1900 les minutes, et 1250 pour les heures...

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

econs · Answer

Salut,

Vu à travers une boule de cristal, çà ressemble effectivement aux calculs de positions d'horloges à aiguilles.

Le centre de ton horloge se trouve en (Line1.X1, Line1.Y1)
Donc chaque aiguille possède ces coordonnées en (X1,Y1).
Ensuite, l'autre bout de l'aiguille (X2,Y2) décrit un cercle dont le rayon (2170,1900,1250) varie en fonction de la taille de l'aiguille.

Line3 => aiguille des heures
Line2 => aiguille des minutes
Lin1 => aiguille des secondes.





Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

vercomax · Answer

j'essaye de transcrire ce code en vb2005, et je patauge.

déjà je met tout çà dans le 'paint' de ma form
je défini un pen, et ensuite, heu, heu, heu  :)

 votre aide.

vercomax · Answer

bah, suis nul, y a plein de codes sur les horloge analogiques
++

X1&X2

4 réponses

Votre réponse

Discussions similaires