Visual Basic Programming Code for HealthCare Takeover
‘Programmer: Ken Maddox
‘Date: 02/21/2010
‘Description: VB Program – This program calculates
‘the the Democratic plan to take over health care in America
This plan worked so well for the takeover of the Banking and Auto Industry the Libs are applying it to your health care.
Constant PublicTaxRate As Integer = 35%
Constant IncreaseRegulations As Integer =8
Constant VillainizeInsuranceCompanies As Integer = 5
Constant VillainizeDoctors As Integer = 4
Dim PublicSatisfaction As Integer
Option Strict On
Public Class MainForm
Private Sub CalculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateButton.Click
‘Input your satisfaction with current health care in America
PublicSatisfaction = Integer.Parse(PublicSatisfaction.Text)
‘Perform the mathmatical equasions
If PublicSatisfaction > 90% Then
PublicSatisfactionTextBox = ((IncreaseRegulations / VillainizeInsuranceCompanies) + VillainizeDoctors)
PublicSatisfaction = Integer.Parse(PublicSatisfaction.Text)
End If
If PublicSatisfaction > 70% Then
PublicSatisfactionTextBox = ((IncreaseRegulations / VillainizeInsuranceCompanies) + VillainizeDoctors)
PublicSatisfaction = Integer.Parse(PublicSatisfaction.Text)
End If
If PublicSatisfaction > 50% Then
PublicSatisfactionTextBox = ((IncreaseRegulations / VillainizeInsuranceCompanies) + VillainizeDoctors)
PublicSatisfaction = Integer.Parse(PublicSatisfaction.Text)
End If
If PublicSatisfaction > 30% Then
PublicSatisfactionTextBox = ((IncreaseRegulations / VillainizeInsuranceCompanies) + VillainizeDoctors)
PublicSatisfaction = Integer.Parse(PublicSatisfaction.Text)
End If
If PublicSatisfaction > 10% Then
MessageBox.Show(“Type Your Yearly Income in the Box Provided”, MessageBoxIcon.Exclamation“)
TaxpayerYearlyIncome = TaxpayerYearlyIncome – (CurrentPublicTaxRate – IncreaseRegulations) – (VillainizeInsuranceCompanies – VillainizeDoctors)
MessageBox.Show(“Oh just send it all in and if there is any left we will send it back”, “Were taking appointments for office visits, we have a spot avaliable Monday at 10:00AM October 2016,” Can I pencil you in?”, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.ClickEnd Sub
Freedom.Clear(), Dignity.Clear(), Wallet.Clear()
‘Exit button to close the program
Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click
Me.Close()
End Sub
End Class
