Re^3: use Acme::ProgressBar;

Replies are listed 'Best First'.
Re^4: use Acme::ProgressBar; by Karger78 (Beadle) on Sep 25, 2009 at 17:48 UTC
Hello, Thanks for the examples. I read though them but still having issues on how i should be implementing it. maybe i am retarted or somthing :P so i have created my progress bar `$main->AddProgressBar(-name =>'pbar', -height=>20, -width =>175, -pos => [5,550], -smooth => 1, -SetRange =>(0,100) );` [download] So how do i wrap that into my long functions so the end user knows somthing is going on and the program is not frozen. So for example, I have a function that finds some logs based on a case number builds an array and then prints it out to a text box. So i would like the progress bar to be running while it's doing this in the back ground so the end user doesn't get a message indicating that the program is not responding. `sub btnFindLogs_Click {#start sub opendir(my $dir, $logSite) or die "Can't open '$logSite': $!"; for my $file (readdir($dir)) { for my $pattern ($CaseNumber) { if ($file =~ /$pattern/) { push @return, $file; # This avoids having the file in the result twice last; } } } @return = sort (@return); $size = @return; #end sub ##Populate text box with the serach resutls. foreach(@return) { $main->CaseSearchResults->Append($_."\r\r\n");} }#end of else }` [download] Any help would be greatly appreciated.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: use Acme::ProgressBar;
by Karger78 (Beadle) on Sep 25, 2009 at 17:48 UTC

    $main->AddProgressBar(-name =>'pbar',
                          -height=>20,
                          -width =>175,
                          -pos => [5,550],
                          -smooth => 1,
                          -SetRange =>(0,100)
                          );
[download]

    sub btnFindLogs_Click
    {#start sub
                      
           
        opendir(my $dir, $logSite) or die "Can't open '$logSite': $!";
        for my $file (readdir($dir))
            {
            
              for my $pattern ($CaseNumber)
            {
              if ($file =~ /$pattern/)
            {
            push @return, $file;
            # This avoids having the file in the result twice
            last;
            }
      }
    }
     @return = sort (@return);
     $size = @return;
     
    #end sub
    
    ##Populate text box with the serach resutls.
        foreach(@return)
        {
            
            $main->CaseSearchResults->Append($_."\r\r\n");}
 
        }#end of else
        
              }
[download]

[reply]
[d/l]
[select]