seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Você não está conectado. Conecte-se ou registre-se

 » Designer » Programas » [source] FTS Geometric Design

[source] FTS Geometric Design

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 [source] FTS Geometric Design em Ter Abr 30, 2013 11:34 pm

Kodo no Kami

avatar
master
master
[Você precisa estar registrado e conectado para ver esta imagem.]

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;
}


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: /hacker.fts315
Skype: hackerfts315
http://endoffile.umforum.net

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum