Informar o numero de Acertos e Errados
Ola Pessoal!
Eu estou precisando de uma ajuda, sobre um programinha que eu adaptei para estudar. O programa é basiado no Show do Milhão, eu tenho o codigo deste jogo feito em delphi e refiz todo ele eliminando algumas coisas. como por exemplo, a parte que tem, [ cartas, universitarios, pulo, etc..] deixando apenas a pergunta e respostas o programa ta funcionando 100¬, acontece que eu gostaria que o programa informasse a quantidade de perguntas que eu ACERTEI e ERREI, por exemplo:
se eu começar a jogar e for acertando ele vá computando o numero de acertos e erros. no final quando eu for sair do programa ele informe o total de ACERTOS e ERROS. com um aviso de ´ VOCE ACERTOU 23 PERGUNTAS E ERROU 40 PERGUNTAS]´o jogo tem uma pergunta e 4 respostas só que 1 é verdadeira.
DESDE JÁ AGRADEÇO!
Eu estou precisando de uma ajuda, sobre um programinha que eu adaptei para estudar. O programa é basiado no Show do Milhão, eu tenho o codigo deste jogo feito em delphi e refiz todo ele eliminando algumas coisas. como por exemplo, a parte que tem, [ cartas, universitarios, pulo, etc..] deixando apenas a pergunta e respostas o programa ta funcionando 100¬, acontece que eu gostaria que o programa informasse a quantidade de perguntas que eu ACERTEI e ERREI, por exemplo:
se eu começar a jogar e for acertando ele vá computando o numero de acertos e erros. no final quando eu for sair do programa ele informe o total de ACERTOS e ERROS. com um aviso de ´ VOCE ACERTOU 23 PERGUNTAS E ERROU 40 PERGUNTAS]´o jogo tem uma pergunta e 4 respostas só que 1 é verdadeira.
DESDE JÁ AGRADEÇO!
José Silva
Curtidas 0
Respostas
Ruysalles
09/06/2004
Crie 02 variávies do tipo integer uma para armazenar os acertos e outra para armazenar os erros.
Por exemplo
var
Lint_acerto, Lint_erro: integer;
begin
if <questao-certa> then
Lint_acerto := Lint_acerto + 1
else
Lint_erro := Lint_erro + 1;
end;
Por exemplo
var
Lint_acerto, Lint_erro: integer;
begin
if <questao-certa> then
Lint_acerto := Lint_acerto + 1
else
Lint_erro := Lint_erro + 1;
end;
GOSTEI 0
José Silva
09/06/2004
Eu fiz dessa maneira como estar abaixo:
[b:306cadef52]function TfrmEscrita.AcertoErro: integer;[/b:306cadef52]
VAR
[b:306cadef52] acerto: integer;
erro: integer;[/b:306cadef52]
[b:306cadef52]begin[/b:306cadef52]
[b:306cadef52]if acerto then [/b:306cadef52]<<<<AQUI É ONDE MOSTRA O ERRO
acerto:= acerto + 1
[b:306cadef52]else[/b:306cadef52]
erro:= erro + 1;
[b:306cadef52]end;[/b:306cadef52]
só que da uma mensagem de erro informando: [b:306cadef52]Type of expression must be BOOLEAN.[/b:306cadef52]
O que eu gostaria é que ele informasse da seguinte forma:
RESULTADO TOTAL
VOCÊ ACERTOU: 25 PERGUNTAS
VOCÊ ERROU: 25 PERGUNTAS
TOTAL DE PONTOS: 25 PONTOS
[ok]
caso queiram da uma olhada no fonte eu envirei
[b:306cadef52]function TfrmEscrita.AcertoErro: integer;[/b:306cadef52]
VAR
[b:306cadef52] acerto: integer;
erro: integer;[/b:306cadef52]
[b:306cadef52]begin[/b:306cadef52]
[b:306cadef52]if acerto then [/b:306cadef52]<<<<AQUI É ONDE MOSTRA O ERRO
acerto:= acerto + 1
[b:306cadef52]else[/b:306cadef52]
erro:= erro + 1;
[b:306cadef52]end;[/b:306cadef52]
só que da uma mensagem de erro informando: [b:306cadef52]Type of expression must be BOOLEAN.[/b:306cadef52]
O que eu gostaria é que ele informasse da seguinte forma:
RESULTADO TOTAL
VOCÊ ACERTOU: 25 PERGUNTAS
VOCÊ ERROU: 25 PERGUNTAS
TOTAL DE PONTOS: 25 PONTOS
[ok]
caso queiram da uma olhada no fonte eu envirei
GOSTEI 0
Salsa
09/06/2004
acerto nao eh uma boolean e sim uma integer ....
c vc poe if acerto then .. isso quer dizer...
´se o acerto for verdadeiro´
tipo ... faz o seguinte cria uma funçao ex ....
cria vars la no public tipo ...
acertos, erros: integer;
depois cria a funçao ex:
function acerto: string;
begin
inc(acertos);
end;
function erros: string;
begin
inc(erros);
end;
ae eh soh comparar .. se o cara errou a pergunta roda uma funçao senao a outra ...
pronto ..... inc vai somando e talz ... ele vai aumentar la os erros ou acertos ....
ae pra mostrar o total ... eh soh vc
mostrar o acertos e erros ...
:)
c vc poe if acerto then .. isso quer dizer...
´se o acerto for verdadeiro´
tipo ... faz o seguinte cria uma funçao ex ....
cria vars la no public tipo ...
acertos, erros: integer;
depois cria a funçao ex:
function acerto: string;
begin
inc(acertos);
end;
function erros: string;
begin
inc(erros);
end;
ae eh soh comparar .. se o cara errou a pergunta roda uma funçao senao a outra ...
pronto ..... inc vai somando e talz ... ele vai aumentar la os erros ou acertos ....
ae pra mostrar o total ... eh soh vc
mostrar o acertos e erros ...
:)
GOSTEI 0