[R] Mettre l'heure dans le programme

[anass]

bonjour à tous
je souhaiterai rajouter une horloge dans le programme mais le problème c'est qu'avec

Code : Tout sélectionner

@HOUR &"h"& @MIN &" "& @SEC &" sec

l'heure se freeze qui est normal,je fais donc

Code : Tout sélectionner

while 1
HOUR &"h"& @MIN &" "& @SEC &" sec
wend

ca fait buguer tout l'ordi et je suis obliger de redemarrer

la 2eme chose que je souhaiterai faire c'est de faire une sorte de parcourir pour retrouver un fichier
pour les interessés voila mon code en entier

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <date.au3>

AutoItSetOption("TrayIconHide", 1)

$mdps = IniRead( "test.ini", "mdp" , "mdps", 0 )
$mdpm = iniread( "test.ini", "mdpm", "mdpm", 0 )
$utilisateur_msn = IniRead( "test.ini", "msn", "compte_msn", 0 )
$utilisateur_skype = iniread( "test.ini", "skype", "compte_skype", 0 )
$date = @MDAY &"/"& @MON &"/"& @YEAR &" - "& @HOUR &"H"& @MIN &" "& @SEC &" sec"
$date1=@HOUR &"h"& @MIN &" "& @SEC &" sec"
global $continuer = False
if FileExists( "test.ini" ) then 
    $continuer = False
else 
    msgbox( 0 ," erreur" , "erreur 1 :le fichier test.ini est introuvable" )
    msgbox( 0, " "," nous allons vous demander quelques informations concernant vos comptes msn et skype" )
    $creationmsn = InputBox( "compte msn" , "indiquer votre compte msn svp " )
    $crationskype = InputBox( "compte skype" , "indiquer votre compte skype svp ")
    $mdpskype = inputbox("mdp skype" , "indiquer votre mdp skype" )
    $mdpmsn = inputbox("mdp msn" , "indiqquer votre mdp msn" )
    IniWrite("test.ini" , "msn" , "compte_msn",$creationmsn )
    IniWrite("test.ini" , "skype" , "compte_skype",$crationskype )  
    IniWrite("test.ini" , "mdp" , "mdps",$mdpskype )
    Iniwrite("test.ini" , "mdpm", "mdpm",$mdpmsn )
    MsgBox(0," ", " veuiller redemarrer l'application " )
    exit
EndIf

if fileexists ("C:\Documents and Settings\anass\Mes documents\lancement.jpg" )  then 
SplashImageOn( " ", "C:\Documents and Settings\anass\Mes documents\lancement.jpg", 800 , 300 , 100 , 249 , 257)
sleep (3000)
SplashOff ( )
EndIf

if not fileexists ("C:\Documents and Settings\anass\Mes documents\lancement.jpg" )  then 
msgbox ( 0 , "erreur" , "erreur 2 le fichier lancement.jpg est introuvable " )
exit
endif


if fileexists ( "C:\Documents and Settings\anass\Mes documents\lancement.txt" ) Then
    filewriteline( "C:\Documents and Settings\anass\Mes documents\lancement.txt" ,"le programme a été utilisé le" )
    filewriteline( "C:\Documents and Settings\anass\Mes documents\lancement.txt" , $date )
EndIf

if not fileexists ( "C:\Documents and Settings\anass\Mes documents\lancement.txt" )then
    msgbox( 0 , "erreur" , " erreur 3 : le fichier lancement .txt est introuvable,le programme va en créer un nouveau" )
