Programmer une échelle de réponse graduée 0 à 100% comment faire
merci
-
[Dal] Messages postés 6205 Date d'inscription Statut Contributeur Dernière intervention -
[Dal] Messages postés 6205 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'aimerais savoir comment faire pour programmer une échelle de réponse graduée de 0 à 100% pour que le répondant puisse utiliser toutes les valeurs comprises entre 0 et 100.
Merci.
J'aimerais savoir comment faire pour programmer une échelle de réponse graduée de 0 à 100% pour que le répondant puisse utiliser toutes les valeurs comprises entre 0 et 100.
Merci.
A voir également:
- Programmer une échelle de réponse graduée 0 à 100% comment faire
- Réponse automatique thunderbird - Guide
- Règle graduée sur écran - Guide
- Echelle 1/75 - Forum Graphisme
- Comment remettre son pc a 0 - Guide
- Echelle 1/200 - Forum Graphisme
1 réponse
Salut,
Si ta question concerne bien Perl et que tu parles d'interfaces graphiques, je suppose que tu utilises Tk.
Si c'est le cas, voici un exemple utilisant Tk::Scale :
Dal
Si ta question concerne bien Perl et que tu parles d'interfaces graphiques, je suppose que tu utilises Tk.
Si c'est le cas, voici un exemple utilisant Tk::Scale :
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = MainWindow->new();
$mw->geometry('250x150');
$mw->resizable(1, 0);
my $sel = 0;
my $label = $mw->Label(-textvariable => \$sel)->pack( );
my $slide = $mw->Scale(-orient=>'horizontal', -length=>150,
-showvalue=>0, -tickinterval=>20 )->pack;
$mw->Button( -text=>'Quitter',
-command=>sub{ exit } )->pack( -padx=>15, -pady=>15,
-anchor=>'se' );
$slide->configure( -command=>[ \&fct, $slide ] );
MainLoop;
sub fct {
my ($slide) = @_;
my $val = $slide->get();
$sel = $val;
}
Dal