REPOS_ERICCA/magicsld/SuperIntersection.vb

Public MustInherit Class SuperIntersection
    Friend Shared numMax As Integer
    Private Num As Integer


    Public Sub New()
        numMax += 1
        Me.Num = numMax
    End Sub

    ''' <summary>
    ''' Le numéro de l'intersection
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property Numero() As Integer
        Get
            Return num
        End Get

    End Property


End Class
Revision:	130
Committed:	Wed Jul 30 21:26:03 2008 UTC (16 years, 9 months ago) by bournival
File size:	496 byte(s)
Log Message:	Une mise Ă jour, car on aura peut-ĂŞtre besoin de mon code.
#	Content
1	Public MustInherit Class SuperIntersection
2	Friend Shared numMax As Integer
3	Private Num As Integer
4
5
6	Public Sub New()
7	numMax += 1
8	Me.Num = numMax
9	End Sub
10
11	''' <summary>
12	''' Le numéro de l'intersection
13	''' </summary>
14	''' <value></value>
15	''' <returns></returns>
16	''' <remarks></remarks>
17	Public ReadOnly Property Numero() As Integer
18	Get
19	Return num
20	End Get
21
22	End Property
23
24
25
26	End Class