@stderr

fiz um cod meia boca cheio de erros, se possivem ve pra mim oq eu errei

to achando q eu errei muito em kkkk

=(

#!/usr/bin/perl
 use warnings;
use strict;
use threads;
use threads::shared;
use Tk;

my %shash;

my  %hash;

 share ($shash { 'liga'});
 #!/usr/bin/perl


my $mw = MainWindow->new;
$Shash { 'liga'} = 1;
$Shash { 'desliga'} = 0;

##$mw->Button(-text => "Hello World!", -command =>sub{exit})->pack;
my $startb = $MW-> Button (-text => 'Start',
                -command => sub {
                     $ Shash { 'ir'} = 1;
             $MW-> depois (1000);
              -> Pack ();

my $stopb = $MW-> Button (-text => 'Stop',

eu sei q vo ter q botar serial port etc

Acho que você tem que ir analisando linha por linha para encontrar os erros.

=( problema q n entendo muito de perl, e o q tem na rede é ingles

Começa por um "hello word" e com o tempo vai evoluindo... sobre o Inglês é fácil entender, se tiver alguma dúvida vá traduzindo com o Google tradutor. :)

>.,< é q ´preciso so para o projeto, depois disso nem quero ver perl a minha vida acadêmica kkkk

se ja ta difícil botoes imagina o de rolagem, to quase pensando em deixar manual pelo c++ a rolagem

Até que Perl é legal... Esse projeto precisa ser escrito em Perl? C++, Java não?

pq so preciso q ele mandei valor 49 num botao e 48 em outro, pra ligar e desligar

entao o programa mesmo vai ser em c++ o perl so na interface ele so vai mandar e o c++ receber

gracas a deus ol

0/

Podia ser o inverso: C++ a interface e o Perl receber. :)

\o

noooo

kkkkk

se nao ia ter q fazer funcoes em perl

E no C++ não?

sim mas eu manjo algumas coisas em c++

kkkkk

\o/

\o/

entao eu so preciso resolver esse perl >.,<

Qual o problema dele?

sem contar q ja to desistindo do botao de rolagem

ja tentou traduzir no google ? de pao ele traduz biscoito

kkkkkk

scroll button?

role

role?

bom scroll

minha ideia com ele era fazer delay

pro servo motor

>.,< mas nem o button normal eu n to conseguindo

Você quer que um botão execute algo, isso?

bom minha ideia era q o botao mandasse pela porta serial os valores 49 no liga e 48 desliga

e o de rolagem era pra mim fazer delay tipo la com os numero de 1...9 pra pegar o tempo de parada no servo motor

>.,< mas esse ja to desistindo

Assim? $mw->Button(-text => "Ligar", -command => sub { print "Ligando...49" })->pack;

Ou se quiser especificar um método:

entao... mas o valor ele ia ter q enviar na porta serial

$mw->Button(-text => "Ligar", -command => \&metodoLigar)->pack;

sub metodoLigar { print "Ligando...49" }

thiago acho q é assim, mas tu sabe q n manjo de perl

>.,<

Ué, no método é só colocar o código responsável para enviar... só não sei o que esse tal botão de rolagem que você quer fazer, não seria um scrollbar?

docstore.mik.ua/orelly/perl3/tk/ch06_01.htm

sim scrollbar

mas como ia funcionar, pra mim pegar esse valores do botao de rolagem

Pegar valor do botão?

>.,< minha ideia era q tivesse na lateral numero de 1 a 9 .... ai quando arrastado ate o numero ele mandasse para a porta

aqui n manda img ne?

Acho que manda sim...

mas ia ser mais complicado ne, o cod

Tente fazer uma coisa por vez, primeiro os botões...

>.<

Vc nem sabe programar nessa linguagem ainda. :)

to sabendo =)

kkkk

Antes dos botões, primeiro arruma a janela.. o tamanho e título... e assim vai "evoluindo".. :)

Ex:

Um botão...

my $botaoLigar = $mw -> Button(-text=> 'Ligar' -borderwidth=> 1, -command=>\&metodoLigar,) ->place(-x =>1, -y =>1,);

E por ai vai..

main window é um modulo?

>.< so se sor user?

Não.. widget do Tk mesmo search.cpan.org/~srezic/Tk-804.033/pod/MainWindow.pod

teria q por Tk::MainWindow ou use tk so?

Não, não precisa, basta: use Tk; no topo do script... você até tem essa linha no teu código, veja:

uhum

mas n rodou

Qual a mensagem?

Global symbol "%Shash" requires explicit package name at 'hello.pl line 8.
Global symbol "%Shash" requires explicit package name at 'hello.pl line 9.
Execution of 'hello.pl aborted due to compilation errors.
Pressione qualquer tecla para continuar. . .

Não indica erros do MainWindow!

Você percebeu que tem as variáveis shash, hash e Shash?

Você precisa das 3?

No caso do erro em questão %Shash não está declarado.

Tem que fazer my %Shash;

eu fiz

my %shash;
my %hash;
$Shash { 'liga'} = 1;
$Shash { 'desliga'} = 0;

$Shash é diferente de %shash.

case-sensitive :)

pra cada uma ia ter de ter um my %Shash?

Não. O my é para declarar a variável...

Depois você usa a variável como bem entender (sem o my).

tutorialspoint.com/perl/perl_my.htm

>.,<

=)