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)
agora vamos criar nossa janela, para isso basta instanciar MainWindow
tambem usamos MainLoop para evitar dela fechar
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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
mais isso nao e suficiente para aparecer o botao entao usamos pack()
agente tambem poderia colocar o pack assim
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
para mudar a cor usamos -fg
para mudar cor do fundo -bg
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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
tambem usamos o atributo command seguido de uma funçao para quando clicarmos nele ele chamar a funçao
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
para agente digitar um texto (uma especie de edit) usamos Entry
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
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
bom galera isso e o basico de tk em perl, mais pra frente espero poder fazer mais tutoriais para vcs ^^
by hacker fts315
- 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;
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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;
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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;
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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)
}
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
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;
}
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
bom galera isso e o basico de tk em perl, mais pra frente espero poder fazer mais tutoriais para vcs ^^
by hacker fts315