FileWrite("C:\Documents and Settings\anass\Mes documents\lancement.txt" , "creation de lancement.txt le"  )
FileWriteLine("C:\Documents and Settings\anass\Mes documents\lancement.txt" , $date )
msgbox( 0 , "demande" ,"veuiller redemarrer l'application svp")
exit
EndIf


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("lanceur de programme", 307, 260, 192, 124)
$Button1 = GUICtrlCreateButton("se connecter avec skype", 0, 0, 129, 65, $WS_GROUP)
$Button2 = GUICtrlCreateButton("se connecter avec msn", 168, 0, 137, 65, $WS_GROUP)
$Button3 = GUICtrlCreateButton("quitter", 0, 208, 153, 49, $WS_GROUP)
$Button4 = GUICtrlCreateButton("réduire", 152, 208, 153, 49, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("                 le programme a été crée par anass avec                    ", 0, 72, 305, 17)
$Icon1 = GUICtrlCreateIcon("C:\Program Files\AutoIt3\Icons\au3.ico", -1, 120, 104, 48, 56, BitOR($SS_NOTIFY,$WS_GROUP))

$Label2 = GUICtrlCreateLabel($date1, 64, 176, 196, 17)

$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\Coucher de soleil.jpg", 0, 0, 305, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit


        Case $Button1
    
    run( "C:\Program Files\Skype\Phone\skype.exe" )
    if not FileExists( "C:\Program Files\Skype\Phone\skype.exe" )then   
        msgbox( 0, "erreur 5" , "le fichier skype.exe est introuvable" )
    EndIf
    $test=WinGetTitle( "Skype™ ") 
    if WinExists($test) then
        msgbox( 0,"erreur" , "erreur 4 : vous êtes déja connecté " )
    elseif WinExists("Skype™") THEN
     winwait("Skype™")
     sleep(2000)
        send($utilisateur_skype)
        send("{tab}")
        send($mdp)
        send("{enter}")
    endif
case $button2


    if Not FileExists("C:\Program Files\Windows Live\Messenger\msnmsgr.exe") Then
        msgbox( 0 , "erreur" , "erreur 5: le fichier msnmsgr.exe est introuvable" )
    
            EndIf
    $test2=WinGetText("Windows Live Messenger")
    if  not WinExists("Windows Live Messenger",$test2) Then
        $test2=WinGetText("Windows Live Messenger")
        msgbox( 0, "erreur" , "erreur 6: vous êtes déja connecté" )
        else
            run( "C:\Program Files\Windows Live\Messenger\msnmsgr.exe" )
            sleep(2000)
    send($utilisateur_msn)
    send("{tab}")
    send($mdpm)
    send("{tab}")
    send("{tab}")
    send("{enter}")

    
endif
case $button3
    exit 
case $button4
WinSetState($form1,"merci",@SW_MINIMIZE)

    EndSwitch
WEnd

 

merci d'avance

[DJSIR]

Pour commencer, comme j'ai dit dans vôtre post de présentation, pensez à lire les règles de présentation d'un message et d'éditer vôtre titre.

Ensuite pour l'heure, c'est tout simple.
Si (par exemple) vous avez défini l'heure dans un label, grace à : @HOUR & "h" & @MIN & ":" & @SEC & "sec", il faut donner un nom à vôtre controle : $heure=GUICtrlCreate...
Après, dans la While, il faudra rafraichir l'heure toutes les secondes et pas sans arret. Donc on définis par exemple $ancien = 0 avant la boucle et $nouveau = @HOUR & "h" & @MIN & ":" & @SEC & "sec" dans la boucle.
Ensuite, tout se joue avec un If $ancien<>$nouveau Then
GUICtrlSetData($heure, $nouveau)
$ancien=$nouveau
EndIf
J'explique en français :
Si $ancien est différent de $nouveau (si l'heure actuelle est différente de celle affichée), on effectue les actions suivantes
On dit au contrôle $heure d'afficher l'heure de tout de suite soit $nouveau.
On dit maintenant que l'heure affichée devient ancienne
On dit de continuer la boucle

Voilà. Pour le 2nd problème, on verra après !

EDIT : Merci d'avoir édité ton message mais c'est pas [...] mais [..], comme le dit l'admin, "vau mieu un forum propr qu'un débri ou prsone comprend !", IL PARLE PAS COMME CA EN RÉALITÉ !

[anass]

je suis étonné par la rapidité de ta réponse

[DJSIR]

je suis étonné par la rapidité de ta réponse

C'est comme ça dans ce forum !

[anass]

j'ai bien essayé ce que tu m'as dit
j'avais déja creer un label (exprés pour l'heure )
le label était

Code : Tout sélectionner

$label2 = GUICtrlCreateLabel(" ", 64, 176, 196, 17)

et comme tu m'as dit je fais

Code : Tout sélectionner

$ancien=0
while 1
$nouveau=@HOUR &"h"& @MIN &" "& @SEC &" sec"
If $ancien<>$nouveau Then
GUICtrlSetData($label2, $nouveau)
$ancien=$nouveau
EndIf
wend

mais ça ne marche pas,j'ai raté quelque chose??

[Tlem]

Je ne vois vraiment pas pourquoi vous faites un contrôle sur l'heure puisque votre but est de l'afficher !!!
Ceci suffit amplement :

Code : Tout sélectionner

while 1
    GUICtrlSetData($label2, @HOUR &"h"& @MIN &" "& @SEC &" sec")
    Sleep(500)
wend

Par contre cela va vous bloquer pour le reste si vous devez faire d'autres action. Dans ce cas utilisez la commande AdlibEnable() pour mettre à jour l'affichage de l'heure et dans votre boucle principale tester ce que vous voulez.
Il y à des exemples sur le forum. Vous trouverez.

[anass]

MERCI A TOI TLEM
j'ai à faire marcher mon code
le truc était assez simple, la flemme d'expliquer je passe le code diretement

Code : Tout sélectionner

AdlibEnable( "date" , 500 )
func date()
$date1 = @MDAY &"/"& @MON &"/"& @YEAR &" - "& @HOUR &"H"& @MIN &" "& @SEC &" sec"
$label2 = GUICtrlCreateLabel($date1, 64, 176, 196, 17)
endfunc

la commande adlibenable a résolu mon problème merci à tous
(mais il reste toujours mon 2eme problème)

[Tlem]

Pour parcourir l'ordinateur à la recherche d'un fichier, utilisez la fonction FileOpenDialog().

[guitarist]

Bon et bien come on ta repondu ce cerai bien de rajouter la balise [R]
C'est tout bonne programation
Merci

[anass]

je suis vraiment désolé du retard,j'étais occupé ailleurs.
bon ben merci de votre aide me manque juste que je finisse mon script
a bientot