literature

Al-Gore-ithm

Deviation Actions

Published: Sep 24, 2009

295 Views

Literature Text

Al-Gore-ithm Voting Machines, Inc.

‘Hello, and welcome to the Al-Gore-ithm vote tabulating subroutine.
‘You will find that this routine is not all that dissimilar from
‘methods currently in place, but it operates in a much more
‘streamlined and fool-proof fashion.

Dim ElectionWinner as integer
Dim RepublicanCandidate as integer = 0
Dim DemocratCandidate as integer = 1
Dim LibertarianCandidate as integer = 2

ElectionWinner = Math.Random {0,1}

txtElectionResults.text = “And the Winner is…” + RepublicanCandidate

‘Well, that was easy! Let’s just clean up after ourselves so we don’t attract any
‘unwanted attention from the election auditors, shall we?

Dim VotesForMe as integer = Math.Random {999999999, 999999999999}
Dim VotesForHim as integer = Math.Random {0, 999}

‘Just in case…

Do Until VotesForMe > VotesForHim
VotesForMe = VotesForMe + 100;
VotesForHim = VotesForHim – 100;
Loop;

‘And let’s just put in one last failsafe here.

If VotesForHim > VotesForMe Then
VotesFromFlorida = 0
MessageBox.Show (“Critical Error!”, “Votes from Florida have been lost! Please recollect the votes.”)
VotesForMe = VotesForMe + 10000

MessageBox.Show(“Thank you for using Al-Gore-ithm Vote Tabulating Machine.”, “Please have a nice day, and remember: Your vote makes a difference!”)

BudgetForGlobalWarming += 1000000000

End sub.