1. Accueil
  2. Tous les snippets
  3. Snippets IRC
  4. Holorge à aiguille en picwin

Holorge à aiguille en picwin

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 822 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.

A voir également

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
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
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
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
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
883
Date d'inscription
vendredi 22 octobre 2004
Statut
Membre
Dernière intervention
29 juin 2007
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.

Du même auteur (Kerrigan)