Programmer une échelle de réponse graduée 0 à 100% comment faire Fermé

Question

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.



Configuration: Mac OS X (10.9.4) / Safari 7.0.6

[Dal] · Answer

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 :

#!/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

Programmer une échelle de réponse graduée 0 à 100% comment faire

1 réponse

Discussions similaires