Programmer une échelle de réponse graduée 0 à 100% comment faire
Fermé
merci
-
7 sept. 2014 à 03:47
[Dal] Messages postés 6204 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 27 février 2025 - 8 sept. 2014 à 13:59
[Dal] Messages postés 6204 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 27 février 2025 - 8 sept. 2014 à 13:59
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ègle graduée sur écran - Guide
- Thunderbird réponse automatique - Guide
- Echelle 1/75 - Forum Graphisme
- Formate pour taxer client 100€ - Forum Vos droits sur internet
- Comment faire un 0 barré sur telephone ✓ - Forum Windows
1 réponse
[Dal]
Messages postés
6204
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
27 février 2025
1 100
Modifié par [Dal] le 8/09/2014 à 14:01
Modifié par [Dal] le 8/09/2014 à 14:01
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