mcs/mbas/Test/tests/conversions/ExpConversionDecimaltoByteA.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Module ExpConversionDecimaltoByteA
   7         Sub Main()
   8                 Dim i as Boolean = False
   9                 try
  10                         Dim a as Byte
  11                         Dim b as Decimal = 3000000000
  12                         a = CByte(b)
  13                 Catch e as System.Exception
  14                                 System.Console.WriteLine(" Arithmetic operation resulted in an overflow.")
  15                                 i = True
  16                 End Try
  17                 if i = False Then
  18                                 System.Console.WriteLine("Decimal to Byte Conversion is not working properly.")
  19                 End if
  20         End Sub
  21 End Module