FAQ Perl/TkConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/perl 
use strict; 
use warnings; 
use Tk; 
use Tk::ProgressBar; 
use Tk::ProgressBarPlus; 
  
my $mw = new MainWindow( 
  -title      => 'Barre de progression', 
  -background => 'white', 
); 
  
$mw->Label( -text => "Utilisation de Tk::ProgressBar", -background => 'white', )->pack(qw / -pady 10 /); 
  
my $progress = $mw->ProgressBar( 
  -from   => 0, 
  -to     => 100, 
  -length => 200, 
  -width  => 20, 
  -colors => [ 0, 'blue', ], 
)->pack(qw / -pady 10 /); 
  
$mw->Label( -text => "Utilisation de Tk::ProgressBarPlus", -background => 'white', )->pack(qw / -pady 10 /); 
  
my $progressplus = $mw->ProgressBarPlus( 
  -from   => 0, 
  -to     => 100, 
  -length => 200, 
  -width  => 20, 
  -colors => [ 0, '#2BA191', ], 
  
  # Nouvelles options 
  -showvalue   => '1', 
  -valuecolor  => 'white', 
  -valueformat => '%s %%', 
  -font        => '9x15', 
)->pack(qw / -pady 10 /); 
  
# Faisons défiler les barres de progression 
for ( my $i = 0; $i <= 100; $i = $i + 5 ) { 
  $progress->value($i); 
  $progressplus->value($i); 
  $mw->update(); 
  sleep 1; 
} 
  
MainLoop;