Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


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

FTS Geometric Design

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

1 FTS Geometric Design em Ter Abr 30, 2013 11:57 pm

Moedas Moedas : 201
Mensagens Mensagens : 92
Humor Humor : *-*
Reputação Reputação : 5
Quebra de regras:
0 / 1000 / 100

avatar

hacker fts315

Moderador Informática

Moderador Informática



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



[center]


Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Ask: [Você precisa estar registrado e conectado para ver este link.]
Ver perfil do usuário http://www.facebook.com/hacker.fts315

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