Keskustelu: Koodit: Perl Tk: Neliöjonot

use Tk;

#Tämä ohjelma muodostaa lausekkeita ja kaavoja neliöjonoista.
#Ohjelma sisältää kolmenlaisia neliöjonoja

my $main = MainWindow->new;
$main->title("Neliöt");

#Luodaan kontrollit.
my $teksti = "";

my $nappain = $main->Button(-text=>"Perus",-command=>\&Perus)->pack();
my $nappain2 = $main->Button(-text=>"Summa",-command=>\&Summa)->pack();
my $nappain3 = $main->Button(-text=>"Summa2",-command=>\&Summa2)->pack();


my $lappu = $main->Label(-textvariable=>\$teksti)->pack();
my $tlaatikko = $main->Entry()->pack();

#Luodaan tapahtumat.
sub Perus(){
 $luku = int $tlaatikko->get();

 #Muodostetaan lauseke.
 #Luvun neliöiden summa voidaan esittää parittomien lukujen summana.
 $tulos = "";
 $l = 1;

 for ($x = 0; $x < $luku; $x+=1){
  $tulos .= $l . " ";
  $l += 2;
 }
 #Näytetään tulos.

 $teksti = $tulos;
}


sub Summa(){
 $luku = int $tlaatikko->get();

 #Muodostetaan kaava neliöiden summasta.
 $tulos = "";


 $tulos = "(" . ($luku). "*" . ($luku+1) . "*" . (2*$luku+1) . ")/ 6";
 #Näytetään tulos.

 $teksti = $tulos;
}

sub Summa2(){
 $luku = int $tlaatikko->get();

 #Muodostetaan kaava neliöiden summasta.
 $tulos = "";


 $tulos = "4 * (" . ($luku). "*" . ($luku+1) . "*" . (2*$luku+1) . ")/ 6";
 #Näytetään tulos.

 $teksti = $tulos;
}

MainLoop;