Website may be up and down over next few months. I'm currently doing a complete overhaul of everything. Going back to simple individual .htm pages, new overall site theme, sanitizing and cleaning up html of all pages and blog posts, attempting to implement a new tooling and publishing system etc etc.

Bubble Sort

A bubble sort is a very simple and easy to understand way of sorting. Look at the example below. The procedure is passed an array of 'Integer' values. The procedure starts at the first index in the array then checks to see if the next integer in the array is smaller. If it is, the integer at the current position is swapped with the one that comes after it. Then the CurPos varible is set back to the first index in the array. The process is then repeated until the all the numbers in the array have been sorted.

VB6 Example:

Sub SortNumbers(Nums() as Integer)
  Dim CurPos As Integer
  Dim Tmp As Integer

  CurPos = LBound(Nums)
  Do While CurPos < UBound(Nums)
    If Nums(CurPos) > Nums(CurPos + 1) Then
      Tmp = Nums(CurPos + 1)
      Nums(CurPos + 1) = Nums(CurPos)
      Nums(CurPos) = Tmp

      CurPos = LBound(Nums) - 1
    End If

    CurPos = CurPos + 1
End Sub

Created by: X

Just another personal website in this crazy online world

Name of author Dean Lunz (aka Created by: X)
Computer programming nerd, and tech geek.
About Me -- Resume