Urna Eletrônica em Visual Basic 2010

[caption id="attachment_1639" align="alignnone" width="500"]visual basic urna eletronica visual basic urna eletronica[/caption] 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.

Loading