Holorge à aiguille en picwin

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 920 fois - Téléchargée 25 fois

Commenter

Contenu du snippet

Comme le titre l'indique il s'agit d'une horloge a aiguille faite dans une picwin.
Le temps est égrener avec un timer 0 1
elle a deux autres fonction :
-compte a rebours
-chronometre
Il y a une possibilité de remise a l'heure manuelle et automatique (a l'heure de l'ordinateur)
On peut rajouter un affichage digitale ( comme sur la capture )
Les heures sont en rouge ainsi que les minutes
les secondes sont en vert

Upadate :
pour lancer l'horloge en mode horloge taper /clock -t
pour lancer l'horloge en mode chronomètre taper /clock -c
pour lancer l'horloge en mode compte a rebours taper /clock -r
(cette derniere fonction n'est pas tout a fait au point)

Source / Exemple :

alias clock { 
  if ( !$hget(t).size ) { hmake t 20 }
  hload -i t horloge.ini h
  if ( $1 = -c) { hadd -m t h 0 | hadd -m t m 0 | hadd -m t s 0 }
  elseif ( $1 = -t ) { exact_h }
  elseif ( $1 = -r ) { 
    var %time = $$?="entrez un temps au format heure:minute:seconde" 
    hadd -m t s $gettok(%time,3,58) 
    hadd -m t m $gettok(%time,2,58) 
    hadd -m t h $iif( $gettok(%time,1,58) < 12 ,$gettok(%time,1,58),$calc($gettok(%time,1,58) -12))
  }
  if ( $window(@horloge)) { clear @horloge }
  else { window -ap @horloge $calc($window(-1).w -218) 0 218 240 }
  put_number | put_h | put_m | put_s | hadd -m t state $1
  var %h = $hget(t,h),%m = $iif($len($hget(t,m)) = 1,0 $+ $hget(t,m),$hget(t,m)),%s = $iif($len($hget(t,s)) = 1,0 $+ $hget(t,s),$hget(t,s))
  set %time $+(%h,:,%m,:,%s)
  .timercercle 0 1 wth2 $1
}

alias wth2 { 
  drawline @horloge 0 0 100 100 $calc(100- 70*$cos($pos.s)) $calc(100- 70*$sin($pos.s))
  if ($1) { goto $1 }
  :-c
  :-t
  hinc t s
  put_s
  draw_aiguille
  if ( $hget(t,s) = 60  ) { hadd -m t s 0 | drawline @horloge 0 0 100 100 $calc(100- 60*$cos($pos.m)) $calc(100- 60*$sin($pos.m)) | hinc t m | put_m }
  if ( $hget(t,m) = 60 ) { hadd -m t m 0 | drawline @horloge 0 0 100 100 $calc(100- 40*$cos($pos.h)) $calc(100- 40*$sin($pos.h)) | hinc t h | if ( $ghet(t,s) != $gettok($time,3,58) ) && ( $1 = -c ) && ( $hget(t,auto) = on ) { exact_h | put_number } | refresh_m | put_m | put_h }
  if ( $hget(t,h) = 13 ) { hadd -m t h 1 | put_number | put_h  }
  goto end
  :-r
  hdec t s
  put_s
  draw_aiguille
  if ( $hget(t,s) = -1  ) { hadd -m t s 59 | drawline @horloge 0 0 100 100 $calc(100- 60*$cos($pos.m)) $calc(100- 60*$sin($pos.m)) | hdec t m | put_m }
  if ( $hget(t,m) = -1 ) { hadd -m t m 59 | drawline @horloge 0 0 100 100 $calc(100- 40*$cos($pos.h)) $calc(100- 40*$sin($pos.h)) | hdec t h | put_m | put_h | refresh_m }
  if ( $hget(t,h) <= 0 ) { hadd -m t h 0 }
  if ( $hget(t,h) = 0 ) && ( $hget(t,m) = 0) && ( $hget(t,s) = 0 ) { echo -a [Horloge] Compte a rembours terminé | .timercercle off | clock -t }
  :end
  if ($hget(t,digit) = on) {
    var %h = $hget(t,h),%m = $iif($len($hget(t,m)) = 1,0 $+ $hget(t,m),$hget(t,m)),%s = $iif($len($hget(t,s)) = 1,0 $+ $hget(t,s),$hget(t,s))
    drawrect @horloge 1 0 76 150 44 12
    drawtext @horloge 0 arial 9 80 150 %time
    drawtext @horloge 1 arial 9 80 150 $+(%h,:,%m,:,%s)
    set %time $+(%h,:,%m,:,%s)
  }
}

alias exact_h { hadd -m t s $gettok($time,3,58) | hadd -m t m $gettok($time,2,58) | hadd -m t h $iif($gettok($time,1,58) <= 12,$ifmatch,$calc($ifmatch -12)) }
alias pos.s { var %itr = 1.5,%i = 2,%r = $iif($hget(t,s) != 0 ,$ifmatch,60) | while ( %i <= %r ) { inc %i | if ( %itr <= 4.7) { inc %itr 0.11 } | else { inc %itr 0.1 } } | return %itr }
alias pos.m { var %itr = 1.5,%i = 2,%r = $iif($hget(t,m) != 0 ,$ifmatch,60) | while ( %i <= %r ) { inc %i | if ( %itr <= 4.7) { inc %itr 0.11 } | else { inc %itr 0.1 } } | return %itr }
alias pos.h { if ( $hget(t,h) = 12) { return 1.5 } | var %itr = 2,%i = 2,%m = $hget(t,h)  | while (%i <= %m ) { inc %i 1 | inc %itr 0.54 } | return %itr }
alias draw_aiguille {
  drawline @horloge 1 0 100 100 $calc(100- 70*$cos($pos.s)) $calc(100- 70*$sin($pos.s))
  drawline @horloge 1 0 100 100 $calc(100- 60*$cos($pos.m)) $calc(100- 60*$sin($pos.m))
  drawline @horloge 1 0 100 100 $calc(100- 40*$cos($pos.h)) $calc(100- 40*$sin($pos.h))
}

alias put_s { 
  var %itr = 1.5,%i = 1,%m = $hget(t,m),%s = $hget(t,s)
  while ( %itr <= 7.7 ) { 
    if ( %i = %m ) || ((%m = 0) && (%s = 1)) { goto end }
    elseif ( %i = $calc(%s -1)) || ( %i = $calc(%s +1)) { drawtext @horloge 1 arial 8 $int($calc(100- (100* $cos(%itr)))) $int($calc(100- (100* $sin(%itr)))) $iif(%i <= 59,%i,0) }
    elseif ( %i = %s) { drawtext @horloge 3 arial 8 $int($calc(100- (100* $cos(%itr)))) $int($calc(100- (100* $sin(%itr)))) $iif(%i <= 59,%i,0) }
    if ( %s = 1 ) { drawtext @horloge 1 arial 8 $int($calc(100- (100* $cos(7.7)))) $int($calc(100- (100* $sin(7.7)))) 0 }
    :end
    inc %i 1
    if ( %itr <= 4.7) { inc %itr 0.11 }
    else { inc %itr 0.1 }
  }
}

alias put_m { 
  var %itr = 1.5,%i = 1,%m = $hget(t,m)
  while ( %itr <= 7.7 ) { 
    if ( %i = $calc(%m -1)) || ( %i = $calc(%m +1)) { drawtext @horloge 1 arial 8 $int($calc(100- (100* $cos(%itr)))) $int($calc(100- (100* $sin(%itr)))) $iif(%i <= 59,%i,0) }
    elseif ( %i = %m) { drawtext @horloge 4 arial 8 $int($calc(100- (100* $cos(%itr)))) $int($calc(100- (100* $sin(%itr)))) $iif(%i <= 59,%i,0) }
    elseif ( %m = 0 ) { drawtext @horloge 4 arial 8 $int($calc(100- (100* $cos(7.7)))) $int($calc(100- (100* $sin(7.7)))) 0  }
    inc %i 1
    if ( %itr <= 4.7) { inc %itr 0.11 }
    else { inc %itr 0.1 }
  }
}

alias put_h { 
  if ( $hget(t,h) = 12) { 
    drawtext @horloge 4 arial 8 $int($calc(100- (80* $cos(1.5)))) $int($calc(100- (80* $sin(1.5)))) 12
    drawtext @horloge 1 arial 8 $int($calc(100- (80* $cos(7.4)))) $int($calc(100- (80* $sin(7.4)))) 11
  }
  else {
    var %itr = 2,%i = 1,%h = $hget(t,h)
    while (%itr <= 7.7) {
      if ( %i = $calc(%h  -1)) || ( %i = $calc(%h +1)) { drawtext @horloge 1 arial 8 $int($calc(100- (80* $cos(%itr)))) $int($calc(100- (80* $sin(%itr)))) %i }
      elseif ( %i = %h) { drawtext @horloge 4 arial 8 $int($calc(100- (80* $cos(%itr)))) $int($calc(100- (80* $sin(%itr)))) %i }
      inc %i 1
      inc %itr 0.54
    }
    drawtext @horloge 1 arial 8 $int($calc(100- (80* $cos(1.5)))) $int($calc(100- (80* $sin(1.5)))) 12
  }
}

alias put_number {
  clear @horloge
  var %itr = 2,%i = 1
  while (%itr <= 7.7) {
    drawtext @horloge 1 arial 8 $int($calc(100- (80* $cos(%itr)))) $int($calc(100- (80* $sin(%itr)))) %i
    inc %i 1
    inc %itr 0.54
  }
  drawtext @horloge 1 arial 8 $int($calc(100- (80* $cos(1.5)))) $int($calc(100- (80* $sin(1.5)))) 12
  refresh_m
}

alias refresh_m { 
  var %itr = 1.5,%i = 1
  while ( %itr <= 7.7 ) { 
    drawtext @horloge 1 arial 8 $int($calc(100- (100* $cos(%itr)))) $int($calc(100- (100* $sin(%itr)))) $iif(%i <= 59,%i,0)
    inc %i 1
    if ( %itr <= 4.7) { inc %itr 0.11 }
    else { inc %itr 0.1 }
  }
}

menu @horloge { 
  Arreter l'horloge : .timercercle off | hsave -i t horloge.ini h | hfree t
  Fermer l'horloge : .timercercle off | window -c @horloge | if ($hget(t).size ) { hsave -i t horloge.ini h | hfree t }
  $iif($hget(t,state) = -t,Mettre a l'heure de l'ordinateur) : exact_h | put_number | put_h | put_m 
  Mode de l'horloge
  .Horloge : clock -t
  .Chronometre : clock -c
  .Compte a rebour : clock -r
  Ecriture Digitale $hget(t,digit)
  .$iif($hget(t,digit) = on,Désactivée,Activé) : { if ( $hget(t,digit) = on ) { hadd -m t digit off | echo -a $hget(t,digit) } | else { hadd -m t digit on | echo -a $hget(t,digit) } }
  $iif($hget(t,state) = -t,Remise a l'heure) 
  .Heure :  { 
    :start1
    var %h = $$?="entrez une heure s'il vous plus entre 0 et 12"
    if (%h > 12) { goto start1 }
    else { hadd -m t m %h }
  }
  .Minute : { 
    :start2
    var %m = $$?="entrez un nombre de minute s'il vous plait entre 0 et 59" 
    if (%m > 59 ) { goto start2 }
    else { hadd -m t m %m }
  }
  .Seconde : {
    :start3
    var %s = $$?="entrez un nombre de seconde s'il vous plait entre 0 et 59" 
    if (%s > 59) { goto start3 }
    else { hadd -m t m %s }
  }
  .Automatique $hget(t,auto)
  ..$iif($hget(t,auto) = on,desactivée,activée) : if ( $hget(t,auto) = on ) { hadd -m t auto off } | else { hadd -m t auto on }
}

Conclusion :

Ce n'est pas réellement un addon, des modules peuven etre ajouter, comme la mise a l'heure en prenant l'heure d'une horloge atomique ( en socket )
ou alors l'utilisation du fomat gmt etc etc

J'ai un enorme problème avec le compte a rebours, je n'arrive pas a éffacéles aiguilles des minutes, c'est assez problématique... :(

je devrais pouvoir regler ça un jour ou l'autre.

Aussi note importante. J'ai mis peu de module parce que la précision de l'horloge diminue avec la longueur de l'alias lancé par le timer. d'ou les sauts de label qui "racoursisseent" le code sans passer par des if trop long.

Donc si vous voulez rajouter des modules a l'horloge prenez garde a ceci.

Update 1:
Dragoon1 m'a fait remarquer la présence de certains bugs. Ils ont été corrigés.

Upadte 2:
Suite aux remarques de PaDa correction des bugs rencontrés.

Ajouter un commentaire Commentaires

Signaler

griffondorr

Messages postés: 427
Date d'inscription: dimanche 6 juillet 2008
Statut: Membre
Dernière intervention: 4 mai 2009

19 sept. 2008 à 23:22

ya un blem que personne a penser je crois , c'est que pour les changement d'horaires de saison, on pourra pas modifié l'heure de l'horloge, quel dommage, mais bon courage ;)

Signaler

topher80220

Messages postés: 2
Date d'inscription: lundi 31 juillet 2006
Statut: Membre
Dernière intervention: 16 février 2007

2 août 2006 à 03:45

jarrive pas a le metre en marche

Signaler

DiSRupTOr

Messages postés: 7
Date d'inscription: mardi 26 juillet 2005
Statut: Membre
Dernière intervention: 14 août 2005

15 août 2005 à 02:02

super original, mais j'ai le même problème que pada

Signaler

DaRk_OsIrIs

Messages postés: 12
Date d'inscription: mardi 23 mars 2004
Statut: Membre
Dernière intervention: 15 avril 2005

15 avril 2005 à 16:16

franchemen c terrible :) c tré original ca nou change dé vieu code :p... 9/10 pr mwa !.. jte mé pa 10/10 pcque il a falu kan mm reglé kelke bugs donc c pa parfait ;)

Signaler

MaX_62

Messages postés: 879
Date d'inscription: vendredi 22 octobre 2004
Statut: Membre
Dernière intervention: 29 juin 2007

15 mars 2005 à 07:58

Excellent !

10/10 pour moi :)

Afficher les 29 commentaires

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Holorge à aiguille en picwin

Contenu du snippet

Source / Exemple :

Conclusion :

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Du même auteur (Kerrigan)

Calendrier perpétuel en picwin

Picwin clipboard et liste de caracteres

Dégradé.h , librairie de degrade.

Cryptage avec un endomorphisme involutif

Source / Exemple :

Conclusion :

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Du même auteur (Kerrigan)

Calendrier perpétuel en picwin

Picwin clipboard et liste de caracteres

Dégradé.h , librairie de degrade.

Cryptage avec un endomorphisme involutif

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !