Jump to content
Sign in to follow this  
LIMITER

GUI TEXT FLICKER WHEN TEXT IS UPDATED

Recommended Posts

LIMITER

I have a gui in which i have a label called $status , in the WHILE loop , i put a code that shows when a removable storage device is connected and changes the text of $status ... but the text flickers ... how can i stop that ?

#include <GUIConstants.au3>
#include <File.au3>

#Region ### START Koda GUI section ### Form=c:\autoit\mp3.kxf
$Form1_1 = GUICreate("MP3 Player Manager - © 2008 L|M|TER", 526, 317, 193, 125)
$txt = GUICtrlCreateLabel("Welcome to MP3 Player Manager - © 2008 L|M|TER !", 10, 10, 306, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$pc = GUICtrlCreateListView("Files on PC playlist", 10, 35, 250, 150)
GUICtrlSendMsg(-1, 0x101E, 0, 246)
$mp3 = GUICtrlCreateListView("Files on MP3 Player", 265, 35, 250, 150)
GUICtrlSendMsg(-1, 0x101E, 0, 246)
$mp3dir = GUICtrlCreateButton("Select MP3 folder", 265, 190, 100, 25, 0)
$pcdir = GUICtrlCreateButton("Select PC Folder", 10, 190, 95, 25, 0)
$progress = GUICtrlCreateProgress(10, 240, 505, 17)
$syncbtn = GUICtrlCreateButton("Sync !", 10, 280, 505, 25, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Digital Readout Upright")
$status = GUICtrlCreateLabel("MP3 Player Not Connected", 350, 10, 160, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$pcdirectory = ""

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $pcdir
            Call("pcdircheck")
    EndSwitch
    $var = DriveGetDrive( "REMOVABLE" )
If Not @error Then
For $i = 1 to $var[0]
    $conn = "MP3 Player Connected"
    GUICtrlSetData($status,$conn)
    GUICtrlSetColor($status, 0x008000)
    Next
    If $var = 0 Then
    $notconn = "MP3 Player Not Connected"
    GUICtrlSetData($status,$notconn)
    GUICtrlSetColor($status, 0xFF0000)
    EndIf
EndIf
WEnd

Func pcdircheck()
    $pcdirectory = FileSelectFolder("Please select a folder",@HomeDrive)
    If @error = 1 Then
        MsgBox(32,"MP3 Player Manager","Please select a folder")
    Else
    Call("pcdir")
    EndIf
EndFunc

Func pcdir()
    $filesArray=_FileListToArray($pcdirectory,"*.mp3")
    
    For $i=1 To $filesArray[0]
    
    GUICtrlCreateListViewItem($filesArray[$i],$pc)
    
    Next
EndFunc

Share this post


Link to post
Share on other sites
MrCreatoR

Hi,

Something like this maybe?

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $pcdir
            Call("pcdircheck")
    EndSwitch
    
    $var = DriveGetDrive( "REMOVABLE" )
    If Not @error Then
        For $i = 1 To $var[0]
            $conn = "MP3 Player Connected"
            If GUICtrlRead($status) <> $conn Then
                GUICtrlSetData($status, $conn)
                GUICtrlSetColor($status, 0x008000)
            EndIf
        Next
        
        If $var = 0 Then
            $notconn = "MP3 Player Not Connected"
            If GUICtrlRead($status) <> $notconn Then
                GUICtrlSetData($status,$notconn)
                GUICtrlSetColor($status, 0xFF0000)
            EndIf
        EndIf
    EndIf
WEnd

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites
LIMITER

Hi,

Something like this maybe?

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $pcdir
            Call("pcdircheck")
    EndSwitch
    
    $var = DriveGetDrive( "REMOVABLE" )
    If Not @error Then
        For $i = 1 To $var[0]
            $conn = "MP3 Player Connected"
            If GUICtrlRead($status) <> $conn Then
                GUICtrlSetData($status, $conn)
                GUICtrlSetColor($status, 0x008000)
            EndIf
        Next
        
        If $var = 0 Then
            $notconn = "MP3 Player Not Connected"
            If GUICtrlRead($status) <> $notconn Then
                GUICtrlSetData($status,$notconn)
                GUICtrlSetColor($status, 0xFF0000)
            EndIf
        EndIf
    EndIf
WEnd
It's good .. but .. when i unplug the removable drive .. the text is not changing

:D

Share this post


Link to post
Share on other sites
MrCreatoR

unplug the removable drive .. the text is not changing

You ask for flickering :D

You check If $var = 0... but $var is an array, so check the array:

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $pcdir
            Call("pcdircheck")
    EndSwitch
    
    $var = DriveGetDrive( "REMOVABLE" )
    If Not @error Then
        For $i = 1 To $var[0]
            $conn = "MP3 Player Connected"
            If GUICtrlRead($status) <> $conn Then
                GUICtrlSetData($status, $conn)
                GUICtrlSetColor($status, 0x008000)
            EndIf
        Next
    Else
        $notconn = "MP3 Player Not Connected"
        If GUICtrlRead($status) <> $notconn Then
            GUICtrlSetData($status,$notconn)
            GUICtrlSetColor($status, 0xFF0000)
        EndIf
    EndIf
WEnd

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites
LIMITER

You ask for flickering :D

You check If $var = 0... but $var is an array, so check the array:

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $pcdir
            Call("pcdircheck")
    EndSwitch
    
    $var = DriveGetDrive( "REMOVABLE" )
    If Not @error Then
        For $i = 1 To $var[0]
            $conn = "MP3 Player Connected"
            If GUICtrlRead($status) <> $conn Then
                GUICtrlSetData($status, $conn)
                GUICtrlSetColor($status, 0x008000)
            EndIf
        Next
    Else
        $notconn = "MP3 Player Not Connected"
        If GUICtrlRead($status) <> $notconn Then
            GUICtrlSetData($status,$notconn)
            GUICtrlSetColor($status, 0xFF0000)
        EndIf
    EndIf
WEnd
Thx !

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.