Sehr Umfangreiche Webseite zum Programmieren in C Perl CGI, Skripting, Linux, SystemprogrammierungPerl Perl Kurs Skripting Tk-Modul use Tk; Tcl/Tk Scale Tk Scale Steuerelement Perl Skript Tk-Modul Tk use Tk Perl mit dem Tk-Modul Teil 10

Steuerelemente - Scale          zurück zum Inhaltsverzeichnis

Mit Scale können Sie einen verstellbares Scale-Widget erzeugen. Hierzu folgt wieder ein Skript ...

#!/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 sieht's aus (Linux/Unix):

Steuerelement Scale Linux/Unix

So sieht's aus (MS Windows):

Steuerelement Scale MS Windows

Damit lässt sich Beispielsweise ein einfacher Taschenrechner 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 sieht's aus (Linux/Unix):

Steuerelement Scale Linux/Unix

So sieht's aus (MS Windows):

Steuerelement Scale MS Windows

Mit diesem einfachen Programm errechnen Sie die Summe der Werte, auf den Sie den jeweiligen Scale geschoben haben.  Langsam aber sich lassen sich Richtige Programme mit den Widgets erstellen!