| 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. |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | bournival | 40 | Public MustInherit Class SuperIntersection |
| 2 | bournival | 130 | Friend Shared numMax As Integer |
| 3 | Private Num As Integer | ||
| 4 | bournival | 40 | |
| 5 | bournival | 130 | |
| 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 | bournival | 40 | End Class |