[R] GUICTRLSETDATA Clignote

[L4crymal]

Code : Tout sélectionner

GUICreate("",100,100)
GUISetState()
$lbl=GUICtrlCreateLabel("",20,40,200,200)
For $i=1 to 1000000000 step 1
    GUICtrlSetData($lbl,$i)
Next

Comme vous pouvez le voir ce code affiche rapidement un chiffre qui augmente très vite et d'ailleurs cela clignote ...

Comment éviter ce clignotement

[Tlem]

Rajoutez un Sleep(1) après le GUICtrlSetData
Certes la boucle va moins vite, mais c'est comme ça, sinon ça flash.

Edit : Sinon, rajoutez une boucle vide de manière à faire une temporisation inférieur à 1ms.
J'ai testé avec une boucle de 100 pour rendre presque imperceptible l'effet de clignotement. Par contre ce genre de manipulation est dépendante de la vitesse de la machine.

[L4crymal]

Aie, le fait de rajouter de l'attente pour moi est embettant, car c'est un script de traitement pour e-mail qui va TRES vite, et pour mesurer sa vitesse jutilise une boucle qui affiche sur la GUI la vitesse, et ça clignote.

Donc si je rajoute de l'attente cela va ralentir le script

[Tlem]

Je ne sais pas quel type de traitement vous effectuez, mais une chose est sure, c'est que cette boucle à vide fait clignoter l'affichage. Si après le GUICtrlSetData vous rajoutez un traitement quelconque qui prendrais ne serait-ce que quelques centièmes de ms alors cela ne clignote plus.
Peut être n'avez vous pas fait les essais avec le traitement.

[L4crymal]

Pour vous donner une idée:

► Afficher le texte

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$w=@DesktopWidth
$h=@DesktopHeight
$vert =0
$hor = 0
$splash=1
Dim $sizedir[5]
$sizedir[0]="xxx"
$sizedir[1]="xxx"
$sizedir[2]="xxx"
if $splash=1 Then
$hgui = GUICreate("GUIVELO",$w,$h, $hor, $vert, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW)
GUICtrlCreatePic("red.jpg",0,0,@DesktopWidth,@DesktopHeight)
GUICtrlCreatePic("velocigif.gif",0,0,@DesktopWidth,@DesktopHeight)
For $k = 0 To 255 Step 1
    Sleep(1)
    WinSetTrans("GUIVELO", "", $k)
    WinSetOnTop("GUIVELO","",1)
    GUISetState(@SW_SHOW, $hgui)
Next
For $k = 255 To 0 Step -1
    Sleep(1)
    WinSetTrans("GUIVELO", "", $k)
    WinSetOnTop("GUIVELO","",1)
Next
GUIDelete($hgui)
Else
EndIf

$gui=GUICreate("RAPTOR - Email Extractor - By Nurza Software",@DesktopWidth-100,@DesktopHeight-100,0,0,BitOR($WS_OVERLAPPEDWINDOW,$WS_MAXIMIZE))
GUICtrlCreateLabel("Dossier qui contient les fichiers à traiter:",50,50)
$inputdir=GUICtrlCreateInput("",300,50,500)
$parcourirdir=GUICtrlCreateButton("Parcourir",850,50,100,24)
$labeldirsize=GUICtrlCreateLabel("Taille du dossier = "&$sizedir[0]&@CRLF&"Nombre de fichiers = "&$sizedir[0]&@CRLF&"Nombre de dossiers = "&$sizedir[0],990,53,500,50)
$go=GUICtrlCreateButton("GO",400,420,@DesktopWidth-800,50)
$progress=GUICtrlCreateProgress(50,500,@DesktopWidth-100,50)
$labelconclusion=GUICtrlCreateLabel("",50,550,@DesktopWidth-100,50)
GUISetState(@SW_SHOW, $gui)
    
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $parcourirdir
            $dossierinput = FileSelectFolder("RAPTOR DOSSIER", "")
            if $dossierinput="" Then
            Else
            GUICtrlSetData($inputdir,$dossierinput)
            $sizedir = DirGetSize($dossierinput,1)
            
            If $sizedir[0]<1000 Then
                $tailledir=Ceiling($sizedir[0])&" Octets"
            ElseIf $sizedir[0]<1000000 Then
                $tailledir=Ceiling($sizedir[0]/1000)&" K-Octets"
            ElseIf $sizedir[0]<1000000000 Then
                $tailledir=Ceiling($sizedir[0]/1000000)&" M-Octets"
            ElseIf $sizedir[0]<1000000000000 Then
                $tailledir=Ceiling($sizedir[0]/1000000000)&" G-Octets"
            Else
                $tailledir=" ERROR "
            EndIf
            
            GUICtrlSetData($labeldirsize,"Taille du dossier = "&$tailledir&" / "&$sizedir[0]&" OCTETS"&@CRLF&"Nombre de fichiers = "&$sizedir[1]&@CRLF&"Nombre de dossiers = "&$sizedir[2])
            EndIf
        Case $go
            If GUICtrlRead($inputdir)="" Then 
            MsgBox (0,"","Veuillez spécifier un dossier à tréter !")
            Else
            $sizedir = DirGetSize(GUICtrlRead($inputdir),1)
            
            If $sizedir[0]<1000 Then
                $tailledir=Ceiling($sizedir[0])&" Octets"
            ElseIf $sizedir[0]<1000000 Then
                $tailledir=Ceiling($sizedir[0]/1000)&" K-Octets"
            ElseIf $sizedir[0]<1000000000 Then
                $tailledir=Ceiling($sizedir[0]/1000000)&" M-Octets"
            ElseIf $sizedir[0]<1000000000000 Then
                $tailledir=Ceiling($sizedir[0]/1000000000)&" G-Octets"
            Else
                $tailledir=" ERROR "
            EndIf
            
            GUICtrlSetData($labeldirsize,"Taille du dossier = "&$tailledir&" / "&$sizedir[0]&" OCTETS"&@CRLF&"Nombre de fichiers = "&$sizedir[1]&@CRLF&"Nombre de dossiers = "&$sizedir[2])
            
            extraction("ici.txt",GUICtrlRead($inputdir),$sizedir[0])
            EndIf
