A
Re: L'opération arithmétique a provoqué un dépassement de ca
Je l'ai fais moi celui là donc ya peut être fautes mais j'en ai pas trouve.
Code:
Public Class Version
Public major As UInteger = 0
Public minor As UInteger = 0
Public release As UInteger = 0
Public revision As UInteger = 0
Public patch As UInteger = 0
Public buildType As UInteger = 0
Public protocolId As UInteger = 11
Public Function Version()
Return Me
End Function
Public Function getTypeId()
Return 11
End Function
Public Function initVersion(ByVal param1 As UInteger, ByVal param2 As UInteger, ByVal param3 As UInteger, ByVal param4 As UInteger, ByVal param5 As UInteger, ByVal param6 As UInteger)
Me.major = param1
Me.minor = param2
Me.release = param3
Me.revision = param4
Me.patch = param5
Me.buildType = param6
Return Me
End Function
Public Function reset()
Me.major = 0
Me.minor = 0
Me.release = 0
Me.revision = 0
Me.patch = 0
Me.buildType = 0
Return Nothing
End Function
Public Function serialize(ByVal param1 As DofusWriter)
If Me.major < 0 Then
Throw New Exception("Forbidden value (" + Me.major + ") on element major.")
End If
param1.WriteByte(Me.major)
If (Me.minor < 0) Then
Throw New Exception("Forbidden value (" + Me.minor + ") on element minor.")
End If
param1.WriteByte(Me.minor)
If (Me.release < 0) Then
Throw New Exception("Forbidden value (" + Me.release + ") on element release.")
End If
param1.WriteByte(Me.release)
If (Me.revision < 0 Or Me.revision > 65535) Then
Throw New Exception("Forbidden value (" + Me.revision + ") on element revision.")
End If
param1.WriteInt16(Me.revision)
If (Me.patch < 0) Then
Throw New Exception("Forbidden value (" + Me.patch + ") on element patch.")
End If
param1.WriteByte(Me.patch)
param1.WriteByte(Me.buildType)
Return Me
End Function
Public Function deserialize(ByVal param1 As DofusReader)
Me.major = param1.ReadByte()
If Me.major < 0 Then
Throw New Exception("Forbidden value (" + Me.major + ") on element major.")
End If
Me.minor = param1.ReadByte()
If (Me.minor < 0) Then
Throw New Exception("Forbidden value (" + Me.minor + ") on element minor.")
End If
Me.release = param1.ReadByte()
If (Me.release < 0) Then
Throw New Exception("Forbidden value (" + Me.release + ") on element release.")
End If
Me.revision = param1.ReadUnSignedshort()
If (Me.revision < 0 Or Me.revision > 65535) Then
Throw New Exception("Forbidden value (" + Me.revision + ") on element revision.")
End If
Me.patch = param1.ReadByte()
If (Me.patch < 0) Then
Throw New Exception("Forbidden value (" + Me.patch + ") on element patch.")
End If
Me.buildType = param1.ReadByte()
If (Me.buildType < 0) Then
Throw New Exception("Forbidden value (" + Me.patch + ") on element patch.")
End If
Return Me
End Function
End Class