ALGUEM ME AJUDE NUM FORM PARA AS ELEICOES 2010...
Gostaria de ajuda, pois AMANHÃ tenho uma prova de VB 6.0 onde provavelmente terei que desenvolver um projeto sobre as eleições 2010.
Na prova de lógica tivemos que desenvolver um algoritmo onde devÃamos contabilizar os voto dos eleitores onde as informações obedeciam aos seguintes códigos:
1,2,3,4 = respectivos candidatos
5 = voto nulo
6 = voto em branco
Para saber:
total de votos para cada candidato
total de votos nulos
total de votos em branco
Gostaria que alguem me ajudasse com alguma ideia de como desenvolver isso no VB
Obrigado
[txt-color=#0000f0] [/txt-color][txt-size=2] [/txt-size]
Na prova de lógica tivemos que desenvolver um algoritmo onde devÃamos contabilizar os voto dos eleitores onde as informações obedeciam aos seguintes códigos:
1,2,3,4 = respectivos candidatos
5 = voto nulo
6 = voto em branco
Para saber:
total de votos para cada candidato
total de votos nulos
total de votos em branco
Gostaria que alguem me ajudasse com alguma ideia de como desenvolver isso no VB
Obrigado
[txt-color=#0000f0] [/txt-color][txt-size=2] [/txt-size]
Olá.
Você pretende usa banco de dados nesse programa?
Você pretende usa banco de dados nesse programa?
oi ASHKATCHUP
Sim, tmb desenvolvemos uma prova de banco de dados com esse msm problema onde tinhamos que armazenar os votos, bem como os candidatos e seus respetivos partidos politicos.
poderia me ajudar???
obrigado
Sim, tmb desenvolvemos uma prova de banco de dados com esse msm problema onde tinhamos que armazenar os votos, bem como os candidatos e seus respetivos partidos politicos.
poderia me ajudar???
obrigado
Te add no msn pra trocarmos uma idéia.
TblCandidato(será usado para preencher o form da votação
ID
Nome
tblVoto
ID
IDCandidato
Voto
tblVotos nulos
id
voto
tblVotoBranco
Id
Voto
Uma form com com option button ou foto do candidato ou um campo para ser digitador a opção de foto
para registrar o voto
Ums string byte para receber o candidado escolhido
digamos que o eleitor vai digitar a opção 1,2,3,4,5,6
dim Votoscomputados as integer
dim ADED
if campo=5 then
set rs1=cnn.execute ([Ô]select Voto From tblvotoBranco[Ô])
if rs1.eof then
votoscomputados=1
ADED=0
else
votoscomputados=rs1!Voto+1
ADED=1
end if
rs1.close
set rs1=nothing
if aded=0 then
cnn.execute [Ô]Insert into tblVotobranco(Voto)Values(voto+1)
else
cnn.execute [Ô]Update tblVotoBranco Set Voto=[Ô] & votoscomputados
end if
elseif campo =6 then
set rs1=cnn.execute ([Ô]select Voto From tblvotoNulo[Ô])
if rs1.eof then
votoscomputados=1
ADED=0
else
votoscomputados=rs1!Voto+1
ADED=1
end if
rs1.close
set rs1=nothing
if aded=0 then
cnn.execute [Ô]Insert into tblVotonulo(Voto)Values(voto+1)
else
cnn.execute [Ô]Update tblVotoNulo Set Voto=[Ô] & votoscomputados
end if
else
Set rs1= cnn.execute([Ô]Select voto From tblFVoto Where IDCandidato=[Ô] & campoDigitado)
if rs1.eof then
votoscomputados=1
ADED=0
else
votoscomputados=rs1!Voto+1
ADED=1
end if
rs1.close
set rs1=nothing
if aded=0 then
cnn.execute [Ô]Insert into tblVotobranco(IDCandidato,Voto)Values([ô][Ô] & campodigitado & [Ô][ô],[ô][Ô] & votoscomputados & [Ô][ô][Ô])
else
cnn.execute [Ô]Update tblVotoBranco Set Voto=[ô][Ô] & votoscomputados & [Ô][ô] Where IDCandidato=[Ô] & campodigitado
end if
end if
a lógica é a seguinte
se não existir voto insere um novo registro, se existir soma + 1 nos votos existentes.
Obs co campo de digitação do candidato, vc deve coibir a digitação que não seja de 1 a 6
para pegar o resultado
qtde votos nulos basta fazer um select na tblvotonulo
qtde votos brancos basta fazer um select na tblvotoBranco
para pegar a qtde de voto de cada candidato
basta fazer o select pelo id do candidato ordenado pelo campo voto
ID
Nome
tblVoto
ID
IDCandidato
Voto
tblVotos nulos
id
voto
tblVotoBranco
Id
Voto
Uma form com com option button ou foto do candidato ou um campo para ser digitador a opção de foto
para registrar o voto
Ums string byte para receber o candidado escolhido
digamos que o eleitor vai digitar a opção 1,2,3,4,5,6
dim Votoscomputados as integer
dim ADED
if campo=5 then
set rs1=cnn.execute ([Ô]select Voto From tblvotoBranco[Ô])
if rs1.eof then
votoscomputados=1
ADED=0
else
votoscomputados=rs1!Voto+1
ADED=1
end if
rs1.close
set rs1=nothing
if aded=0 then
cnn.execute [Ô]Insert into tblVotobranco(Voto)Values(voto+1)
else
cnn.execute [Ô]Update tblVotoBranco Set Voto=[Ô] & votoscomputados
end if
elseif campo =6 then
set rs1=cnn.execute ([Ô]select Voto From tblvotoNulo[Ô])
if rs1.eof then
votoscomputados=1
ADED=0
else
votoscomputados=rs1!Voto+1
ADED=1
end if
rs1.close
set rs1=nothing
if aded=0 then
cnn.execute [Ô]Insert into tblVotonulo(Voto)Values(voto+1)
else
cnn.execute [Ô]Update tblVotoNulo Set Voto=[Ô] & votoscomputados
end if
else
Set rs1= cnn.execute([Ô]Select voto From tblFVoto Where IDCandidato=[Ô] & campoDigitado)
if rs1.eof then
votoscomputados=1
ADED=0
else
votoscomputados=rs1!Voto+1
ADED=1
end if
rs1.close
set rs1=nothing
if aded=0 then
cnn.execute [Ô]Insert into tblVotobranco(IDCandidato,Voto)Values([ô][Ô] & campodigitado & [Ô][ô],[ô][Ô] & votoscomputados & [Ô][ô][Ô])
else
cnn.execute [Ô]Update tblVotoBranco Set Voto=[ô][Ô] & votoscomputados & [Ô][ô] Where IDCandidato=[Ô] & campodigitado
end if
end if
a lógica é a seguinte
se não existir voto insere um novo registro, se existir soma + 1 nos votos existentes.
Obs co campo de digitação do candidato, vc deve coibir a digitação que não seja de 1 a 6
para pegar o resultado
qtde votos nulos basta fazer um select na tblvotonulo
qtde votos brancos basta fazer um select na tblvotoBranco
para pegar a qtde de voto de cada candidato
basta fazer o select pelo id do candidato ordenado pelo campo voto
O problema foi resolvido?
Tópico encerrado , respostas não são mais permitidas