The Weird and The Wonderful

kmoorevs wrote:

My first computer book ever was call "Sad Macs, Bombs, and Other Disasters". I
had inherited a powermac 6100 with system 7.5. I really enjoyed all the bomb
icons complete with an error number...how informative!

Something bad happened

If GlobalClassV2.Globals.Instance.ExecuteQuery2(XSQL) = True Then
Else
    Throw New Exception("GAGAL")
    Exit Function
End If

Public Class MainForm
  Inherits Form
  Public Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    ' ... 21,657 lines of whitespace...
  End Sub
End Class

Public Class MyClass


   Sub DoSomething

      ' This code is to... (obvious comments)

      Dim i as Integer ' (actual code here)

      ' Assign a value to the integer (more obvious comments)

      i = 10


   End Sub



   Sub NextMethod

      ' etc.


   End Sub





End Class

public class Naerling : Lazy<Person>{}

''' <summary>
''' Information about an animal.
''' </summary>
Public Class Animal

#Region "Constants"
   Private Const HIGHLANDER As Integer = 1
  Private Const BUNCH_MIN As Integer = 10
  Private Const COUPLE_NAME As String = "couple"
  Private Const BUNCH_NAME As String = "bunch"
  Private Const TEMPLATE_DESCRIPTION_SINGLE As String = "There is one baby {1}."
  Private Const TEMPLATE_DESCRIPTION_MANY As String = "There are a {0} of baby {1}s."

#End Region


#Region "Properties"
   ''' <summary>
  ''' The name of this type of animal (duck, hamster, ...).
  ''' </summary>
  Public Property AnimalName As String

#End Region


#Region "Methods"
   ''' <summary>
  ''' Gets a description of the number of children this animal has.
  ''' </summary>
  ''' <param name="count">The number of children.</param>
  ''' <returns>The description ("There are a couple of baby ducks.").</returns>
  Public Function GetChildrenDescription(ByVal count As Integer) As String

    ' Variables.
    Dim description As String
    Dim countWord As String


    ' Choose description based on number of children.
    If count = HIGHLANDER Then
      description = String.Format(TEMPLATE_DESCRIPTION_SINGLE, Me.AnimalName)
    Else
      If count >= BUNCH_MIN Then
        countWord = BUNCH_NAME
      Else
        countWord = COUPLE_NAME
      End If
      description = String.Format(TEMPLATE_DESCRIPTION_MANY, countWord, Me.AnimalName)
    End If


    ' Return description of children.
    Return description

  End Function

#End Region

End Class