'*************************************************************************************
'* Name:  CS 100-01                                                                  *
'* Program:  Random Numbers Sort                                                     *
'* Date:  4/8/03                                                                     *
'* Description:  This program is designed to demonstrate random numbers and the      *
'*               Bubble Sort                                                         *
'*************************************************************************************

Option Explicit

'Global variables
Dim intInFileNum As Integer

Private Sub Form_Load()
    Randomize
End Sub

Private Sub PrintRightAlignedData(strPrintData As String, intPos As Integer)
    Dim intFormattedLen As Integer
    Dim intTabPos As Integer
    
    intFormattedLen = Len(strPrintData)
    intTabPos = intPos - intFormattedLen
    picSort.Print Tab(intTabPos); strPrintData;
End Sub

Private Sub btnStart_Click()
    Const intMAX_NUMS = 15
    Const intMAX_WIDTH = 5

    Dim intCount1 As Integer
    Dim intCount2 As Integer
    Dim intPos As Integer
    Dim intRandNum(1 To intMAX_NUMS, 1 To 2) As Integer
    Dim intTempNum As Integer

    'Generate random numbers
    For intCount1 = 1 To intMAX_NUMS
        intRandNum(intCount1, 1) = Int(Rnd * 100)
        intRandNum(intCount1, 2) = intRandNum(intCount1, 1)
    Next intCount1

    'Sort random numbers
    For intCount1 = 1 To intMAX_NUMS - 1
        For intCount2 = intCount1 + 1 To intMAX_NUMS
            If intRandNum(intCount1, 2) > intRandNum(intCount2, 2) Then
                intTempNum = intRandNum(intCount2, 2)
                intRandNum(intCount2, 2) = intRandNum(intCount1, 2)
                intRandNum(intCount1, 2) = intTempNum
            End If
        Next intCount2
    Next intCount1
    
    'Print random numbers
    picSort.Cls
    For intCount1 = 1 To intMAX_NUMS
        intPos = intMAX_WIDTH
        Call PrintRightAlignedData(FormatNumber(intRandNum(intCount1, 1), 0), intPos)
        intPos = intPos + intMAX_WIDTH
        Call PrintRightAlignedData(FormatNumber(intRandNum(intCount1, 2), 0), intPos)
        picSort.Print
    Next intCount1
End Sub

Private Sub btnEnd_Click()
    Close
    End
End Sub