IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
logo

FAQ Perl/TkConsultez toutes les FAQ

Nombre d'auteurs : 3, nombre de questions : 86, dernière mise à jour : 24 mai 2013  Ajouter une question

 

Bienvenue sur la FAQ Perl/Tk. Cette FAQ a pour vocation de vous enseigner ou de vous faire revoir les notions de Perl/Tk. N'hésitez pas à utiliser le moteur de recherche.

Vous souhaitez participer à l'amélioration de cette FAQ, n'hésitez pas !! Commentez

Bonne lecture !

SommaireTous les widgetsLes barres de progressions (Scale, ProgressBar...) (1)
précédent sommaire suivant
 

Créer une barre de progression est très simple en Perl/Tk. Il existe deux modules vous le permettant.


Ce module est déjà dans le core de Tk, si vous avez installé Tk, vous n'avez pas besoin de l'installer.


Ce module n'est pas dans le core de Tk, de ce fait, son installation est nécessaire et entrainera l'installation du package Tk-MK.

Voici un exemple de programme regroupant ces deux modules :

Code perl : Sélectionner tout
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;
Voici le résultat de ce programme :

Comme vous avez pu le constater, la différence entre ces deux modules réside dans la possibilité d'associer à une barre de progression un texte contenant le pourcentage d'avancement de la barre. Les options de Tk::ProgressBarPlus sont les mêmes que celles de Tk::ProgressBar avec en plus quatre options.

Les quatre options supplémentaires de Tk::ProgressBarPlus :
  • -showvalue pour activer l'affichage de la valeur de pourcentage ;
  • -valuecolor pour donner la couleur du texte ;
  • -font pour donner le fonte du texte ;
  • -valueformat pour le format du texte.

Mis à jour le 1er novembre 2010 djibril

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.