Bonjour, a tous
pour ceux qui veulent une horloge a aiguille dans leur appli
voici une procedure qui fait ca pas mal
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
//----------------------------------------------------------------------------
PROCEDURE horloge()
Xcentre,yCentre sont des entier
heure est un Heure = HeureSys()
hheur est un entier = heure..Heure
SI hheur > 12 ALORS hheur -= 12
angleMax est un entier = 360
FinTimerSys(timerHorloge)
// longueur des aiguilles en pixel
mfHlen est un entier = 30
mfMlen est un entier = 45
mfSlen est un entier = 50
// centre de l'horloge
Xcentre = IMG_HORLOGE..Largeur/2
yCentre = IMG_HORLOGE..Hauteur/2
// couleur des aiguilles
HeureCouleur est un entier = iNoir
MinuteCouleur est un entier = iNoir
SecondeCouleur est un entier = iNoir
// angles des aiguilles
dHang est un réel
dMang est un réel
dSang est un réel
// variable pour le point exterieur de l'aiguille
dHx est un réel
dHy est un réel
dMx est un réel
dMy est un réel
dSx est un réel
dSy est un réel
//Calculer les angles des aiguilles
dHang = (angleMax * (hheur+9))/12
dMang = (angleMax * (heure..Minute+45))/60
dSang = (angleMax * (heure..Seconde+45))/60
// raprochement de l'aiguille des heures si on est pres de l'heure suivante
SI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
// Calculer les extrémités de chaque aiguille
// heures
dHx = mfHlen * Cosinus(dHang)
dHy = mfHlen * Sinus(dHang)
// minutes
dMx = mfMlen * Cosinus(dMang)
dMy = mfMlen * Sinus(dMang)
// secondes
dSx = mfSlen * Cosinus(dSang)
dSy = mfSlen * Sinus(dSang)
// dessiner les aiguilles
dDébutDessin(IMG_HORLOGE)
dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
HeureCouleur,2)
dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
MinuteCouleur,2)
dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
SecondeCouleur,1)
// on relance le timer
timerHorloge = TimerSys("horloge",100)
//----------------------------------------------------------------------------
mettez ce code dans une fenetre avec cette ligne dans le code
d'intialisation
GLOBAL
timerHorloge est un entier
timerHorloge = TimerSys("horloge",100)
Bon dev
@+
Firetox
Bonjour, a tous
pour ceux qui veulent une horloge a aiguille dans leur appli
voici une procedure qui fait ca pas mal
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
//----------------------------------------------------------------------------
PROCEDURE horloge()
Xcentre,yCentre sont des entier
heure est un Heure = HeureSys()
hheur est un entier = heure..Heure
SI hheur > 12 ALORS hheur -= 12
angleMax est un entier = 360
FinTimerSys(timerHorloge)
// longueur des aiguilles en pixel
mfHlen est un entier = 30
mfMlen est un entier = 45
mfSlen est un entier = 50
// centre de l'horloge
Xcentre = IMG_HORLOGE..Largeur/2
yCentre = IMG_HORLOGE..Hauteur/2
// couleur des aiguilles
HeureCouleur est un entier = iNoir
MinuteCouleur est un entier = iNoir
SecondeCouleur est un entier = iNoir
// angles des aiguilles
dHang est un réel
dMang est un réel
dSang est un réel
// variable pour le point exterieur de l'aiguille
dHx est un réel
dHy est un réel
dMx est un réel
dMy est un réel
dSx est un réel
dSy est un réel
//Calculer les angles des aiguilles
dHang = (angleMax * (hheur+9))/12
dMang = (angleMax * (heure..Minute+45))/60
dSang = (angleMax * (heure..Seconde+45))/60
// raprochement de l'aiguille des heures si on est pres de l'heure suivante
SI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
// Calculer les extrémités de chaque aiguille
// heures
dHx = mfHlen * Cosinus(dHang)
dHy = mfHlen * Sinus(dHang)
// minutes
dMx = mfMlen * Cosinus(dMang)
dMy = mfMlen * Sinus(dMang)
// secondes
dSx = mfSlen * Cosinus(dSang)
dSy = mfSlen * Sinus(dSang)
// dessiner les aiguilles
dDébutDessin(IMG_HORLOGE)
dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
HeureCouleur,2)
dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
MinuteCouleur,2)
dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
SecondeCouleur,1)
// on relance le timer
timerHorloge = TimerSys("horloge",100)
//----------------------------------------------------------------------------
mettez ce code dans une fenetre avec cette ligne dans le code
d'intialisation
GLOBAL
timerHorloge est un entier
timerHorloge = TimerSys("horloge",100)
Bon dev
@+
Firetox
Bonjour, a tous
pour ceux qui veulent une horloge a aiguille dans leur appli
voici une procedure qui fait ca pas mal
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
//----------------------------------------------------------------------------
PROCEDURE horloge()
Xcentre,yCentre sont des entier
heure est un Heure = HeureSys()
hheur est un entier = heure..Heure
SI hheur > 12 ALORS hheur -= 12
angleMax est un entier = 360
FinTimerSys(timerHorloge)
// longueur des aiguilles en pixel
mfHlen est un entier = 30
mfMlen est un entier = 45
mfSlen est un entier = 50
// centre de l'horloge
Xcentre = IMG_HORLOGE..Largeur/2
yCentre = IMG_HORLOGE..Hauteur/2
// couleur des aiguilles
HeureCouleur est un entier = iNoir
MinuteCouleur est un entier = iNoir
SecondeCouleur est un entier = iNoir
// angles des aiguilles
dHang est un réel
dMang est un réel
dSang est un réel
// variable pour le point exterieur de l'aiguille
dHx est un réel
dHy est un réel
dMx est un réel
dMy est un réel
dSx est un réel
dSy est un réel
//Calculer les angles des aiguilles
dHang = (angleMax * (hheur+9))/12
dMang = (angleMax * (heure..Minute+45))/60
dSang = (angleMax * (heure..Seconde+45))/60
// raprochement de l'aiguille des heures si on est pres de l'heure suivante
SI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
// Calculer les extrémités de chaque aiguille
// heures
dHx = mfHlen * Cosinus(dHang)
dHy = mfHlen * Sinus(dHang)
// minutes
dMx = mfMlen * Cosinus(dMang)
dMy = mfMlen * Sinus(dMang)
// secondes
dSx = mfSlen * Cosinus(dSang)
dSy = mfSlen * Sinus(dSang)
// dessiner les aiguilles
dDébutDessin(IMG_HORLOGE)
dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
HeureCouleur,2)
dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
MinuteCouleur,2)
dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
SecondeCouleur,1)
// on relance le timer
timerHorloge = TimerSys("horloge",100)
//----------------------------------------------------------------------------
mettez ce code dans une fenetre avec cette ligne dans le code
d'intialisation
GLOBAL
timerHorloge est un entier
timerHorloge = TimerSys("horloge",100)
Bon dev
@+
Firetox
vous l'aurez note
[cut]
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
[/cut]
en fond de l'image IMg_horloge vous mettez le cadran pas dans la fenetre
@+
Firetox a écrit :
> Bonjour, a tous
>
> pour ceux qui veulent une horloge a aiguille dans leur appli
> voici une procedure qui fait ca pas mal
>
> il vous faut une fentre et une image appellée IMG_HORLOGE
> en image de fond de cette fenetre trouvez vous un beau cadran sans les
> aiguille et le centre des aiguilles et vous aurez une belle horloge
>
>
>
>
> PROCEDURE horloge()
>
> Xcentre,yCentre sont des entier
> heure est un Heure = HeureSys()
>
> hheur est un entier = heure..Heure
> SI hheur > 12 ALORS hheur -= 12
>
> angleMax est un entier = 360
>
> FinTimerSys(timerHorloge)
>
> // longueur des aiguilles en pixel
> mfHlen est un entier = 30
> mfMlen est un entier = 45
> mfSlen est un entier = 50
>
> // centre de l'horloge
> Xcentre = IMG_HORLOGE..Largeur/2
> yCentre = IMG_HORLOGE..Hauteur/2
>
> // couleur des aiguilles
> HeureCouleur est un entier = iNoir
> MinuteCouleur est un entier = iNoir
> SecondeCouleur est un entier = iNoir
>
> // angles des aiguilles
> dHang est un réel
> dMang est un réel
> dSang est un réel
>
> // variable pour le point exterieur de l'aiguille
> dHx est un réel
> dHy est un réel
>
> dMx est un réel
> dMy est un réel
>
> dSx est un réel
> dSy est un réel
>
> //Calculer les angles des aiguilles
> dHang = (angleMax * (hheur+9))/12
> dMang = (angleMax * (heure..Minute+45))/60
> dSang = (angleMax * (heure..Seconde+45))/60
>
> // raprochement de l'aiguille des heures si on est pres de l'heure
> SI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
>
> // Calculer les extrémités de chaque aiguille
> // heures
> dHx = mfHlen * Cosinus(dHang)
> dHy = mfHlen * Sinus(dHang)
>
> // minutes
> dMx = mfMlen * Cosinus(dMang)
> dMy = mfMlen * Sinus(dMang)
>
> // secondes
> dSx = mfSlen * Cosinus(dSang)
> dSy = mfSlen * Sinus(dSang)
>
> // dessiner les aiguilles
> dDébutDessin(IMG_HORLOGE)
> dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
> dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
> HeureCouleur,2)
> dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
> MinuteCouleur,2)
> dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
> SecondeCouleur,1)
>
> // on relance le timer
> timerHorloge = TimerSys("horloge",100)
>
>
>
> mettez ce code dans une fenetre avec cette ligne dans le code
> d'intialisation
>
> GLOBAL
> timerHorloge est un entier
>
> timerHorloge = TimerSys("horloge",100)
>
>
>
> Bon dev
> @+
>
> Firetox
>
vous l'aurez note
[cut]
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
[/cut]
en fond de l'image IMg_horloge vous mettez le cadran pas dans la fenetre
@+
Firetox a écrit :
> Bonjour, a tous
>
> pour ceux qui veulent une horloge a aiguille dans leur appli
> voici une procedure qui fait ca pas mal
>
> il vous faut une fentre et une image appellée IMG_HORLOGE
> en image de fond de cette fenetre trouvez vous un beau cadran sans les
> aiguille et le centre des aiguilles et vous aurez une belle horloge
>
>
>
>
> PROCEDURE horloge()
>
> Xcentre,yCentre sont des entier
> heure est un Heure = HeureSys()
>
> hheur est un entier = heure..Heure
> SI hheur > 12 ALORS hheur -= 12
>
> angleMax est un entier = 360
>
> FinTimerSys(timerHorloge)
>
> // longueur des aiguilles en pixel
> mfHlen est un entier = 30
> mfMlen est un entier = 45
> mfSlen est un entier = 50
>
> // centre de l'horloge
> Xcentre = IMG_HORLOGE..Largeur/2
> yCentre = IMG_HORLOGE..Hauteur/2
>
> // couleur des aiguilles
> HeureCouleur est un entier = iNoir
> MinuteCouleur est un entier = iNoir
> SecondeCouleur est un entier = iNoir
>
> // angles des aiguilles
> dHang est un réel
> dMang est un réel
> dSang est un réel
>
> // variable pour le point exterieur de l'aiguille
> dHx est un réel
> dHy est un réel
>
> dMx est un réel
> dMy est un réel
>
> dSx est un réel
> dSy est un réel
>
> //Calculer les angles des aiguilles
> dHang = (angleMax * (hheur+9))/12
> dMang = (angleMax * (heure..Minute+45))/60
> dSang = (angleMax * (heure..Seconde+45))/60
>
> // raprochement de l'aiguille des heures si on est pres de l'heure
> SI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
>
> // Calculer les extrémités de chaque aiguille
> // heures
> dHx = mfHlen * Cosinus(dHang)
> dHy = mfHlen * Sinus(dHang)
>
> // minutes
> dMx = mfMlen * Cosinus(dMang)
> dMy = mfMlen * Sinus(dMang)
>
> // secondes
> dSx = mfSlen * Cosinus(dSang)
> dSy = mfSlen * Sinus(dSang)
>
> // dessiner les aiguilles
> dDébutDessin(IMG_HORLOGE)
> dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
> dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
> HeureCouleur,2)
> dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
> MinuteCouleur,2)
> dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
> SecondeCouleur,1)
>
> // on relance le timer
> timerHorloge = TimerSys("horloge",100)
>
>
>
> mettez ce code dans une fenetre avec cette ligne dans le code
> d'intialisation
>
> GLOBAL
> timerHorloge est un entier
>
> timerHorloge = TimerSys("horloge",100)
>
>
>
> Bon dev
> @+
>
> Firetox
>
vous l'aurez note
[cut]
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
[/cut]
en fond de l'image IMg_horloge vous mettez le cadran pas dans la fenetre
@+
Firetox a écrit :
> Bonjour, a tous
>
> pour ceux qui veulent une horloge a aiguille dans leur appli
> voici une procedure qui fait ca pas mal
>
> il vous faut une fentre et une image appellée IMG_HORLOGE
> en image de fond de cette fenetre trouvez vous un beau cadran sans les
> aiguille et le centre des aiguilles et vous aurez une belle horloge
>
>
>
>
> PROCEDURE horloge()
>
> Xcentre,yCentre sont des entier
> heure est un Heure = HeureSys()
>
> hheur est un entier = heure..Heure
> SI hheur > 12 ALORS hheur -= 12
>
> angleMax est un entier = 360
>
> FinTimerSys(timerHorloge)
>
> // longueur des aiguilles en pixel
> mfHlen est un entier = 30
> mfMlen est un entier = 45
> mfSlen est un entier = 50
>
> // centre de l'horloge
> Xcentre = IMG_HORLOGE..Largeur/2
> yCentre = IMG_HORLOGE..Hauteur/2
>
> // couleur des aiguilles
> HeureCouleur est un entier = iNoir
> MinuteCouleur est un entier = iNoir
> SecondeCouleur est un entier = iNoir
>
> // angles des aiguilles
> dHang est un réel
> dMang est un réel
> dSang est un réel
>
> // variable pour le point exterieur de l'aiguille
> dHx est un réel
> dHy est un réel
>
> dMx est un réel
> dMy est un réel
>
> dSx est un réel
> dSy est un réel
>
> //Calculer les angles des aiguilles
> dHang = (angleMax * (hheur+9))/12
> dMang = (angleMax * (heure..Minute+45))/60
> dSang = (angleMax * (heure..Seconde+45))/60
>
> // raprochement de l'aiguille des heures si on est pres de l'heure
> SI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
>
> // Calculer les extrémités de chaque aiguille
> // heures
> dHx = mfHlen * Cosinus(dHang)
> dHy = mfHlen * Sinus(dHang)
>
> // minutes
> dMx = mfMlen * Cosinus(dMang)
> dMy = mfMlen * Sinus(dMang)
>
> // secondes
> dSx = mfSlen * Cosinus(dSang)
> dSy = mfSlen * Sinus(dSang)
>
> // dessiner les aiguilles
> dDébutDessin(IMG_HORLOGE)
> dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
> dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
> HeureCouleur,2)
> dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
> MinuteCouleur,2)
> dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
> SecondeCouleur,1)
>
> // on relance le timer
> timerHorloge = TimerSys("horloge",100)
>
>
>
> mettez ce code dans une fenetre avec cette ligne dans le code
> d'intialisation
>
> GLOBAL
> timerHorloge est un entier
>
> timerHorloge = TimerSys("horloge",100)
>
>
>
> Bon dev
> @+
>
> Firetox
>
Bonsoir,
Sympa ça !
C'est exactement ce que je cherche depuis qq jours pour mettre dans un
projet !
Grand Merci, je vais tester..
--
Cordialement,
André STASZEWSKI
(Gratuit) Photo Visu 4.0 sur www.PhotoVisu.visit-page.com
Pour me contacter cliquez ici : http://cerbermail.com/?OT0Wnwyzph
"Firetox" a écrit dans le message de news:
47430bb5$0$27385$vous l'aurez note
[cut]
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
[/cut]
en fond de l'image IMg_horloge vous mettez le cadran pas dans la fenetre
@+
Firetox a écrit :Bonjour, a tous
pour ceux qui veulent une horloge a aiguille dans leur appli
voici une procedure qui fait ca pas mal
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
//--------------------------------------------------------------------------
--
PROCEDURE horloge()
Xcentre,yCentre sont des entier
heure est un Heure = HeureSys()
hheur est un entier = heure..Heure
SI hheur > 12 ALORS hheur -= 12
angleMax est un entier = 360
FinTimerSys(timerHorloge)
// longueur des aiguilles en pixel
mfHlen est un entier = 30
mfMlen est un entier = 45
mfSlen est un entier = 50
// centre de l'horloge
Xcentre = IMG_HORLOGE..Largeur/2
yCentre = IMG_HORLOGE..Hauteur/2
// couleur des aiguilles
HeureCouleur est un entier = iNoir
MinuteCouleur est un entier = iNoir
SecondeCouleur est un entier = iNoir
// angles des aiguilles
dHang est un réel
dMang est un réel
dSang est un réel
// variable pour le point exterieur de l'aiguille
dHx est un réel
dHy est un réel
dMx est un réel
dMy est un réel
dSx est un réel
dSy est un réel
//Calculer les angles des aiguilles
dHang = (angleMax * (hheur+9))/12
dMang = (angleMax * (heure..Minute+45))/60
dSang = (angleMax * (heure..Seconde+45))/60
// raprochement de l'aiguille des heures si on est pres de l'heure
suivanteSI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
// Calculer les extrémités de chaque aiguille
// heures
dHx = mfHlen * Cosinus(dHang)
dHy = mfHlen * Sinus(dHang)
// minutes
dMx = mfMlen * Cosinus(dMang)
dMy = mfMlen * Sinus(dMang)
// secondes
dSx = mfSlen * Cosinus(dSang)
dSy = mfSlen * Sinus(dSang)
// dessiner les aiguilles
dDébutDessin(IMG_HORLOGE)
dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
HeureCouleur,2)
dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
MinuteCouleur,2)
dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
SecondeCouleur,1)
// on relance le timer
timerHorloge = TimerSys("horloge",100)
//--------------------------------------------------------------------------
--
mettez ce code dans une fenetre avec cette ligne dans le code
d'intialisation
GLOBAL
timerHorloge est un entier
timerHorloge = TimerSys("horloge",100)
Bon dev
@+
Firetox
Bonsoir,
Sympa ça !
C'est exactement ce que je cherche depuis qq jours pour mettre dans un
projet !
Grand Merci, je vais tester..
--
Cordialement,
André STASZEWSKI
(Gratuit) Photo Visu 4.0 sur www.PhotoVisu.visit-page.com
Pour me contacter cliquez ici : http://cerbermail.com/?OT0Wnwyzph
"Firetox" <firetox@SQLManagerX.com> a écrit dans le message de news:
47430bb5$0$27385$ba4acef3@news.orange.fr...
vous l'aurez note
[cut]
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
[/cut]
en fond de l'image IMg_horloge vous mettez le cadran pas dans la fenetre
@+
Firetox a écrit :
Bonjour, a tous
pour ceux qui veulent une horloge a aiguille dans leur appli
voici une procedure qui fait ca pas mal
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
//--------------------------------------------------------------------------
--
PROCEDURE horloge()
Xcentre,yCentre sont des entier
heure est un Heure = HeureSys()
hheur est un entier = heure..Heure
SI hheur > 12 ALORS hheur -= 12
angleMax est un entier = 360
FinTimerSys(timerHorloge)
// longueur des aiguilles en pixel
mfHlen est un entier = 30
mfMlen est un entier = 45
mfSlen est un entier = 50
// centre de l'horloge
Xcentre = IMG_HORLOGE..Largeur/2
yCentre = IMG_HORLOGE..Hauteur/2
// couleur des aiguilles
HeureCouleur est un entier = iNoir
MinuteCouleur est un entier = iNoir
SecondeCouleur est un entier = iNoir
// angles des aiguilles
dHang est un réel
dMang est un réel
dSang est un réel
// variable pour le point exterieur de l'aiguille
dHx est un réel
dHy est un réel
dMx est un réel
dMy est un réel
dSx est un réel
dSy est un réel
//Calculer les angles des aiguilles
dHang = (angleMax * (hheur+9))/12
dMang = (angleMax * (heure..Minute+45))/60
dSang = (angleMax * (heure..Seconde+45))/60
// raprochement de l'aiguille des heures si on est pres de l'heure
suivante
SI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
// Calculer les extrémités de chaque aiguille
// heures
dHx = mfHlen * Cosinus(dHang)
dHy = mfHlen * Sinus(dHang)
// minutes
dMx = mfMlen * Cosinus(dMang)
dMy = mfMlen * Sinus(dMang)
// secondes
dSx = mfSlen * Cosinus(dSang)
dSy = mfSlen * Sinus(dSang)
// dessiner les aiguilles
dDébutDessin(IMG_HORLOGE)
dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
HeureCouleur,2)
dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
MinuteCouleur,2)
dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
SecondeCouleur,1)
// on relance le timer
timerHorloge = TimerSys("horloge",100)
//--------------------------------------------------------------------------
--
mettez ce code dans une fenetre avec cette ligne dans le code
d'intialisation
GLOBAL
timerHorloge est un entier
timerHorloge = TimerSys("horloge",100)
Bon dev
@+
Firetox
Bonsoir,
Sympa ça !
C'est exactement ce que je cherche depuis qq jours pour mettre dans un
projet !
Grand Merci, je vais tester..
--
Cordialement,
André STASZEWSKI
(Gratuit) Photo Visu 4.0 sur www.PhotoVisu.visit-page.com
Pour me contacter cliquez ici : http://cerbermail.com/?OT0Wnwyzph
"Firetox" a écrit dans le message de news:
47430bb5$0$27385$vous l'aurez note
[cut]
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
[/cut]
en fond de l'image IMg_horloge vous mettez le cadran pas dans la fenetre
@+
Firetox a écrit :Bonjour, a tous
pour ceux qui veulent une horloge a aiguille dans leur appli
voici une procedure qui fait ca pas mal
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
//--------------------------------------------------------------------------
--
PROCEDURE horloge()
Xcentre,yCentre sont des entier
heure est un Heure = HeureSys()
hheur est un entier = heure..Heure
SI hheur > 12 ALORS hheur -= 12
angleMax est un entier = 360
FinTimerSys(timerHorloge)
// longueur des aiguilles en pixel
mfHlen est un entier = 30
mfMlen est un entier = 45
mfSlen est un entier = 50
// centre de l'horloge
Xcentre = IMG_HORLOGE..Largeur/2
yCentre = IMG_HORLOGE..Hauteur/2
// couleur des aiguilles
HeureCouleur est un entier = iNoir
MinuteCouleur est un entier = iNoir
SecondeCouleur est un entier = iNoir
// angles des aiguilles
dHang est un réel
dMang est un réel
dSang est un réel
// variable pour le point exterieur de l'aiguille
dHx est un réel
dHy est un réel
dMx est un réel
dMy est un réel
dSx est un réel
dSy est un réel
//Calculer les angles des aiguilles
dHang = (angleMax * (hheur+9))/12
dMang = (angleMax * (heure..Minute+45))/60
dSang = (angleMax * (heure..Seconde+45))/60
// raprochement de l'aiguille des heures si on est pres de l'heure
suivanteSI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
// Calculer les extrémités de chaque aiguille
// heures
dHx = mfHlen * Cosinus(dHang)
dHy = mfHlen * Sinus(dHang)
// minutes
dMx = mfMlen * Cosinus(dMang)
dMy = mfMlen * Sinus(dMang)
// secondes
dSx = mfSlen * Cosinus(dSang)
dSy = mfSlen * Sinus(dSang)
// dessiner les aiguilles
dDébutDessin(IMG_HORLOGE)
dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
HeureCouleur,2)
dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
MinuteCouleur,2)
dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
SecondeCouleur,1)
// on relance le timer
timerHorloge = TimerSys("horloge",100)
//--------------------------------------------------------------------------
--
mettez ce code dans une fenetre avec cette ligne dans le code
d'intialisation
GLOBAL
timerHorloge est un entier
timerHorloge = TimerSys("horloge",100)
Bon dev
@+
Firetox
STASZEWSKI André a écrit :Bonsoir,
Sympa ça !
C'est exactement ce que je cherche depuis qq jours pour mettre dans un
projet !
Tu n'as pas dû chercher très longtemps car sur le forum de l'éditeur tu
as un exemple de code qui vient de Maax°51° que je te copie ci-dessous
///////////////////////////////////////////////////
Salut,
Voici un code tiré d'un exemple LST qui utilisait une fenêtre interne
pour dessiner l'heure dans différentes villes du monde :
Il faut : un champ image et une image d'horloge affichée dedans :
Appeler la procédure suivante dans un timer lancé toutes les secondes :
PROCEDURE AfficheHeure(sChampImage, bAfficheSecondes = Faux)
hHeure est une Heure
nHeure est un entier
nMinute est un entier
nSeconde est un entier
nAngleHeure est un entier
nAngleMinute est un entier
nAngleSeconde est un entier
nLargeur est un entier
nHauteur est un entier
// Récupère l'heure
hHeure = Maintenant()
// Récupère les heure et minute
nHeure = hHeure..Heure
nMinute = hHeure..Minute
nSeconde = hHeure..Seconde
// Récupère les dimensions du champ
nLargeur = {sChampImage, indChamp}..Largeur
nHauteur = {sChampImage, indChamp}..Hauteur
SI nLargeur < nHauteur ALORS nHauteur = nLargeur
SI nHauteur < nLargeur ALORS nLargeur = nHauteur
// Démarre le dessin
dFinDessin(sChampImage)
dDébutDessin(sChampImage, dEffacer)
nCouleur est un entier = RVB(14,47,118)
// L'heure doit être passée en format 12:00
SI nHeure > 12 ALORS nHeure -= 12
// Calcule l'angle
nAngleHeure = nHeure * (360 / 12) - 90
nAngleMinute = nMinute * (360 / 60) - 90
nAngleSeconde = nSeconde * (360 / 60) - 90
// Calcule le point central
nX est un entier = nLargeur / 2 + 5
nY est un entier = nHauteur / 2
// Calcule le point X,Y de l'heure
nHX est un entier = nX + 2 + (Cosinus(nAngleHeure) * (nX - (nLargeur/4)))
nHY est un entier = nY + 2 +(Sinus(nAngleHeure) * (nY - (nLargeur/4)))
// Calcule le point X,Y de la minute
nMX est un entier = nX + 2 +(Cosinus(nAngleMinute) * (nX - (nLargeur/5)))
nMY est un entier = nY + 2 +(Sinus(nAngleMinute) * (nY - (nLargeur/5)))
// Calcule le point X,Y de la seconde
nSX est un entier = nX + 2 +(Cosinus(nAngleSeconde) * (nX - (nLargeur/6)))
nSY est un entier = nY + 2 +(Sinus(nAngleSeconde) * (nY - (nLargeur/6)))
SI bAfficheSecondes ALORS
// Dessine l'aiguille des secondes
dLigne(nX, nY, nSX, nSY, iGrisFonce, (nLargeur/50)) FIN
// Dessine l'aiguille des minutes
dLigne(nX, nY, nMX, nMY, iGrisFonce, (nLargeur/30))
// Dessine l'aiguille de l'heure
dLigne(nX, nY, nHX, nHY, nCouleur, (nLargeur/40))
// Dessine le centre de l'horloge
dCercle(nX - 2, nY - 2, nX + 4, nY + 4, iNoir, nCouleur)
///////////////////////////////////////////////////////Grand Merci, je vais tester..
--
Cordialement,
André STASZEWSKI
(Gratuit) Photo Visu 4.0 sur www.PhotoVisu.visit-page.com
Pour me contacter cliquez ici : http://cerbermail.com/?OT0Wnwyzph
"Firetox" a écrit dans le message de news:
47430bb5$0$27385$vous l'aurez note
[cut]
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
[/cut]
en fond de l'image IMg_horloge vous mettez le cadran pas dans la fenetre
@+
Firetox a écrit :Bonjour, a tous
pour ceux qui veulent une horloge a aiguille dans leur appli
voici une procedure qui fait ca pas mal
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
//--------------------------------------------------------------------------
--
PROCEDURE horloge()
Xcentre,yCentre sont des entier
heure est un Heure = HeureSys()
hheur est un entier = heure..Heure
SI hheur > 12 ALORS hheur -= 12
angleMax est un entier = 360
FinTimerSys(timerHorloge)
// longueur des aiguilles en pixel
mfHlen est un entier = 30
mfMlen est un entier = 45
mfSlen est un entier = 50
// centre de l'horloge
Xcentre = IMG_HORLOGE..Largeur/2
yCentre = IMG_HORLOGE..Hauteur/2
// couleur des aiguilles
HeureCouleur est un entier = iNoir
MinuteCouleur est un entier = iNoir
SecondeCouleur est un entier = iNoir
// angles des aiguilles
dHang est un réel
dMang est un réel
dSang est un réel
// variable pour le point exterieur de l'aiguille
dHx est un réel
dHy est un réel
dMx est un réel
dMy est un réel
dSx est un réel
dSy est un réel
//Calculer les angles des aiguilles
dHang = (angleMax * (hheur+9))/12
dMang = (angleMax * (heure..Minute+45))/60
dSang = (angleMax * (heure..Seconde+45))/60
// raprochement de l'aiguille des heures si on est pres de l'heure
suivanteSI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
// Calculer les extrémités de chaque aiguille
// heures
dHx = mfHlen * Cosinus(dHang)
dHy = mfHlen * Sinus(dHang)
// minutes
dMx = mfMlen * Cosinus(dMang)
dMy = mfMlen * Sinus(dMang)
// secondes
dSx = mfSlen * Cosinus(dSang)
dSy = mfSlen * Sinus(dSang)
// dessiner les aiguilles
dDébutDessin(IMG_HORLOGE)
dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
HeureCouleur,2)
dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
MinuteCouleur,2)
dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
SecondeCouleur,1)
// on relance le timer
timerHorloge = TimerSys("horloge",100)
//--------------------------------------------------------------------------
--
mettez ce code dans une fenetre avec cette ligne dans le code
d'intialisation
GLOBAL
timerHorloge est un entier
timerHorloge = TimerSys("horloge",100)
Bon dev
@+
Firetox
STASZEWSKI André a écrit :
Bonsoir,
Sympa ça !
C'est exactement ce que je cherche depuis qq jours pour mettre dans un
projet !
Tu n'as pas dû chercher très longtemps car sur le forum de l'éditeur tu
as un exemple de code qui vient de Maax°51° que je te copie ci-dessous
///////////////////////////////////////////////////
Salut,
Voici un code tiré d'un exemple LST qui utilisait une fenêtre interne
pour dessiner l'heure dans différentes villes du monde :
Il faut : un champ image et une image d'horloge affichée dedans :
Appeler la procédure suivante dans un timer lancé toutes les secondes :
PROCEDURE AfficheHeure(sChampImage, bAfficheSecondes = Faux)
hHeure est une Heure
nHeure est un entier
nMinute est un entier
nSeconde est un entier
nAngleHeure est un entier
nAngleMinute est un entier
nAngleSeconde est un entier
nLargeur est un entier
nHauteur est un entier
// Récupère l'heure
hHeure = Maintenant()
// Récupère les heure et minute
nHeure = hHeure..Heure
nMinute = hHeure..Minute
nSeconde = hHeure..Seconde
// Récupère les dimensions du champ
nLargeur = {sChampImage, indChamp}..Largeur
nHauteur = {sChampImage, indChamp}..Hauteur
SI nLargeur < nHauteur ALORS nHauteur = nLargeur
SI nHauteur < nLargeur ALORS nLargeur = nHauteur
// Démarre le dessin
dFinDessin(sChampImage)
dDébutDessin(sChampImage, dEffacer)
nCouleur est un entier = RVB(14,47,118)
// L'heure doit être passée en format 12:00
SI nHeure > 12 ALORS nHeure -= 12
// Calcule l'angle
nAngleHeure = nHeure * (360 / 12) - 90
nAngleMinute = nMinute * (360 / 60) - 90
nAngleSeconde = nSeconde * (360 / 60) - 90
// Calcule le point central
nX est un entier = nLargeur / 2 + 5
nY est un entier = nHauteur / 2
// Calcule le point X,Y de l'heure
nHX est un entier = nX + 2 + (Cosinus(nAngleHeure) * (nX - (nLargeur/4)))
nHY est un entier = nY + 2 +(Sinus(nAngleHeure) * (nY - (nLargeur/4)))
// Calcule le point X,Y de la minute
nMX est un entier = nX + 2 +(Cosinus(nAngleMinute) * (nX - (nLargeur/5)))
nMY est un entier = nY + 2 +(Sinus(nAngleMinute) * (nY - (nLargeur/5)))
// Calcule le point X,Y de la seconde
nSX est un entier = nX + 2 +(Cosinus(nAngleSeconde) * (nX - (nLargeur/6)))
nSY est un entier = nY + 2 +(Sinus(nAngleSeconde) * (nY - (nLargeur/6)))
SI bAfficheSecondes ALORS
// Dessine l'aiguille des secondes
dLigne(nX, nY, nSX, nSY, iGrisFonce, (nLargeur/50)) FIN
// Dessine l'aiguille des minutes
dLigne(nX, nY, nMX, nMY, iGrisFonce, (nLargeur/30))
// Dessine l'aiguille de l'heure
dLigne(nX, nY, nHX, nHY, nCouleur, (nLargeur/40))
// Dessine le centre de l'horloge
dCercle(nX - 2, nY - 2, nX + 4, nY + 4, iNoir, nCouleur)
///////////////////////////////////////////////////////
Grand Merci, je vais tester..
--
Cordialement,
André STASZEWSKI
(Gratuit) Photo Visu 4.0 sur www.PhotoVisu.visit-page.com
Pour me contacter cliquez ici : http://cerbermail.com/?OT0Wnwyzph
"Firetox" <firetox@SQLManagerX.com> a écrit dans le message de news:
47430bb5$0$27385$ba4acef3@news.orange.fr...
vous l'aurez note
[cut]
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
[/cut]
en fond de l'image IMg_horloge vous mettez le cadran pas dans la fenetre
@+
Firetox a écrit :
Bonjour, a tous
pour ceux qui veulent une horloge a aiguille dans leur appli
voici une procedure qui fait ca pas mal
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
//--------------------------------------------------------------------------
--
PROCEDURE horloge()
Xcentre,yCentre sont des entier
heure est un Heure = HeureSys()
hheur est un entier = heure..Heure
SI hheur > 12 ALORS hheur -= 12
angleMax est un entier = 360
FinTimerSys(timerHorloge)
// longueur des aiguilles en pixel
mfHlen est un entier = 30
mfMlen est un entier = 45
mfSlen est un entier = 50
// centre de l'horloge
Xcentre = IMG_HORLOGE..Largeur/2
yCentre = IMG_HORLOGE..Hauteur/2
// couleur des aiguilles
HeureCouleur est un entier = iNoir
MinuteCouleur est un entier = iNoir
SecondeCouleur est un entier = iNoir
// angles des aiguilles
dHang est un réel
dMang est un réel
dSang est un réel
// variable pour le point exterieur de l'aiguille
dHx est un réel
dHy est un réel
dMx est un réel
dMy est un réel
dSx est un réel
dSy est un réel
//Calculer les angles des aiguilles
dHang = (angleMax * (hheur+9))/12
dMang = (angleMax * (heure..Minute+45))/60
dSang = (angleMax * (heure..Seconde+45))/60
// raprochement de l'aiguille des heures si on est pres de l'heure
suivante
SI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
// Calculer les extrémités de chaque aiguille
// heures
dHx = mfHlen * Cosinus(dHang)
dHy = mfHlen * Sinus(dHang)
// minutes
dMx = mfMlen * Cosinus(dMang)
dMy = mfMlen * Sinus(dMang)
// secondes
dSx = mfSlen * Cosinus(dSang)
dSy = mfSlen * Sinus(dSang)
// dessiner les aiguilles
dDébutDessin(IMG_HORLOGE)
dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
HeureCouleur,2)
dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
MinuteCouleur,2)
dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
SecondeCouleur,1)
// on relance le timer
timerHorloge = TimerSys("horloge",100)
//--------------------------------------------------------------------------
--
mettez ce code dans une fenetre avec cette ligne dans le code
d'intialisation
GLOBAL
timerHorloge est un entier
timerHorloge = TimerSys("horloge",100)
Bon dev
@+
Firetox
STASZEWSKI André a écrit :Bonsoir,
Sympa ça !
C'est exactement ce que je cherche depuis qq jours pour mettre dans un
projet !
Tu n'as pas dû chercher très longtemps car sur le forum de l'éditeur tu
as un exemple de code qui vient de Maax°51° que je te copie ci-dessous
///////////////////////////////////////////////////
Salut,
Voici un code tiré d'un exemple LST qui utilisait une fenêtre interne
pour dessiner l'heure dans différentes villes du monde :
Il faut : un champ image et une image d'horloge affichée dedans :
Appeler la procédure suivante dans un timer lancé toutes les secondes :
PROCEDURE AfficheHeure(sChampImage, bAfficheSecondes = Faux)
hHeure est une Heure
nHeure est un entier
nMinute est un entier
nSeconde est un entier
nAngleHeure est un entier
nAngleMinute est un entier
nAngleSeconde est un entier
nLargeur est un entier
nHauteur est un entier
// Récupère l'heure
hHeure = Maintenant()
// Récupère les heure et minute
nHeure = hHeure..Heure
nMinute = hHeure..Minute
nSeconde = hHeure..Seconde
// Récupère les dimensions du champ
nLargeur = {sChampImage, indChamp}..Largeur
nHauteur = {sChampImage, indChamp}..Hauteur
SI nLargeur < nHauteur ALORS nHauteur = nLargeur
SI nHauteur < nLargeur ALORS nLargeur = nHauteur
// Démarre le dessin
dFinDessin(sChampImage)
dDébutDessin(sChampImage, dEffacer)
nCouleur est un entier = RVB(14,47,118)
// L'heure doit être passée en format 12:00
SI nHeure > 12 ALORS nHeure -= 12
// Calcule l'angle
nAngleHeure = nHeure * (360 / 12) - 90
nAngleMinute = nMinute * (360 / 60) - 90
nAngleSeconde = nSeconde * (360 / 60) - 90
// Calcule le point central
nX est un entier = nLargeur / 2 + 5
nY est un entier = nHauteur / 2
// Calcule le point X,Y de l'heure
nHX est un entier = nX + 2 + (Cosinus(nAngleHeure) * (nX - (nLargeur/4)))
nHY est un entier = nY + 2 +(Sinus(nAngleHeure) * (nY - (nLargeur/4)))
// Calcule le point X,Y de la minute
nMX est un entier = nX + 2 +(Cosinus(nAngleMinute) * (nX - (nLargeur/5)))
nMY est un entier = nY + 2 +(Sinus(nAngleMinute) * (nY - (nLargeur/5)))
// Calcule le point X,Y de la seconde
nSX est un entier = nX + 2 +(Cosinus(nAngleSeconde) * (nX - (nLargeur/6)))
nSY est un entier = nY + 2 +(Sinus(nAngleSeconde) * (nY - (nLargeur/6)))
SI bAfficheSecondes ALORS
// Dessine l'aiguille des secondes
dLigne(nX, nY, nSX, nSY, iGrisFonce, (nLargeur/50)) FIN
// Dessine l'aiguille des minutes
dLigne(nX, nY, nMX, nMY, iGrisFonce, (nLargeur/30))
// Dessine l'aiguille de l'heure
dLigne(nX, nY, nHX, nHY, nCouleur, (nLargeur/40))
// Dessine le centre de l'horloge
dCercle(nX - 2, nY - 2, nX + 4, nY + 4, iNoir, nCouleur)
///////////////////////////////////////////////////////Grand Merci, je vais tester..
--
Cordialement,
André STASZEWSKI
(Gratuit) Photo Visu 4.0 sur www.PhotoVisu.visit-page.com
Pour me contacter cliquez ici : http://cerbermail.com/?OT0Wnwyzph
"Firetox" a écrit dans le message de news:
47430bb5$0$27385$vous l'aurez note
[cut]
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
[/cut]
en fond de l'image IMg_horloge vous mettez le cadran pas dans la fenetre
@+
Firetox a écrit :Bonjour, a tous
pour ceux qui veulent une horloge a aiguille dans leur appli
voici une procedure qui fait ca pas mal
il vous faut une fentre et une image appellée IMG_HORLOGE
en image de fond de cette fenetre trouvez vous un beau cadran sans les
aiguille et le centre des aiguilles et vous aurez une belle horloge
//--------------------------------------------------------------------------
--
PROCEDURE horloge()
Xcentre,yCentre sont des entier
heure est un Heure = HeureSys()
hheur est un entier = heure..Heure
SI hheur > 12 ALORS hheur -= 12
angleMax est un entier = 360
FinTimerSys(timerHorloge)
// longueur des aiguilles en pixel
mfHlen est un entier = 30
mfMlen est un entier = 45
mfSlen est un entier = 50
// centre de l'horloge
Xcentre = IMG_HORLOGE..Largeur/2
yCentre = IMG_HORLOGE..Hauteur/2
// couleur des aiguilles
HeureCouleur est un entier = iNoir
MinuteCouleur est un entier = iNoir
SecondeCouleur est un entier = iNoir
// angles des aiguilles
dHang est un réel
dMang est un réel
dSang est un réel
// variable pour le point exterieur de l'aiguille
dHx est un réel
dHy est un réel
dMx est un réel
dMy est un réel
dSx est un réel
dSy est un réel
//Calculer les angles des aiguilles
dHang = (angleMax * (hheur+9))/12
dMang = (angleMax * (heure..Minute+45))/60
dSang = (angleMax * (heure..Seconde+45))/60
// raprochement de l'aiguille des heures si on est pres de l'heure
suivanteSI heure..Minute >= 15 ALORS dHang += (((heure..Minute+45)/15)*4)
// Calculer les extrémités de chaque aiguille
// heures
dHx = mfHlen * Cosinus(dHang)
dHy = mfHlen * Sinus(dHang)
// minutes
dMx = mfMlen * Cosinus(dMang)
dMy = mfMlen * Sinus(dMang)
// secondes
dSx = mfSlen * Cosinus(dSang)
dSy = mfSlen * Sinus(dSang)
// dessiner les aiguilles
dDébutDessin(IMG_HORLOGE)
dCercle(Xcentre-3,yCentre-3,Xcentre+3,yCentre+3,iNoir,iNoir)
dLigne(Xcentre-(dHx/3), yCentre-(dHy/3),Xcentre+dHx, yCentre+dHy,
HeureCouleur,2)
dLigne(Xcentre-(dMx/3), yCentre-(dMy/3),Xcentre+dMx, yCentre+dMy,
MinuteCouleur,2)
dLigne(Xcentre-(dSx/3), yCentre-(dSy/3),Xcentre+dSx, yCentre+dSy,
SecondeCouleur,1)
// on relance le timer
timerHorloge = TimerSys("horloge",100)
//--------------------------------------------------------------------------
--
mettez ce code dans une fenetre avec cette ligne dans le code
d'intialisation
GLOBAL
timerHorloge est un entier
timerHorloge = TimerSys("horloge",100)
Bon dev
@+
Firetox