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

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

1 tk no perl em Sex Abr 19, 2013 1:27 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 nesse tutorial vou ensinar como usar tk no perl, para isso vamos declarar ele no caso Tk (eu to fazendo esse tutorial no linux nao tenho certeza se funciona com os interpretador do windows)

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

use Tk;

agora vamos criar nossa janela, para isso basta instanciar MainWindow

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

use Tk;

$fts = MainWindow->new;

tambem usamos MainLoop para evitar dela fechar

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

use Tk;

$fts = MainWindow->new;
MainLoop;



agora vamos colocar um texto escrito ai, para isso usamos o Label passamos como argumento -text e o nosso texto, tabem atribuimos a mesma a uma variavel para poder manipular depois

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

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315");
MainLoop;

mais isso nao e suficiente para aparecer o botao entao usamos pack()

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

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315")->pack();
MainLoop;

agente tambem poderia colocar o pack assim

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

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315");
$texto->pack();
MainLoop;



para mudar a cor usamos -fg

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

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315", -fg=>"red")->pack();
MainLoop;

para mudar cor do fundo -bg

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

use Tk;

$fts = MainWindow->new;
$texto = $fts->Label(-text=>"by hacker fts315", -fg=>"red", -bg=>"black")->pack();
MainLoop;



existe outras dezenas de atributos para manipular o label agora vamos criar um botao para isso usamos Button, ele e mesma coisa so moda o label para Button veja

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

use Tk;

$fts = MainWindow->new;
$botao = $fts->Button(-text=>"aperte-me")->pack();
MainLoop;

tambem usamos o atributo command seguido de uma funçao para quando clicarmos nele ele chamar a funçao

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

use Tk;

$fts = MainWindow->new;
$botao = $fts->Button(-text=>"sair", -command=>\&fts_fun)->pack();
MainLoop;

sub fts_fun
{
   exit(0)
}



para agente digitar um texto (uma especie de edit) usamos Entry

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

use Tk;

$fts = MainWindow->new;
$edit1 = $fts->Entry()->pack();
MainLoop;

para pegar o valor de um Entry basta usar get na variavel do Entry, vou fazer um exemplo mais complexo vou pegar o texto do Entry e exibir na tela do terminal quando eu apertar no botao

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

use Tk;

$fts = MainWindow->new;
$edit1 = $fts->Entry()->pack();
$botao = $fts->Button(-text=>"escrever no terminal",-command=>\&fts_fun)->pack();
MainLoop;

sub fts_fun
{
   $hack = $edit1->get();
   print $hack;
}



bom galera isso e o basico de tk em perl, mais pra frente espero poder fazer mais tutoriais para vcs ^^

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