Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

Affichage de l'heure et de la date à la manière de Windows 8

Voir le sujet précédent Voir le sujet suivant Aller en bas

Affichage de l'heure et de la date à la manière de Windows 8

Message par Dylan Gadacha le Dim 17 Aoû 2014, 01:59

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).

Capture d'écran:
[Vous devez être inscrit et connecté pour voir cette image]

Code Source:

Code:
#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

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 Wink 

Dylan

_________________
[Vous devez être inscrit et connecté pour voir cette image]
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: Affichage de l'heure et de la date à la manière de Windows 8

Message par Sachadee le Dim 17 Aoû 2014, 23:03

Merci Dylan,

Vraiment extra.... 

_________________
@SachaDee
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Re: Affichage de l'heure et de la date à la manière de Windows 8

Message par Dylan Gadacha le Lun 18 Aoû 2014, 02:27

Merci !

_________________
[Vous devez être inscrit et connecté pour voir cette image]
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: Affichage de l'heure et de la date à la manière de Windows 8

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum