Page 1 sur 1
[Ex] Afficher l'heure et la date à la manière de Windows 8
Posté : dim. 17 août 2014 09:21
par Dylan
Salut !
Voici une petite application qui pour permet de voir l'heure et la date à la manière de Windows 8, c'est à dire, d'une part en déplaçant votre curseur dans le coin supérieur gauche (en haut à gauche), et d'autre part avec le design de la fenêtre. De plus, l'application est invisible dans la Barre des taches dans le Tray (Appuyez sur Echap si vous voulez quitter).
► Afficher le texteCapture d'écran
► Afficher le texteCode Source
Code : Tout sélectionner
#Include <GUIConstants.Au3>
#Include <GUIConstantsEx.Au3>
#Include <WindowsConstants.Au3>
HotKeySet("{ESC}", _Quitter)
#NoTrayIcon
GUICreate("", 0, 0, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW, $DS_MODALFRAME)
GUISetState(@SW_SHOW)
While 1
$Pos = MouseGetPos()
If $Pos[0] == "0" Then
If $Pos[1] == "0" Then
_Heure()
EndIf
EndIf
WEnd
Func _Heure()
$GUI = GUICreate("", 335, 100, 10, @DesktopHeight-150, $WS_POPUP, $WS_EX_TOOLWINDOW, $DS_MODALFRAME)
GUISetState(@SW_SHOW)
GUISetBkColor("0x250040", $GUI)
$Etat = "OK"
_Afficher()
_Date()
While $Etat <> "KO"
$Pos = MouseGetPos()
If $Pos[0] <> "0" Then $Etat = "KO"
If $Pos[1] <> "0" Then $Etat = "KO"
If $Heure <> @HOUR Then
GUICtrlDelete($Afficher)
_Afficher()
EndIf
If $Minute <> @MIN Then
GUICtrlDelete($Afficher)
_Afficher()
EndIf
WEnd
GUIDelete($GUI)
EndFunc
Func _Afficher()
Global $Heure = @HOUR
Global $Minute = @MIN
Global $Afficher = GUICtrlCreateLabel($Heure & ":" & $Minute, 10, 8, 173, 80)
GUICtrlSetBkColor($Afficher, "0x250040")
GUICtrlSetColor($Afficher, "0xFFFFFF")
GUICtrlSetFont($Afficher, 50, 100, 0, "Century Gothic")
EndFunc
Func _Date()
Global $C = (14-@MON)/12
Global $A = @YEAR-$C
Global $M = @MON+12*$C-2
Global $J = Round(Mod(@YDAY+$A/4-$A/100+$A/400+31*$M/12, 7), 0)
Global $aMois = @MON
If $J = "0" Then Global $Jour = "Lundi"
If $J = "1" Then Global $Jour = "Mardi"
If $J = "2" Then Global $Jour = "Mercredi"
If $J = "3" Then Global $Jour = "Jeudi"
If $J = "4" Then Global $Jour = "Vendredi"
If $J = "5" Then Global $Jour = "Samedi"
If $J = "6" Then Global $Jour = "Dimanche"
If $aMois = "01" Then Global $Mois = "Janvier"
If $aMois = "02" Then Global $Mois = "Fevrier"
If $aMois = "03" Then Global $Mois = "Mars"
If $aMois = "04" Then Global $Mois = "Avril"
If $aMois = "05" Then Global $Mois = "Mai"
If $aMois = "06" Then Global $Mois = "Juin"
If $aMois = "07" Then Global $Mois = "Juiller"
If $aMois = "08" Then Global $Mois = "Août"
If $aMois = "09" Then Global $Mois = "Septembre"
If $aMois = "10" Then Global $Mois = "Octobre"
If $aMois = "11" Then Global $Mois = "Novembre"
If $aMois = "12" Then Global $Mois = "Decembre"
Global $AffJour = GUICtrlCreateLabel($Jour, 190, 23, 100, 20)
GUICtrlSetBkColor($AffJour, "0x250040")
GUICtrlSetColor($AffJour, "0xFFFFFF")
GUICtrlSetFont($AffJour, 14, 100, 0, "Century Gothic")
Global $AffDate = GUICtrlCreateLabel(@MDAY & " " & $Mois, 190, 57, 200, 20)
GUICtrlSetBkColor($AffDate, "0x250040")
GUICtrlSetColor($AffDate, "0xFFFFFF")
GUICtrlSetFont($AffDate, 14, 100, 0, "Century Gothic")
EndFunc
Func _Quitter()
Exit
EndFunc
Télécharger:
https://www.sendspace.com/file/ye6gt1
ASTUCE: En mettant Heure.exe dans le fichier Démarrage (C:\Users\<Nom d'utilisateur>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup), le programme s’exécutera lors du démarrage de Windows
Dylan
Re: [Ex] Afficher l'heure et la date à la manière de Windows
Posté : dim. 17 août 2014 18:19
par orax
Une erreur dans les styles de GUICreate, je n'avais pas de fenêtre qui s'affichait.
Code : Tout sélectionner
$GUI = GUICreate("", 335, 100, 10, @DesktopHeight-150, $WS_POPUP, $WS_EX_TOOLWINDOW, $DS_MODALFRAME)
devient
Code : Tout sélectionner
$GUI = GUICreate("", 335, 100, 0, @DesktopHeight - 100, BitOR($WS_POPUP, $DS_MODALFRAME), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
Re: [Ex] Afficher l'heure et la date à la manière de Windows
Posté : mar. 09 sept. 2014 19:20
par Rancar
Bonsoir,
Rajouter un Sleep() dans la boucle ne serait pas inintéressant car l'appli occupe beaucoup de processeur chez moi ! ^^
Re: [Ex] Afficher l'heure et la date à la manière de Windows
Posté : mar. 09 sept. 2014 21:39
par jchd
Justement, si !
Re: [Ex] Afficher l'heure et la date à la manière de Windows
Posté : mer. 10 sept. 2014 21:23
par timmalos
inintéressant
Re: [Ex] Afficher l'heure et la date à la manière de Windows
Posté : mer. 10 sept. 2014 22:57
par jchd
Exact, mon ophtalmo avait raison.
Re: [Ex] Afficher l'heure et la date à la manière de Windows
Posté : mer. 01 juil. 2015 11:10
par Westcb28
Bonjour,
Merci pour cet exemple de code mais j'ai 3 erreurs dedans sur le fait qu'il manque les 3 variables $Heure + $Minute et $Afficher (Erreur : possibility used before declaration).
Pouvez-vous m'éclairer svp ?
Cdt,
Yann
Re: [Ex] Afficher l'heure et la date à la manière de Windows 8
Posté : lun. 02 mai 2016 16:03
par ricky
Hello,
je suis sous windows 7 x64 (double écran) et ça ne marche pas du tout! Et j'ai essayé sur une machine virtuelle Win 7 32bits, même problème. J'ai essayé avec la modification de Orax!!!
@ Westcb28 : sort la déclaration Global de ces variables de la fonction et mets au début du programme, tu auras plus d'erreur.