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.
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