1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
Public Class Pointeur
Private _sectimeEnregFonctAnalyseurs As Int32
Private _sectimeEnreg As SortedList(Of CodeIncinerateur, SortedList(Of TypeEnreg, Int32))
Public Sub New()
_sectimeEnreg = New SortedList(Of CodeIncinerateur, SortedList(Of TypeEnreg, Int32))
End Sub
Public Property SectimeFonctAnalyseurs() As Int32
Get
Return _sectimeEnregFonctAnalyseurs
End Get
Set(value As Int32)
_sectimeEnregFonctAnalyseurs = value
End Set
End Property
Public Property Sectime(ByVal codeIncinerateur As CodeIncinerateur, ByVal typeEnreg As TypeEnreg) As Int32
Get
Return _sectimeEnreg.Item(codeIncinerateur).Item(typeEnreg)
End Get
Set(value As Int32)
_sectimeEnreg(codeIncinerateur).Item(typeEnreg) = value
End Set
End Property
Public Function Somme(ByVal codeIncinerateur As CodeIncinerateur) As Int64
End Function
End Class |
Partager