[R] Afficher l'heure et la date !

[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

[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

[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

[arrkhan]

Plop,

pense a rajouter un sleep(500) dand la boucle ca sert a rien que ca refresh a toute allure

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

[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 ?

[Tlem]

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

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.

[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

[Tlem]

Normal, GUICtrlSetData ne fonctionne pas sur une Msgbox.
Créer plutôt un contrôle du genre GUICtrlCreateLabel pour votre test !

[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

[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

 

[MiXS]

Ah merci Tlem !