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 :wink:

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 :wink:
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 ! :wink: L'affichage de l'heure comme pour Windows :)


Merci quand meme Guy ca va m'etre utile je pense :D

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 :wink:
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 !