Sign In
Create Account
1
FTS Geometric Design Ter Abr 30, 2013 11:57 pm
Moedas : 201
Mensagens : 92
Humor : *-*
Reputação : 5
hacker fts315
bom galera ontem eu tinha criado um tutorial de tk em perl eu ia colocar esse codigo como exemplo mais fiquei com preguiça de terminar ele ontem entao so terminei hj para nao desperdiçar a source to postando ^^
- Código:
#!/usr/bin/perl
#autor: hacker fts315
#contato: www.facebook.com/hacker.fts315
#data 30/04/2013
use Tk;
my $d = "c";
$fts = MainWindow->new;
$fts->title("by hacker fts315");
$titulo = $fts->Label(-text=>"FTS Geometric Design",-fg=>"red")->pack;
$label0 = $fts->Label(-text=>"nome salvar")->pack;
$entry0 = $fts->Entry(-text=>"f_log.txt")->pack;
$label1 = $fts->Label(-text=>"x inicio")->pack;
$entry1 = $fts->Entry(-text=>100)->pack;
$label2 = $fts->Label(-text=>"y inicio")->pack;
$entry2 = $fts->Entry(-text=>100)->pack;
$label3 = $fts->Label(-text=>"x final")->pack;
$entry3 = $fts->Entry(-text=>200)->pack;
$label4 = $fts->Label(-text=>"y final")->pack;
$entry4 = $fts->Entry(-text=>200)->pack;
$label5 = $fts->Label(-text=>"cor")->pack;
$entry5 = $fts->Entry(-text=>"red")->pack;
$vish = $fts->Frame->pack;
$op1 = $vish->Radiobutton(-text=>"circulo",-variable=>\$d,-value=>"c")->pack;
$op2 = $vish->Radiobutton(-text=>"quadrado",-variable=>\$d,-value=>"q")->pack;
$op3 = $vish->Radiobutton(-text=>"linha",-variable=>\$d,-value=>"l")->pack;
$button1 = $fts->Button(-text=>"Desenhar",-command=>\&fts)->pack;
$button2 = $fts->Button(-text=>"limpar",-command=>\&hack)->pack;
$lol = $fts->Frame->pack;
$hack = $lol->Canvas->pack;
MainLoop;
sub fts
{
if($d eq "c")
{
$hack->createOval($entry1->get,$entry2->get,$entry3->get,$entry4->get,-fill=>$entry5->get);
}
elsif($d eq "q")
{
$hack->createRectangle($entry1->get,$entry2->get,$entry3->get,$entry4->get,-fill=>$entry5->get);
}
elsif($d eq "l")
{
$hack->createLine($entry1->get,$entry2->get,$entry3->get,$entry4->get,-fill=>$entry5->get);
}
open(FTSS,">>".$entry0->get);
print FTSS $entry1->get . "," . $entry2->get . "," . $entry3->get . "," . $entry4->get . "," . $entry5->get . "," . $d . "\n";
close(FTSS);
}
sub hack
{
$hack->destroy;
$hack = $lol->Canvas->pack;
}
Sex Jan 22, 2016 12:33 am por 
