Receber Valores

[traira007]

To com um jogo de perguntas e respostas..t

na hora dos resultados quero que um campo receba o nº de perguntas erradas e outra para o numero de perguntas certas..

Outro campo para calcular a % porcentagem de acertos e erros..

ce puder me ajudar..

é pra amanha esse jogo

[Churc]

tipo, se você já tem o jogo feito, declare 2 variaveis globais, ou

seja emcima de implementation exemplo

vai estar

var

Form1: TForm1;

iAcertos, iErros: Integer;

implementation

ai no evento OnCreate do Form você zera estes valores

iAcertos := 0;

iErros := 0;

Pra cada pergunta que o cara acertar, você joga +1 no iAcertos, e cada uma que ele errar, você joga +1 no iErros ficando

se ele acertar

iAcertos := iAcertos + 1;

se ele errar

iErros := iErros + 1;

Pra você mostrar, vamos supor que você queira mostrar num edit, o que acho errado o certo é usar Label mas beleza então seria

EditdeAcerto.Text := InttoStr(iAcertos); <-- Edit que vai mostrar a quantidade de acertos

EditdeErros.Text := InttoStr(iErros); <-- Edit que vai mostrar a quantidade de erros

pra tirar porcentagem de acertos seria

Valor de Acertos / Numero total de perguntas * 100

Pra passar pro edit seria

PorcentagemdeAcerto.Text := InttoStr(Trunc((iAcertos / iTotaldePerguntas) * 100)) + '%';

pra tirar de erro seria o que faltou da porcentagem de acerto tipo

PorcentagemdeErro.Text := InttoStr(100 - Trunc((iAcertos / iTotaldePerguntas) * 100)) + '%';

deve ser isso, lembrando que em iTotaldePerguntas você deve colocar o valor total de perguntas que tem no jogo, exemplo 15

entendeu mais ou menos?

abraço

[Guest Roger]

tipo, se você já tem o jogo feito, declare 2 variaveis globais, ou

seja emcima de implementation exemplo

vai estar

var

Form1: TForm1;

iAcertos, iErros: Integer;

implementation

ai no evento OnCreate do Form você zera estes valores

iAcertos := 0;

iErros := 0;

Pra cada pergunta que o cara acertar, você joga +1 no iAcertos, e cada uma que ele errar, você joga +1 no iErros ficando

se ele acertar

iAcertos := iAcertos + 1;

se ele errar

iErros := iErros + 1;

Pra você mostrar, vamos supor que você queira mostrar num edit, o que acho errado o certo é usar Label mas beleza então seria

EditdeAcerto.Text := InttoStr(iAcertos); <-- Edit que vai mostrar a quantidade de acertos

EditdeErros.Text := InttoStr(iErros); <-- Edit que vai mostrar a quantidade de erros

pra tirar porcentagem de acertos seria

Valor de Acertos / Numero total de perguntas * 100

Pra passar pro edit seria

PorcentagemdeAcerto.Text := InttoStr(Trunc((iAcertos / iTotaldePerguntas) * 100)) + '%';

pra tirar de erro seria o que faltou da porcentagem de acerto tipo

PorcentagemdeErro.Text := InttoStr(100 - Trunc((iAcertos / iTotaldePerguntas) * 100)) + '%';

deve ser isso, lembrando que em iTotaldePerguntas você deve colocar o valor total de perguntas que tem no jogo, exemplo 15

entendeu mais ou menos?

abraço