| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
carlosmoretrip
Novato
Registrado: Domingo, 25 de Julho de 2010
Mensagens: 7
|
 Enviada: Dom Jul 25, 2010 7:38 pm Assunto: Votação para chapas escolares (Resolvido) |
 |
|
Estou começando a desenvolver um software para votação de chapas escolares, gostaria de saber se existe algum código ou maneira de fazer com que cada clique que eu desse em um botão específico, contasse e eu pudesse ver depois a quantidade de cliques, que no caso seria a quantidade de votos.
Fico no aguardo.
Carlos
Editado pela última vez por carlosmoretrip em Seg Jul 26, 2010 8:32 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
FONSENIX
Aprendiz
Registrado: Terça-Feira, 17 de Janeiro de 2006
Mensagens: 151
|
| Enviada: Dom Jul 25, 2010 8:23 pm Assunto: |
|
|
Carlos,
acredito que se vc vai contar os cliques de um botão, no proprio evento OnClick do botão vc pode fazer a contagem. Basta ligar a uma variável. |
|
| Voltar ao Topo |
|
|
Devwave
Aprendiz
Registrado: Segunda-Feira, 31 de Mai de 2010
Mensagens: 146
|
| Enviada: Dom Jul 25, 2010 8:55 pm Assunto: |
|
|
Crie um array com o quantidade das chapas e inicialize.
Ex: Votos: Array [0..1] of Integer = (0, 0);
/\
No caso seria 2 chapas (0 e 1).
Faça os botões na quantidade das chapas.
Um Memo para colocar os resultados.
E um botão pra revelar os resultados.
E no OnClick de cada botão aumente os votos de sua chapa.
Exemplo:
| Código: | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton; //Botão da chapa 1
Button2: TButton; //Botão da chapa 2
Memo1: TMemo;
Revelar: TButton; //Onde será mostrado a quantidade de votos
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure RevelarClick(Sender: TObject); //Botão da chapa 2
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Votos: Array [0..1] of Integer = (0, 0); //Duas chapas: 0 e 1
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); //Clique no botão da chapa 1
begin
Inc(Votos[0]); //Aumenta os votos da chapa 1
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Inc(Votos[1]); //Aumenta os votos da chapa 2
end;
procedure TForm1.RevelarClick(Sender: TObject);
begin
//Revelando a quantidade de votos
Memo1.Lines.Add('Votos na chapa 1: ' + IntToStr(Votos[0]));
Memo1.Lines.Add('Votos na chapa 2: ' + IntToStr(Votos[1]));
end;
end. |
|
|
| Voltar ao Topo |
|
|
arenasam
Novato
Registrado: Sexta-Feira, 2 de Outubro de 2009
Mensagens: 80
|
| Enviada: Seg Jul 26, 2010 8:35 am Assunto: |
|
|
Pelo amor de Deussssss!!!
Meu filho vai no apostilando hehehe,,
Cria uma variavel pra cada chapa, inicializa a variavel com 0
depois no evento en click de cada botão vc incrementa a variavel:
tipow:
chapaa := 0;
On click:
chapaa := chapaa + 1;
 |
|
| Voltar ao Topo |
|
|
Morto
Profissional
Registrado: Quarta-Feira, 2 de Fevereiro de 2005
Mensagens: 520
Localização: Belo Horizonte, MG
|
| Enviada: Seg Jul 26, 2010 10:50 am Assunto: |
|
|
Acho que o ideal seria salvar esse valor num Banco de Dados ou num arquivo texto.
Vai que durante a votação dá um queda de energia. Todo mundo vai ter que votar de novo pois a variavel foi perdida na memória.....
_________________
André Rodrigues |
|
| Voltar ao Topo |
|
|
carlosmoretrip
Novato
Registrado: Domingo, 25 de Julho de 2010
Mensagens: 7
|
| Enviada: Seg Jul 26, 2010 8:32 pm Assunto: =) |
|
|
| Opa pessoal, deu certo, muito obrigado! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
