Urna Eletrônica em Visual Basic 2010

Recentemente foi proposta uma atividade de Visual Basic para a fixação dos conceitos e da utilização das ferramentas basicas do Visual Basic. Segue o que foi proposto:

Urna Eletrônica em Visual Basic 2010

Desenvolva uma Urna eletrônica, usando o VB.net do Visual Studio, que tenha três opções de voto (Serra, Haddad ou Nulo), onde o usuário possa votar clicando no botão CONFIRMA. Essa aplicação deve contabilizar os votos, até que o usuário clique no botão VOTAÇÃO ENCERRADA, quando isso acontecer, os votos e a devida colocação do candidato devem ser exibidos na tela.

Exemplo:

• 1º Serra – 1.300.000 votos
• 2º Haddad – 1.250.00 votos
• 3º Nulos – 400.000 votos

Desenvolvi uma Urna Eletrônica em Visual Basic 2010 super basica utilizando apenas algumas ferramentas do Visual Basic combinadas com algumas linhas de programação.

Clique aqui para baixar a Urna Eletrônica.

Clique aqui para baixar o projeto completo da Urna Eletrônica em Visual Basic 2010 (Visual Studio).

Código fonte

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnserra.Click

Txtvotos.Text += 1
MsgBox("Você Votou no SERRA. Clique Ok para Continuar.")
Btnserra.Enabled = False
Btnhadad.Enabled = False
Btnnulo.Enabled = False
Lblescolha.Enabled = False
Btnsecao.Visible = True
Btnencerrar.Visible = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhadad.Click

Txtvotoh.Text += 1
MsgBox("Você Votou no HADAD. Clique Ok para Continuar.")
Btnserra.Enabled = False
Btnhadad.Enabled = False
Btnnulo.Enabled = False
Lblescolha.Enabled = False
Btnsecao.Visible = True
Btnencerrar.Visible = True

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnnulo.Click

Txtvoton.Text += 1
MsgBox("Seu voto foi NULO. Clique Ok para Continuar.")
Btnserra.Enabled = False
Btnhadad.Enabled = False
Btnnulo.Enabled = False
Lblescolha.Enabled = False
Btnsecao.Visible = True
Btnencerrar.Visible = True

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnencerrar.Click

Btnserra.Enabled = False
Btnhadad.Enabled = False
Btnnulo.Enabled = False
Btnsair.Visible = True
lbl1.Visible = True
Lbl2.Visible = True
Lbl3.Visible = True
BtnIniciar.Visible = False
Btnserra.Visible = False
Btnhadad.Visible = False
Btnnulo.Visible = False
Btnsecao.Visible = False
Btnencerrar.Visible = False
Lblescolha.Visible = False

If Txtvotos.Text = Txtvotoh.Text Then
lbl1.Text = "Serra: " & Txtvotos.Text & " votos."
Lbl2.Text = "Hadad: " & Txtvotoh.Text & " votos."
Lbl3.Text = "Nulos: " & Txtvoton.Text & " votos."
Lblempate.Visible = True
Btnnovaeleicao.Visible = True
Lblempate.Text = "Houve um empate, necessario nova ELEIÇÃO"
Txtvotos.Text = 0
Txtvotoh.Text = 0
Txtvoton.Text = 0

ElseIf Txtvotos.Text > Txtvotoh.Text Then
lbl1.Text = "1º Serra: " & Txtvotos.Text & " votos. ELEITO."
Lbl2.Text = "2º Hadad: " & Txtvotoh.Text & " votos."
Lbl3.Text = "Nulos: " & Txtvoton.Text & " votos."

Else
lbl1.Text = "1º Hadad: " & Txtvotoh.Text & " votos. ELEITO."
Lbl2.Text = "2º Serra: " & Txtvotos.Text & " votos."
Lbl3.Text = "Nulos: " & Txtvoton.Text & " votos."

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Btnserra.Visible = False
Btnhadad.Visible = False
Btnnulo.Visible = False
Btnencerrar.Visible = False
BtnIniciar.Visible = True
Btnsecao.Visible = False
Btnsair.Visible = False
Btnnovaeleicao.Visible = False
lbl1.Visible = False
Lbl2.Visible = False
Lbl3.Visible = False
Lblempate.Visible = False
Lblescolha.Visible = False
Txtvotos.Visible = False
Txtvotoh.Visible = False
Txtvoton.Visible = False

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIniciar.Click
Btnserra.Visible = True
Btnhadad.Visible = True
Btnnulo.Visible = True
Btnencerrar.Visible = False
BtnIniciar.Enabled = False
Btnsecao.Visible = False
lbl1.Visible = False
Lbl2.Visible = False
Lbl3.Visible = False
Lblescolha.Visible = True
Txtvotos.Visible = False
Txtvotoh.Visible = False
Txtvoton.Visible = False
Btnserra.Enabled = True
Btnhadad.Enabled = True
Btnnulo.Enabled = True
Lblescolha.Enabled = True

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsecao.Click
Btnserra.Visible = False
Btnhadad.Visible = False
Btnnulo.Visible = False
Btnencerrar.Visible = False
BtnIniciar.Enabled = True
BtnIniciar.Visible = True
Btnsecao.Visible = False
Btnsair.Visible = False
lbl1.Visible = False
Lbl2.Visible = False
Lbl3.Visible = False
Lblempate.Visible = False
Lblescolha.Visible = False
Txtvotos.Visible = False
Txtvotoh.Visible = False
Txtvoton.Visible = False
End Sub

Private Sub Btnsair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsair.Click
Close()
End Sub

Private Sub Btnnovaeleicao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnnovaeleicao.Click
Btnserra.Visible = False
Btnhadad.Visible = False
Btnnulo.Visible = False
Btnencerrar.Visible = False
BtnIniciar.Enabled = True
BtnIniciar.Visible = True
Btnnovaeleicao.Visible = False
Btnsair.Visible = False
lbl1.Visible = False
Lbl2.Visible = False
Lbl3.Visible = False
Lblempate.Visible = False
Lblescolha.Visible = False
Txtvotos.Visible = False
Txtvotoh.Visible = False
Txtvoton.Visible = False
End Sub
End Class

Por favor, deixe seus comentário em relação a urna eletrônica.

Fabio Bmed

Olá! Sou Fabio, criador do blog FabioBmed, um espaço onde compartilho minha paixão por marketing digital, tecnologia, empreendedorismo e, claro, os aprendizados do meu dia a dia. Aqui você encontrará um mix de conteúdos profissionais e pessoais, sempre com insights práticos, dicas úteis e histórias reais.

Com mais de 15 anos de experiência no mercado digital e fundador da FBDigital, minha missão é inspirar e ajudar pessoas e empresas a construírem uma base sólida no universo online. Seja por meio de estratégias de marketing, ferramentas tecnológicas ou reflexões sobre o cotidiano, meu objetivo é transformar desafios em oportunidades.

Além dos conteúdos voltados para negócios e tecnologia, também compartilho momentos do meu dia a dia, ideias que aprendo pelo caminho e até curiosidades que podem fazer a diferença na sua vida. Aqui, cada post reflete minha busca por conhecimento e minha vontade de conectar pessoas e histórias.

Conecte-se comigo e acompanhe tudo sobre marketing, tendências digitais, aprendizados pessoais e muito mais. Juntos, vamos explorar o melhor do mundo digital e da vida cotidiana!

www.fabiobmed.com.br