OOP2008C01.WjStudentIDSelector [2008-03-11-PM-09-06-44]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Object Oriented Programming 2008, Class 01, Serving TSINT_2010級_夜四技_忠班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     OOP2008C01.WjStudentIDSelector
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -  
'     OOP2008C01.WjStudentIDSelector [2008-03-11-PM-09-06-44]
'     Version: 1.00.02
'     Last Updated: (2008 03 11 PM 09 04 09)
' -   -   -   -   -   -  
'     OOP2008C01.WjStudentIDSelector [2008-03-04-PM-08-58-59]
'     Version: 1.00.01
'     Last Updated: (2008 03 11 PM 09 03 15)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class WjStudentIDSelector

    Private m_MaxStudentIdNumber As Integer
    Private m_MinStudentIdNumber As Integer = 1

    Public Sub New(ByVal MaxStudentIdNumber As Integer)
        ' ok

        Me.m_MaxStudentIdNumber = MaxStudentIdNumber

    End Sub

    Public Function SelectAStudentIdNumber() As Integer
        ' ok
        Dim myRandom As System.Random

        myRandom = New System.Random

        Dim myRandomNumber As Integer
        myRandomNumber = myRandom.Next

        Return (myRandomNumber Mod Me.m_MaxStudentIdNumber) + 1

    End Function

End Class ' WjStudentIDSelector