This tutorial will show you how to create an online
poll system which makes use of AJAX, XML and LINQ and will provide
percentage results. VB.NET.
Creating Online Poll System with Percentage Results VB
This tutorial will show you how to create an online
poll system which makes use of AJAX, XML and LINQ and will provide
percentage results. VB.NET
Poll systems can be very useful for gathering a large amount
of data quickly. They usually require no registration, and are mainly
used to gather such information as opinions or trends. Visitors to your
website are usually willing to take part in Polls because they usually
do not require any personal information, and people are interested in
other's views.
In this tutorial, you will learn how to create an online voting
system where anyone can vote, and we can see the results of the poll -
including a percentage of the answers.
The system will use XML for storage of votes, and AJAX to enable
instant results. We will start by creating the structure of the XML
file:
<?xml version="1.0" encoding="utf-8"?>
<Poll>
<Vote>
<Name>Paul</Name>
<Choice>Obama</Choice>
</Vote>
<Vote>
<Name>Mike</Name>
<Choice>McCain</Choice>
</Vote>
|
Next, we can start on the ASPX page. Add in the ScriptManager and UpdatePanel tags:
<form id="form1" runat="server">
<asp:ScriptManager ID="ScriptManager1" runat="server" />
<asp:UpdatePanel ID="UpdatePanel1" runat="server">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
|
Now we can build our Poll form inside the UpdatePanel, so that AJAX can reload it without performing a full PostBack.
We will be using a TextBox, RadioButtons, Buttons, and a Label and Literal control. Our ASPX page will look something like this:
<form id="form1" runat="server">
<asp:ScriptManager ID="ScriptManager1" runat="server" />
<asp:UpdatePanel ID="UpdatePanel1" runat="server">
<ContentTemplate>
<asp:Literal ID="litResults" runat="server" visible="false"/>
What is your name? <asp:TextBox ID="txtName" runat="server" /><br />
Who is your favorite Candidate?<br />
<asp:RadioButtonList ID="radVote" runat="server">
<asp:ListItem>Obama</asp:ListItem>
<asp:ListItem>McCain</asp:ListItem>
</asp:RadioButtonList>
<asp:Button ID="butVote" runat="server" Text="Vote"
onclick="butVote_Click" /><br />
<asp:Label ID="lblStatus" runat="server" /><br />
<asp:Button ID="butResults" runat="server" Text="Show Results"
onclick="butResults_Click" />
</ContentTemplate>
</asp:UpdatePanel>
|
Notice we have two buttons on our page - one to submit the vote, and the other to show the current results.
First, we will code the submit button. We want this button to check
that a name has been entered and that an option has been selected:
Protected Sub butVote_Click(ByVal sender As Object, ByVal e As EventArgs)
If txtName.Text = "" Then
lblStatus.Text = "Please enter your name."
ElseIf radVote.SelectedItem Is Nothing Then
lblStatus.Text = "Please vote."
Else
countVote(radVote.SelectedItem.ToString())
End If
|
We used over 10 web hosting companies before we found Server Intellect. Their dedicated servers
and add-ons were setup swiftly, in less than 24 hours. We were able to
confirm our order over the phone. They respond to our inquiries within
an hour. Server Intellect's customer support and assistance are the best we've ever experienced.
The submit button doesn't perform anything but validation, we then call a method to submit the vote to the XML file:
Protected Sub countVote(ByVal theVote As String)
Try
Dim xmlDoc As XDocument = XDocument.Load(Server.MapPath("Poll.xml"))
xmlDoc.Element("Poll").Add(New XElement("Vote", New XElement("Name", txtName.Text), New XElement("Choice", theVote)))
xmlDoc.Save(Server.MapPath("Poll.xml"))
lblStatus.Text = "Thank you for your vote."
readXML()
Catch
lblStatus.Text = "Sorry, unable to process request. Please try again."
End Try
|
This method uses LINQ to first open the XML file and then add a new
element to it with the values the user submitted. We then save the
updated XML file and output the current results to the page, by calling
the readXML method:
Protected Sub readXML()
Dim xmlDoc As XDocument = XDocument.Load(Server.MapPath("Poll.xml"))
Dim votes = From vote In xmlDoc.Descendants("Vote") _
Select Name = vote.Element("Name").Value, Vote = vote.Element("Choice").Value
Dim mCount As Integer = 0
Dim oCount As Integer = 0
For Each vote In votes
If vote.Vote = "McCain" Then
mCount += 1
ElseIf vote.Vote = "Obama" Then
oCount += 1
End If
Next vote
Dim theTotal As Double = mCount + oCount
Dim mPercent As Double = (mCount / theTotal) * 100
Dim oPercent As Double = (oCount / theTotal) * 100
litResults.Visible = True
litResults.Text = "Obama: " & oCount & " votes (" & oPercent & "%).<br />"
litResults.Text = litResults.Text & "McCain: " & mCount & "
votes (" & mPercent & "%).<br /><br />"
|
Yes, it is possible to find a good web host. Sometimes it takes a while. After trying several, we went with Server Intellect
and have been very happy. They are the most professional, customer
service friendly and technically knowledgeable host we've found so far.
Again, this method makes use of LINQ to open the XML file and get
all data within. It then loops through all the data and counts the
number of votes for each candidate, then performs a simple calculation
to determine the percentage for each. Finally, we output the results to
the web page, using the Literal control.
We also code the show results button to call the readXML method:
|
Protected Sub butResults_Click(ByVal sender As Object, ByVal e As EventArgs)
readXML()
End Sub
|
The entire code-behind should like this:
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub butVote_Click(ByVal sender As Object, ByVal e As EventArgs)
If txtName.Text = "" Then
lblStatus.Text = "Please enter your name."
ElseIf radVote.SelectedItem Is Nothing Then
lblStatus.Text = "Please vote."
Else
countVote(radVote.SelectedItem.ToString())
End If
End Sub
Protected Sub countVote(ByVal theVote As String)
Try
Dim xmlDoc As XDocument = XDocument.Load(Server.MapPath("Poll.xml"))
xmlDoc.Element("Poll").Add(New XElement("Vote", New
XElement("Name", txtName.Text), New XElement("Choice", theVote)))
xmlDoc.Save(Server.MapPath("Poll.xml"))
lblStatus.Text = "Thank you for your vote."
readXML()
Catch
lblStatus.Text = "Sorry, unable to process request. Please try again."
End Try
End Sub
Protected Sub readXML()
Dim xmlDoc As XDocument = XDocument.Load(Server.MapPath("Poll.xml"))
Dim votes = From vote In xmlDoc.Descendants("Vote") _
Select Name = vote.Element("Name").Value, Vote = vote.Element("Choice").Value
Dim mCount As Integer = 0
Dim oCount As Integer = 0
For Each vote In votes
If vote.Vote = "McCain" Then
mCount += 1
ElseIf vote.Vote = "Obama" Then
oCount += 1
End If
Next vote
Dim theTotal As Double = mCount + oCount
Dim mPercent As Double = (mCount / theTotal) * 100
Dim oPercent As Double = (oCount / theTotal) * 100
litResults.Visible = True
litResults.Text = "Obama: " & oCount & " votes (" & oPercent & "%).<br />"
litResults.Text = litResults.Text & "McCain: " & mCount & "
votes (" & mPercent & "%).<br /><br />"
End Sub
Protected Sub butResults_Click(ByVal sender As Object, ByVal e As EventArgs)
readXML()
End Sub
|
|
