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

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

[source] FTS Geometric Design

Ir para baixo  Mensagem [Página 1 de 1]

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

Kodo no Kami

Kodo no Kami
master
master

[Tens de ter uma conta e sessão iniciada para poderes visualizar 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;
}

https://endoffile.umforum.net

Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos