Encore une petite horloge digitale

Sujet: Encore une petite horloge digitale Jeu 21 Jan 2021 - 20:56

Code:: ' Horloge digitale (clic la croix haut/droite pour arrêter)
LABEL Qt
dim f,a$,w,h
w = 30: h = 50: ' dimensions d'un DIGIT1, modulable...
WIDTH 0,8*w+15: HEIGHT 0,h+32: BORDER_SMALL 0: ON_CLOSE 0,Qt: CAPTION 0,":"
LEFT 0,SCREEN_X-WIDTH(0)
FOR f = 1 TO 8: DIGIT1 f: WIDTH f,w: HEIGHT f,h: LEFT f,(f-1)*w: NEXT f
CAPTION 3,"": CAPTION 6,""
f = 0
WHILE f = 0
   a$ = TIME$
   CAPTION 1,LEFT$(a$,1): CAPTION 2,MID$(a$,2,1)
   CAPTION 4,MID$(a$,4,1): CAPTION 5,MID$(a$,5,1)
   CAPTION 7,MID$(a$,7,1): CAPTION 8,MID$(a$,8,1): PAUSE 200
END_WHILE
END
Qt:
  f = 1
RETURN

Encore une petite horloge digitale Horlog10

Je viens juste de découvrir l'objet DIGIT1 ... ce qui simplifie beaucoup la chose !
On peut changer la couleur des chiffres, par exemple en rouge, en mettant dans la boucle
For...next COLOR f,255,0,0
Et on peut évidemment moduler la taille (w, h) et l'emplacement.

Sujet: Re: Encore une petite horloge digitale Jeu 21 Jan 2021 - 21:19

tic tac tic tac...

Merci JL35 du partage !

Je me suis permis d'apporter une petite modification. Sous windows 10, la base des chiffres est tronquée.

J'ai remplacé les instructions ligne 5 : WIDTH 0,8*w+15 et HEIGHT 0,h+32 par

WIDTH 0,width(0) - width_client(0) + 8*w
HEIGHT 0,height(0) - height_client(0) + h

Avec cette modification, peu importe la version d'OS utilisée, le "cadrage" est toujours bon.

Code:: ' Horloge digitale (clic la croix haut/droite pour arrêter)
LABEL Qt
dim f,a$,w,h
w = 30: h = 50: ' dimensions d'un DIGIT1, modulable...
WIDTH 0,width(0) - width_client(0) + 8*w : HEIGHT 0,height(0) - height_client(0) + h
BORDER_SMALL 0: ON_CLOSE 0,Qt: CAPTION 0,":"
LEFT 0,SCREEN_X-WIDTH(0)
FOR f = 1 TO 8: DIGIT1 f: WIDTH f,w: HEIGHT f,h: LEFT f,(f-1)*w: NEXT f
CAPTION 3,"": CAPTION 6,""
f = 0
WHILE f = 0
   a$ = TIME$
   CAPTION 1,LEFT$(a$,1): CAPTION 2,MID$(a$,2,1)
   CAPTION 4,MID$(a$,4,1): CAPTION 5,MID$(a$,5,1)
   CAPTION 7,MID$(a$,7,1): CAPTION 8,MID$(a$,8,1): PAUSE 200
END_WHILE
END
Qt:
  f = 1
RETURN

Sujet: Re: Encore une petite horloge digitale Jeu 21 Jan 2021 - 22:17

Merci Marc pour ta correction, je suis toujours sous W7 et je me fais toujours avoir
avec ces bordures différentes sous W10...

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Voilà, après la mise à jour, c'est la mise à l'heure.
lol!

Sujet: Re: Encore une petite horloge digitale Ven 22 Jan 2021 - 21:53

T'as raison jj, et pour enfoncer encore le clou, sous forme de sub,
positionnable aux 4 coins de l'écran ou même au centre:

Code:: Hide 0
Digit(50,2)
TERMINATE

SUB Digit(h,pos)
' Horloge digitale (clic la bordure pour supprimer)
' h = hauteur des chiffres (pixels)
' pos = position sur l'écran :
' =1 haut/gauche, =2 haut/droite, =3 bas/droite, =4 bas/gauche, =5 centre
IF LABEL("Qt") = 0 THEN LABEL Qt
DIM_LOCAL fm,f,a$,w,bd
bd = 10: ' bordures d'encadrement, en pixels
w = h/1.8
fm = 900: FORM fm: BORDER_HIDE fm: WIDTH fm,8*w+2*bd: HEIGHT fm,h+2*bd
SELECT pos: ' position sur l'écran
CASE 2: LEFT fm,SCREEN_X-WIDTH(fm)
CASE 3: LEFT fm,SCREEN_X-WIDTH(fm): TOP fm,SCREEN_Y-HEIGHT(fm)-28
CASE 4: TOP fm,SCREEN_Y-HEIGHT(fm)-28
CASE 5: TOP fm,(SCREEN_Y-HEIGHT(fm))/2: LEFT fm,(SCREEN_X-WIDTH(fm))/2
END_SELECT
COLOR fm,180,96,0: ON_CLICK fm,Qt
FOR f = fm+1 TO fm+8
DIGIT1 f: PARENT f,fm: TOP f,bd: WIDTH f,w: HEIGHT f,h: LEFT f,bd+(f-fm-1)*w
NEXT f
CAPTION fm+3,"": CAPTION fm+6,""
f = 0
WHILE f = 0
a$ = TIME$
CAPTION fm+1,LEFT$(a$,1): CAPTION fm+2,MID$(a$,2,1)
CAPTION fm+4,MID$(a$,4,1): CAPTION fm+5,MID$(a$,5,1)
CAPTION fm+7,MID$(a$,7,1): CAPTION fm+8,MID$(a$,8,1): PAUSE 300
END_WHILE
DELETE fm: EXIT_SUB
Qt:
f = 1
RETURN
END_SUB

cliquer sur l'encadrement pour la supprimer.

» Une horloge digitale
» Une petite pendulette digitale
» Petite (toute petite) Sub: Dir
» Horloge
» Horloge LED