Projeto Universidade - Urna Eletrônica

[junior-jp 0]

é o seguinte to fazendo tipo uma urna eletronica...o problema eh o ZERO... se eu aperto ele e depois um numero, o segundo numero sobrepoe ele....e quando eu digito um numero e em seguida o ZERO o programa nao reconhece... era pra reconhecer como voto nulo se nao fosse igual o q ta cadastrado...segue ai o source do botao ZERO...alguem me socorre :blink: procedure TForm3.Botao0Click(Sender: TObject);begin sndPlaySound('teclar.wav',0); If (Sender as TImage)= Botao0 then begin If N1 = 0 then begin B0:= 0 ; N1:= B0; EdRecebe.Text:=IntToStr(N1); end else if N2 = 0 then begin B0:= 0 ; N2:= B0; EdRecebe.Text:=IntToStr(N2); Desabilitar; end; end;end;

[Hugo Slepicka 0]

procedure TForm3.Botao0Click(Sender: TObject);

begin

sndPlaySound('teclar.wav',0);

If (Sender as TImage)= Botao0 then

begin

If N1 = 0 then

begin

B0:= 0 ;

N1:= B0;

EdRecebe.Text:=EdRecebe.Text + IntToStr(N1);

end

else if N2 = 0 then

begin

B0:= 0 ;

N2:= B0;

EdRecebe.Text:=EdRecebe.Text + IntToStr(N2);

Desabilitar;

end;

end;

end;

 

 

 

será que era só isso???

 

v aew se da certo...

[junior-jp 0]

pensei q era tambem....mas continua a mesma coisa.... se digito por exemplo Zero e Oito...fica Oitenta....Se digito Oito e Zero fica Oitenta mas ele nao reconhece como numero invalido e nao conta como voto nulo...vlw amigo...

[marcio.theis 3]

Não entendi muito bem o problema, mas para mim funcionou certinho, só que fiz um pouco diferente... no caso mudei a propriedade Tag de cada componente, ou seja, coloquei o n° da Tag de acordo com o n° que deve corresponder, e liguei todos os cliques de botão em somente um... ficando o fonte assim:

 

procedure TForm1.BitBtn1Click(Sender: TObject);beginedt.Text:=edt.Text + IntToStr((Sender as TBitBtn).Tag);end;

No caso se apertar o botão 8 ele vai pegar a Tag do botão e atribuir ao edit, se depois clicar 0 ele pega a Tag e atribui, sendo assim... aparece "80" ou se digitar primeiro 0 e depois 8 fica "08"... Espero que era algo do tipo o seu problema...

[junior-jp 0]

dxa ver se entendi...você criou os botoes de 0 a 9 e dxou esse bitbtn invisivel? ai em cada evento OnClick dos botoes chamou essa procedure?

[marcio.theis 3]

Não... No caso deixei todos os botões visíveis, e na propriedade Tag coloquei o valor que deve de ser dado a cada botão, no caso como expliquei no post anterior... E todos os cliques de botões foram ligados ao mesmo evento... ou seja, têm somente um evento para todos os botões...

[junior-jp 0]

Show! valeu peja ajuda marcio...fico grato!

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif