[DELPHi7] Formulario de Pergunta

[bidoow 0]

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! :)

 

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.

[DragonBoss 4]

legalzin , ja fiz um parecido, mas o meu, usava checkboxs (a,b,c,d) e quando acertava abria otro form com outra pergunta, mas seguindo o mesmo eskema do seu ^^

 

bom tutorial xD

 

flw

[bidoow 0]

pode cre dragon eu tava fazendo em checkbox mas deu preguisa sei lá fiz assim mesmo dai ASUHUAS

 

vo dormi flw

[Leonardodag 2]

eu tmb ja fiz mas usava radiobuttons e salvava as respostas num arquivo .ini, ai prox vez q vc abria tava as q vc botou na ultima vez!

[matheusguerra 2]

cara fico bom!

num vo fala ke ja fiz um, pq nunca fiz um em delphi, mas ja fiz um em pascal. :D ^^

[bidoow 0]

ASHAUSh vlw, o mais importante ali é o codigo, só você altera e fazer como quiser :D