#####____________________Tk und Perl - Scale___________________

Mit Scale können wir einen verstellbaren Scale-Widget erzeugen. Sehen wir uns erst wieder an wie das in der Praxis geschehen kann............

#!/usr/bin/perl -w

use strict;
use Tk;

my $mw = MainWindow->new();


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

my $scale1 = $f1->Scale(-from => 0, -to => 100, #Wertebereich 0-100
                        -orient  => "vertical",  #Ausrichtung: Vertical
                        -label   => "Schieb mich")->pack;  #Beschriftung

MainLoop;

So siehts aus :

Scale Tk und Perl

Wollen wir uns damit mal einen kleinen Taschenrechner mit Scale bauen........

use strict;
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;
my $text = $f3->Label(-textvariable => \$summe)->pack;

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

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

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

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

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

MainLoop;

So siehts aus :

Scale Perl und Tk

Mit diesem einfachen Programm errechnen wir die Summe der Werte auf den sie Scale geschoben haben wenn sie den Knopf Rechne Summe drücken. Langsam aber sich lassen sich Richtige Programme mit den Widgets erstellen.........