Mega Code Archive

 

Categories / VB.Net / Data Types

 

Create a negative hexadecimal value out of range of the UInt16 type

Class Sample    Public Shared Sub Main()         Dim sourceNumber As Short = Short.MinValue         Dim isSigned As Boolean = Math.Sign(sourceNumber.MinValue) = -1         Dim value As String = Convert.ToString(sourceNumber, 16)         Dim targetNumber As UInt16         Try            targetNumber = Convert.ToUInt16(value, 16)            If isSigned And ((targetNumber And &H8000) <> 0) Then               Throw New OverflowException()            Else                Console.WriteLine("0x{0} converts to {1}.", value, targetNumber)            End If             Catch e As OverflowException            Console.WriteLine("Unable to convert '0x{0}' to an unsigned short integer.", _                              value)         End Try      End Sub  End Class