Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

[DELPHi7] Formulario de Pergunta


bidoow
 Compartilhar

Posts Recomendados

Ai galera, vo cria isso daqui que é basico, mas para quem ta começando para ter uma ideia já ta bom. Se for aprimorando o programa fica legal! :)

 

123bqm.jpg

Basicao!

 

Para fazer igual o meu : Adicione 11 Labels (aba Standard) , 2 Buttons e 2 Edits (aba Standard ambos).

 

Organize assim :

 

Pergunta (label 1) EDIT 1 BUTTON 1

 

OPÇÃO DE RESPOSTA ( LABEL 2 )

OPÇÃO DE RESPOSTA ( LABEL 3 )

OPÇÃO DE RESPOSTA ( LABEL 4 )

OPÇÃO DE RESPOSTA ( LABEL 5 )

PONTOS ( LABEL 6 )

 

Pergunta (label 7) EDIT 2 BUTTON 2

 

OPÇÃO DE RESPOSTA ( LABEL 8 )

OPÇÃO DE RESPOSTA ( LABEL 9 )

OPÇÃO DE RESPOSTA ( LABEL 10 )

OPÇÃO DE RESPOSTA ( LABEL 11 )

 

(use o meu da foto para auxiliar)

 

Clique no BUTTON 2, vá ao Object Inspetor, coloque ENABLED = FALSE

 

De um duplo clique sobre o BUTTON 1 , apague tudo e coloque :

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if Edit1.Text = 'A' then

begin

ShowMessage('Acertou !');

Label6.Caption:= 'Pontos : 1';

Button1.Enabled:= False;

Button2.Enabled:= True;

end

else begin

ShowMessage('Errou');

Button1.Enabled:= False;

Button2.Enabled:= True;

end;

end;

 

Agora de um duplo clique sobre o BUTTON 2 , apague tudo e coloque :

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if Edit2.Text = 'C' then

begin

ShowMessage('Acertou !');

Button2.Enabled:= False;

Label6.Caption:= 'Pontos : 2';

end

else begin

ShowMessage('Errou');

Button2.Enabled:= False;

end;

end;

 

end.

 

Explicando:

 

if Edit1.Text = 'A' then //a letra A será a certa, dai você muda conforme sua resposta

if Edit2.Text = 'C' then //a letra C será a certa, dai você muda conforme sua resposta

 

Pq eu pedi pra muda a label 6 para pontos? Porque quando voce ACERTAR ela vai muda [ ShowMessage('Acertou !');

Label6.Caption:= 'Pontos : 1'; ]

 

Nunca se esqueça se criar mais EDIT's, de mudar o EDIT. coloque Edit3.Text , Edit4.Text , e assim vai indo ...

 

Dai nos BUTTON você coloca no caption = OK

E na label 1 coloca a pergunta, na label 2 até a 5 as opções de resposta.

Na label 7 coloque a pergunta, na label 8 até a 11 as opçoes de resposta.

 

O BUTTON2 nois botamos como false, pq? para que quando ele responder a 1, o botão estiver desabilitado, e quando ele responder, o botao abilitar. (Button2.Enabled:= True;)

 

Muito Simples mesmo, acabei fazendo ai pq nao tinha nada pra faze, e é legal sempre criar umas coisinhas assim.

 

vlw galera.

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.