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

tk no perl - 4º parte

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

1 tk no perl - 4º parte em Ter Abr 23, 2013 11:30 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

e ae galera essa e o 4º parte do tutorial de tk em perl, para começar vamos fazer uma janela simples

Código:
#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
MainLoop

vamos criar um frame, esses frame sao uma especime de janela embutida na mesma e cada frame nao afeta o outro, para criar frame basta usar o metodo Frame

Código:
#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;

MainLoop;

agente pode criar os botoes, entry, label, etc no frame

Código:
#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$lol = $hack->Label(-text=>"isso esta em um frame")->pack;
MainLoop;

veja o exemplo com dois frames

Código:
#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$lol = $fts->Frame()->pack;
$hack->Label(-text=>"isso esta em um frame")->pack;
$lol->Label(-text=>"isso esta em outro frame")->pack;
MainLoop;




frame sao necessario para criar Radiobutton, os radiobutton sao botao que vc seleciona e todos os radiobutton de um frame faz parte de um todo, para agente criar o radiobutton basta agente usar o metodo Radiobutton dentro de um frame, passamos como argumento o atributo -text com um texto

Código:
#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$radio1 = $hack->Radiobutton(-text=>"white hat")->pack;
$radio2 = $hack->Radiobutton(-text=>"black hat")->pack;

MainLoop;



se agente perceber ainda nao da para selecionar nenhuma opção para isso usamos o atributo -variable para armazenar o valor e o atributo -value para mandar um valor para la

Código:
#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$radio1 = $hack->Radiobutton(-text=>"white hat",-variable=>\$opcao,-value=>"bom")->pack;
$radio2 = $hack->Radiobutton(-text=>"black hat",-variable=>\$opcao,-value=>"mal")->pack;

MainLoop;



no caso podemos criar um botao q vai checar a variavel para ver qual valor

Código:
#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$hack = $fts->Frame()->pack;
$radio1 = $hack->Radiobutton(-text=>"white hat",-variable=>\$opcao,-value=>"bom")->pack;
$radio2 = $hack->Radiobutton(-text=>"black hat",-variable=>\$opcao,-value=>"mal")->pack;
$botao = $hack->Button(-text=>"checar",-command=>\&fts_radiob)->pack;

MainLoop;

sub fts_radiob
{
   if($opcao eq "bom")
   {
      $fts->messageBox(-message=>"voce e um bom garoto vai pro ceu ^^");
   }
   elsif($opcao eq "mal")
   {
      $fts->messageBox(-message=>"voce e mal cuidado para nao ir para o inferno '-'");
   }
   else
   {
      $fts->messageBox(-message=>"escolha uma opcao '-'");
   }
}




tambem existe os checkbox eles sao diferente do radiobutton eles nao fazem parte de um todo sao usados para habilita e desabilitar uma opcao diferente do radio q e usado para escolher uma e tambem nao precisa de um frame, para usar ele basta usar o metodo Checkbutton, passar como argumento o atributo -text com um texto, tambem o atributo -variable, tambem usamos o atributo -onvalue para mandar para variavel determinado valor quando tiver apertado e o atributo offvalue quando tiver desabilitado

Código:
#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$fts->Checkbutton(-text=>"aparecer msg?",-variable=>\$hack,-onvalue=>"sim",-offvalue=>"nao")->pack;

MainLoop;

usamos uma funçao para comparar

Código:
#!/usr/bin/perl

use Tk;

$fts = MainWindow->new;
$fts->Checkbutton(-text=>"aparecer msg?",-variable=>\$hack,-onvalue=>"sim",-offvalue=>"nao")->pack;
$fts->Button(-text=>"checar",-command=>\&fts_checkb)->pack;

MainLoop;

sub fts_checkb
{
   if($hack eq "sim")
   {
      $fts->messageBox(-message=>"vc so esta lendo pq ativo aquela bagaça se nao voce nao estaria lendo esse texto agora *-*");
   }
}



bom galera tanto o radiobutton quanto o checkbutton vc pode colocar o valor padrao para isso basta criar a variavel com o valor

Código:
#!/usr/bin/perl

use Tk;

$hack = "sim";

$fts = MainWindow->new;
$fts->Checkbutton(-text=>"aparecer msg?",-variable=>\$hack,-onvalue=>"sim",-offvalue=>"nao")->pack;

bom galera pode ser q eu faça mais alguns tuto sobre tk em perl ^^

by hacker fts315



[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 https://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