GUI mit Perl/Tk

Perl/Tk-Tutorial

Kapitel 10: Steuerelement - Scale

Mit dem Steuerelement Scale können Sie verstellbare Skalenelemente erzeugen:

scale1.pl

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $f1 = $mw->Frame(
    -relief      => 'sunken',
    -width       => '50',
    -height      => '50',
    -borderwidth => '1',
)->pack(-side        => 'top');

my $scale = $f1->Scale(
    -from   => 0,
    -to     => 100,
    -orient => "vertical",
    -label  => "Schieb mich",
)->pack();

$mw->MainLoop();

So sieht das Ergebnis aus:

Tk::Scale - Schieberegler


Mit Hilfe dieses Elementes lässt sich beispielsweise ein einfacher Taschenrechner erstellen:

scale2.pl

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $f1 = $mw->Frame(
    -relief      => 'sunken',
    -width       => '50',
    -height      => '50',
    -borderwidth => '10',
)->pack(
    -side => 'left',
    -pady => '10',
    -padx => '10',
);

my $f2 = $mw->Frame(
    -relief      => 'raised',
    -width       => '50',
    -height      => '50',
    -borderwidth => '10',
)->pack(
    -side => 'left',
    -pady => '10',
    -padx => '10',
);

my $f3 = $mw->Frame(
    -relief      =>'sunken',
    -width       => '100',
    -height      => '100',
    -borderwidth => '10',
)->pack(
    -side => 'left',
    -pady => '10',
    -padx => '10',
);

my $summe = 0;
$f3->Label(-textvariable => \$summe)->pack();

my $schalter = $f2->Button(
    -text => "Berechne Summe",
    -command =>  \&ergebnis,
)->pack(-anchor => 'center');

my $scale1 = $f1->Scale(
    -from   => 0,
    -to     => 100,
    -orient => "horizontal",
    -label  => "Zahl 1 :",
)->pack();

my $scale2 = $f1->Scale(
    -from   => 0,
    -to     => 100,
    -orient => "horizontal",
    -label  => "Zahl 2 :",
)->pack();

my $scale3 = $f1->Scale(
    -from   => 0,
    -to     => 100,
    -orient => "horizontal",
    -label  => "Zahl 3 :",
)->pack();

$mw->MainLoop();

sub ergebnis {
    $summe = $scale1->get() + $scale2->get() + $scale3->get();
}

So sieht das Ergebnis aus:

Schieberegler für Rechenoperation

Mit diesem einfachen Programm errechnen Sie auf Knopfdruck die Summe der Werte, auf die Sie die Skalenelemente eingestellt haben. Langsam aber sicher lassen sich richtige kleine Programme mit den bereits bekannten Fensterelementen erstellen!


Auch hier kann man näheres auf der Widget-Seite zur Tk::Scale erfahren.

Top