Having Fun…

By Stu on March 6th, 2010

On my wife’s blog (2SecondsFaster.com) we put up a “Saturday Mixer” and it is a weekly “you take over the conversation” post. As a joke, I thought I would put the post rules up in VB.NET code. Below is my code for a simple Console App.

Code Snippet
  1. Module saturdayMixer
  2.  
  3.    Sub Main()
  4.       Dim saturdayMixer As String
  5.  
  6.       Console.WriteLine("Do you know the rules? (y or n)")
  7.       saturdayMixer = Console.ReadLine()
  8.       ' saturdayMixer = Console.ReadLine()
  9.  
  10.       If saturdayMixer = "y" Then
  11.          Console.WriteLine("Welcome to the Saturday Mixer!" & ControlChars.CrLf _
  12.          & "You know the rules so let us know what is on your mind and discuss whatever you want.")
  13.  
  14.       ElseIf saturdayMixer = "n" Then
  15.          Console.WriteLine("You know the drill:" & ControlChars.CrLf _
  16.          & "1. Most topics are fair game as long as it has some decency." _
  17.          & ControlChars.CrLf _
  18.          & "2. If a topic just becomes a series of personal attacks," _
  19.          & ControlChars.CrLf & "the comments will be closed." _
  20.          & ControlChars.CrLf _
  21.          & "3. This is for discussions and not wars." _
  22.          & ControlChars.CrLf _
  23.          & "4. All Lemmings must behave!")
  24.  
  25.       Else : Console.WriteLine("At least play nice!")
  26.       End If
  27.  
  28.       Console.WriteLine("Goodbye.")
  29.       Console.ReadLine()
  30.  
  31.    End Sub
  32.  
  33. End Module

 

Here is the console app for you Windows people… (open and use at your own risk).

  • Share/Bookmark

Related posts:

  1. My First VB.NET Code
  2. Hello Bracket Hell World
  3. VB.NET to C# or C# to VB.NET – Translator
Categorized under: Development.
Tagged with: , , , .

Leave a Response