Demonstrating overflows with and without checking : Overflow « Language Basics « VB.Net






Demonstrating overflows with and without checking

Demonstrating overflows with and without checking
Imports System

Public Class MainClass

   Shared Sub Main()
      Try

         Dim number1 As Integer = Int32.MaxValue ' 2,147,483,647
         Dim number2 As Integer = Int32.MaxValue ' 2,147,483,647
         Dim sum As Integer = 0

         ' output numbers
         Console.WriteLine("number1: {0}" & vbCrLf & _
            "number2: {1}", number1, number2)

         Console.WriteLine(vbCrLf & _
            "Sum integers in checked context:")

         sum = number1 + number2 ' compute sum

         Console.WriteLine(vbCrLf & _
            "Sum after operation: {0}", sum)

         ' catch overflow exception
      Catch overflowExceptionParameter As OverflowException
         Console.WriteLine(overflowExceptionParameter.ToString())

      End Try
   End Sub ' Main

End Class


           
       








Related examples in the same category