The Formulaic Ho-week
as programmed in VB.NET

Dim Frustration as Integer
Dim Day as String

Private Sub btnDayMeter_Click()

Frustration = TextBox1.Text
Day = TextBox2.Text

If (Frustration >= 5) And (Frustration <= 10) Then
Label1.Text = "Gr."
ElseIf (Frustration < 5) And (Frustration >= 0) Then
Label1.Text = "Whoa...a good day."
Else :
MsgBox("Hey, stupid, it's a scale of one to ten.")
End If

If (Day = "Monday") Or (Day = "Tuesday") Or (Day = "Wednesday") Or (Day = "Thursday") Then
Label2.Text = "Life sucks a great deal."
ElseIf Day = "Friday" Then
Label2.Text = "Life semi-sucks."
ElseIf (Day = "Saturday") Or (Day = "Sunday") Then
Label2.Text = "Life is good."
Else:
MsgBox("You just don't get it, do you? Gotta use the Gregorian calendar, genius.")
End If

End Sub

I think I've been working on these programming problems for way too long, because this really amused me.

Comments