EndSwitch
WEnd





Func _ArraytUnique(ByRef $aArray, $vDelim = '', $iBase = 1, $iUnique = 1)
    If $vDelim = '' Then $vDelim = Chr(01)
    Local $sHold
    For $iCC = $iBase To UBound($aArray) - 1
        If Not StringInStr($vDelim & $sHold, $vDelim & $aArray[$iCC] & $vDelim, $iUnique) Then _
                $sHold &= $aArray[$iCC] & $vDelim
    Next
    Return StringSplit(StringTrimRight($sHold, StringLen($vDelim)), $vDelim)
EndFunc   ;==>_ArrayUnique

Func extraction($OutputFile,$FileaList,$sisegloub)
$mailtrouve=0
$sizedufile=0
if FileExists($OutputFile) Then
Else
FileWrite($OutputFile,"")
EndIf
$FileList=_FileListToArray($FileaList)

$sisegloubrest=$sisegloub
For $i=1 to $FileList[0] Step 1
$InputFile=$FileaList&"\"&$FileList[$i]
$File = FileRead($InputFile)
If StringRegExp($File, "@", 0) Then
$aEmail = StringRegExp($File, "([-.\w]+@[-.\w]+\.[\w]{2,4})", 3)
If Not @error Then
    $aFilteredEmail = _ArraytUnique($aEmail, '', 0)

    Dim $Res=""
    For $j = 1 To $aFilteredEmail[0]
        $Res = $aFilteredEmail[$j] & @CRLF
        
        $ver=StringInStr($Res, "encarta")
    If $ver <> 0 Then
    Else
        FileWrite($OutputFile, $Res)
        $mailtrouve=$mailtrouve+1
    EndIf
    Next
    
    
EndIf
Else

EndIf
    $sizedufile = FileGetSize($InputFile)
if @error Then FileWrite("error.txt",$InputFile&@CRLF)

$sisegloubrest=$sisegloubrest-$sizedufile
majconcl($FileList[0],$i,$sisegloubrest,$sizedufile,$mailtrouve,$sisegloub)
Next
GUICtrlSetData($labelconclusion,"Fichiers restants = 0                        Taille des fichiers restants = 0                        Taille des fichiers trétés = "&$sisegloub&"                             E-mails trouvés = "&$mailtrouve&"   100 %")
GUICtrlSetData($progress,"100")
MsgBox(0,"",$mailtrouve)
EndFunc






Func majconcl($a,$b,$c,$d,$e,$f)
$fichiersrestants=$a-$b
$tailledesfichiersrestants=$c-$d
$mailfind=$e
$sizetretee=$f-$tailledesfichiersrestants
$percentprogress=Execute("(100/$f)*$sizetretee")
GUICtrlSetData($labelconclusion,"Fichiers restants = "&$fichiersrestants&"                        Taille des fichiers restants = "&$tailledesfichiersrestants&"                        Taille des fichiers trétés = "&$sizetretee&"                             E-mails trouvés = "&$mailfind&"                 Progression = "&Ceiling($percentprogress)&" %")
GUICtrlSetData($progress,$percentprogress)
EndFunc

Votre méthode fonctionne pour le mini script précédent mais pour celui ci non :s

[Tlem]

Je ne peut pas tester votre script, car je n'ai pas l'intégralité des éléments pour le test (Un dossier avec des fichiers à traiter).

Par contre votre splash serait plus agréable comme ceci :

► Afficher le texte

Code : Tout sélectionner

$hgui = GUICreate("GUIVELO",$w,$h, $hor, $vert, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW)
GUICtrlCreatePic("red.jpg",0,0,@DesktopWidth,@DesktopHeight)
GUICtrlCreatePic("velocigif.gif",0,0,@DesktopWidth,@DesktopHeight)
WinSetOnTop("GUIVELO","",1)
WinSetTrans("GUIVELO", "", 0)
GUISetState(@SW_SHOW, $hgui)

For $k = 0 To 254 Step 4
    WinSetTrans("GUIVELO", "", $k)
    Sleep(1)
Next
For $k = 254 To 0 Step -4
    WinSetTrans("GUIVELO", "", $k)
    Sleep(1)
Next
GUIDelete($hgui)

[L4crymal]

Pour revenir au sujet, si vous voulez tester, copier coller 1000 fichiers textes pas très gros et dans l'un d'eux vous mettez une adresse email.


Et la peut on donc éviter le clignotement sur ma GUI ?

[Tlem]

Vue la rapidité de traitement, il est normal que ça flash, car vous ré-affichez à chaque fichier la ligne entière de label.

Séparez vos labels, et ne mettez à jour que ce qui est nécessaire (ça flashera sans doute encore, mais seulement sur les nombres).

[L4crymal]

C'est une bonne solution, mais il n'y en a vraiment aucune autre pour que ça ne flash plus ? pourquoi le sleep(1) ne fonctionne pas pour ma boucle?

[Tlem]

Si vous le mettez entre la ligne

Code : Tout sélectionner

majconcl($FileList[0], $i, $sisegloubrest, $sizedufile, $mailtrouve, $sisegloub)

et le Next cela ne devrait plus flasher (en tout cas chez moi ça fonctionne).