RESOLVER GABARITOS
Como poderia fazer pra verificar quais as respostas estariam certas em um gabarito? tipow assim:
criei um BD, e nele tem os bancos mat1,mat2,mat3,mat4...mat32.
como faria pra comparar as respostas? como no exemplo abaixo:
no programa a textbox pra vc digitar o seu gabarito, e no banco de dados o gabarito correto, como faço pra ele verificar se a resposta está certa, e se naum estiver, ele de uma nota parcial...
gabarito correto:
_resposta1= 31(ou seja, as respostas corretas são 01,02,04,08,16 e 32)
e a pessoa coloque na textbox como resposta 13(respostas 01,04,08), para que o vb calcule e de a porcentagem de acertos, eh claro, se a pessoa marcar uma resposta que não esteja correta, o vb perceba e de como nota 0%
Agradeço
criei um BD, e nele tem os bancos mat1,mat2,mat3,mat4...mat32.
como faria pra comparar as respostas? como no exemplo abaixo:
no programa a textbox pra vc digitar o seu gabarito, e no banco de dados o gabarito correto, como faço pra ele verificar se a resposta está certa, e se naum estiver, ele de uma nota parcial...
gabarito correto:
_resposta1= 31(ou seja, as respostas corretas são 01,02,04,08,16 e 32)
e a pessoa coloque na textbox como resposta 13(respostas 01,04,08), para que o vb calcule e de a porcentagem de acertos, eh claro, se a pessoa marcar uma resposta que não esteja correta, o vb perceba e de como nota 0%
Agradeço
vc pode usar usar por exemplo um if ou ate mesmo um select case por exemplo
digamos q a resposta da questão 10 seja a letra B vc var o select para o campo ou melhor faz um if por exemplo
dim acerto as single
if text10.text = rs![gabarito10] then
vacerto = 10.00
else
vacerto = 0
then
vc pode tb ao inves de usar o recordset direto para comparar, poderia carregar os dados em textbox invisiveis e mandar compara-los
if text10.text = text??.text then
else
end if
digamos q a resposta da questão 10 seja a letra B vc var o select para o campo ou melhor faz um if por exemplo
dim acerto as single
if text10.text = rs![gabarito10] then
vacerto = 10.00
else
vacerto = 0
then
vc pode tb ao inves de usar o recordset direto para comparar, poderia carregar os dados em textbox invisiveis e mandar compara-los
if text10.text = text??.text then
else
end if
solucionou a sua duvida
Tópico encerrado , respostas não são mais permitidas