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 Fábio, fundador da Metapax — especializada em marketing e soluções digitais para clínicas e profissionais de psicologia — e criador do blog FabioBmed.

Desde 2006 trabalho com tecnologia e marketing digital. Mas os sistemas que mais me fascinam hoje são os que carregamos dentro da cabeça.

Estou entrando na psicologia, com foco em neuropsicologia — a ciência que explica por que você pensa, decide e se comporta do jeito que faz. Essa transição não é um desvio de rota: é a evolução natural de quem passou anos entendendo como sistemas funcionam — e percebeu que o mais complexo de todos ainda estava por ser mapeado.

Aqui, tudo — marketing, tecnologia, comportamento, decisões — é lido pelo mesmo prisma: a psicologia e a ciência por trás de como a mente humana realmente funciona.

www.fabiobmed.com.br