Page 1 sur 1
[R] Afficher l'heure et la date !
Posté : ven. 14 déc. 2007 23:55
par MiXS
Bonjour a tous !
Voila suite a un topic precedent j'ai eu envie d'inserrer la date et l'heure dans une GUICreate mais j'ai beau essayer mais ca ne marche pas
Merci de vos réponses

Posté : sam. 15 déc. 2007 01:21
par Guy
Si c'est juste pour afficher la date et l'heure à laquelle tu lances ta GUI
Code : Tout sélectionner
#include <GUIConstants>
#include <Date>
GUICreate ( "Date et heure", 200,200,500,200)
$DateHeure = GUICtrlCreateLabel ( _Now(),10,10)
GUISetState ()
Do
$msg = GUIGetMsg()
; GUICtrlSetData ($DateHeure, _Now())
Until $msg = $GUI_EVENT_CLOSE
Si tu veux quelle se mette à jour, enlèves le commentaire dans la boucle d'exécution.
J'espère que ça aura répondu à ton besoin.
Guy
Posté : sam. 15 déc. 2007 02:25
par MiXS
Merci pour l'info
c'est presque ca mais moi en fait je veut que l'heure s'affiche sur un GUI mais avec les secondes, minutes, heures, jours, mois, année !

L'affichage de l'heure comme pour Windows
Merci quand meme Guy ca va m'etre utile je pense

Posté : sam. 15 déc. 2007 04:08
par arrkhan
Plop,
pense a rajouter un sleep(500) dand la boucle ca sert a rien que ca refresh a toute allure
Posté : sam. 15 déc. 2007 10:49
par Tlem
Pour afficher la date dans le même format que Windows, utilisez la fonction : _DateTimeFormat
Le seul hic, c'est que cette fonction est en Anglais (Pour le nom des jours de la semaine et le nom des mois).
Il vous faudra donc une version Francisée, que vous trouverez
ici ...
Essayez ceci :
Code : Tout sélectionner
#include <DateFr.au3>
MsgBox( 4096, "Pc Long format", _DateTimeFormat( _NowCalc(),1))
Posté : sam. 15 déc. 2007 20:42
par MiXS
Merci Tlem mais j'ai un petit souci il me manque WinAPI.au3 !
Et est-ce que il y a moyen de voir cette heure fonctionner en temps réel ?
Posté : dim. 16 déc. 2007 10:35
par Tlem
MiXS a écrit :mais j'ai un petit souci il me manque WinAPI.au3 !
Réinstaller Autoit et Scite4Autoit :
http://www.autoitscript.fr/viewtopic.php?p=1564#1564
MiXS a écrit :Et est-ce que il y a moyen de voir cette heure fonctionner en temps réel ?
Oui bien sur.
Rajouter dans votre boucle d'attente (While ... Wend) une ligne de code (GUICtrlSetData ...) qui ira rafraîchir la date et l'heure dans votre GUI.
Posté : dim. 16 déc. 2007 14:20
par MiXS
Merci
J'ai fait ca mais ca le lance mais ca n'affiche rien
Code : Tout sélectionner
#include <DateFr.au3>
GUICreate("AFFICHAGE DE L'HEURE",500,500)
While
$date=MsgBox( 4096, "Pc Long format", _DateTimeFormat( _NowCalc(),0))
GUICtrlSetData($date,0)
Sleep(2000)
WEnd
Posté : dim. 16 déc. 2007 14:46
par Tlem
Normal, GUICtrlSetData ne fonctionne pas sur une Msgbox.
Créer plutôt un contrôle du genre GUICtrlCreateLabel pour votre test !
Posté : dim. 16 déc. 2007 16:15
par MiXS
Voila c'est fait mais toujours la meme erreur

il n'affiche rien (l'icone autoit apparait pourtant a coté de l'heure mais rien ne s'affiche)
Code : Tout sélectionner
#include <DateFr.au3>
GUICreate("AFFICHAGE DE L'HEURE",500,500)
While 1
$date=GUICtrlCreateLabel("Pc Long format", _DateTimeFormat( _NowCalc(),0),200,200)
GUICtrlSetData($date,0)
Sleep(5000)
WEnd
Posté : dim. 16 déc. 2007 16:50
par Tlem
Vous devriez lire un peut plus l'aide, et les exemples du forum.
M'enfin bon ...
Code : Tout sélectionner
#include <DateFR.au3>
#include <GUIConstants.au3>
$Form1 = GUICreate("Form1", 250, 100, -1, -1) ; La GUI principale
$Date = GUICtrlCreateLabel(_DateTimeFormat( _NowCalc(),1), 8, 8, 240, 73, $SS_CENTER) ; La date.
GUICtrlSetFont(-1, 14, 800, 0) ; Pour la fonte
$Time = GUICtrlCreateLabel(_DateTimeFormat( _NowCalc(),5), 8, 30, 240, 73, $SS_CENTER) ; L'heure.
GUICtrlSetFont(-1, 24, 800, 0) ; Pour la fonte
GUISetState(@SW_SHOW) ; Pour afficher la GUI
While 1
$nMsg = GUIGetMsg() ; Récupère les évènements GUI
GUICtrlSetData($Date,_DateTimeFormat( _NowCalc(),1)) ; pour mettre à jour la date.
GUICtrlSetData($Time,_DateTimeFormat( _NowCalc(),5)) ; pour mettre à jour l'heure.
Sleep(100) ; Une pause pour éviter de trop solliciter le CPU.
Switch $nMsg ; En fonction de $nMsg, on traitera le Case.
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Posté : dim. 16 déc. 2007 17:04
par MiXS
Ah merci Tlem !