Contagem... Será que poderão me ajudar...???

Delphi

04/09/2003

Desenvolvi um sistema de prova eletrônica onde os campos correspondentes às questões são: Quest1, Quest2, Quest3, Quest4, Quest5, Quest6... Quest20.
Esses campos só receber a letra ´C´, quando a resposta está correta e letra ´E´ quando estão errados. No campo Acertos, quero que apareça o número de letras ´C´ que aparece naquele registro e no campo Erros, deverá aparecer o número de letras ´E´ que aparecem no mesmo registro, devendo ainda, exibir no campo nota, a multiplicação de Acertos por 0,5, que é o valor de cada questão.

A minha dúvida é justamente essa, como armazenar no campo Acertos, quantos campos foram respondidos com a letra ´C´ e, no campo Erros, armazenar quantos campos foram respondidos com a letra ´E´.

Se puderem me ajudar, ficarei sinceramente grato.
Obrigado à todos do Fórum.


Pro-luck

Pro-luck

Curtidas 0

Respostas

Mmtoor

Mmtoor

04/09/2003

Prezado colega:
Para simplificar a tarefa, poderia incrementar (1) para o campo acertos sempre que a resposta cor (C) e o mesmo no campo erros quando a resposta for (E).
Desta forma, no final da prova, a contagem já estaria pronta.
Isso reduziria procedimentos.
Espero ter ajudado.
MMTOOR2003


GOSTEI 0
Alesjrp

Alesjrp

04/09/2003

vc pode criar na query um field com a propriedade calcfield
onde na propriedade onCalcFields na query voce faz a sequencia

Ex.

... Query1.OncalcFields then
begin

if estado = Acerto then
begin
Query1Nota.asstring := ´C´;
Query1Somatoria.value:=Quer1Somatoria.value+0.5;
end
else Query1Nota.asstring:=´E´;

end;


No exemplo acima criei dois fields novos:

[b]Somatoria[/b] tipo Float
[b]Nota[/b] tipo String

[/b]


GOSTEI 0
POSTAR