Imports System

Imports System.Diagnostics

Public Module Module1

    Public Sub Main()

        Console.WriteLine(" ")

        Console.WriteLine("Double/Decimal Performance Test")

        DoubleSpeedTest()

        DecimalSpeedTest()

        Console.WriteLine(" ")

        Console.WriteLine("Double/Decimal Precision Test")

        NotationTest()

    End Sub

    Private iterations As Integer = 100000000

​

    Private Sub DoubleSpeedTest()

        Dim watch As Stopwatch = New Stopwatch()

        watch.Start()

        Dim z As Double = 0

​

        For i As Integer = 0 To iterations - 1

            Dim x As Double = i

            Dim y As Double = x * i

            z += y

        Next

​

        watch.[Stop]()

        Console.WriteLine("Double: " & watch.ElapsedTicks)

        Console.WriteLine(z)

    End Sub

​

    Private Sub DecimalSpeedTest()

        Dim watch As Stopwatch = New Stopwatch()

        watch.Start()

        Dim z As Decimal = 0

​

        For i As Integer = 0 To iterations - 1

            Dim x As Decimal = i

            Dim y As Decimal = x * i

            z += y

        Next

​

        watch.[Stop]()

        Console.WriteLine("Decimal: " & watch.ElapsedTicks)

        Console.WriteLine(z)

    End Sub

​

    Private Sub DoublePrecisionTest()

        'create a pair of variables that get accumulated and large, and then compare to see if equal?

    End Sub

​

    Private Sub DecimalPrecisionTest()

​

    End Sub

​

    Private Sub NotationTest()

        dim  notationS as single = 99999999

        dim notationD as double = 99999999

        dim notationDec as decimal = 99999999

​

        Console.WriteLine("  ")

        Console.WriteLine("Precision also becomes an issue with greater numeric values. ")  

        Console.WriteLine("  Singles round to scientific notation at the tens of millions.  ")

        Console.WriteLine("   Scientific Notation Single - Tens of million")

        Console.WriteLine("     99,999,999")

        Console.WriteLine("     Single:" & notationS)

        Console.WriteLine("     Double:" & notationD)

        Console.WriteLine("     Decimal:" & notationDec)

​

        notationD = 9999999999999999

        notationDec = 9999999999999999

        Console.WriteLine("  ")

        Console.WriteLine("  Doubles round to scientific notation at the quadrillions.  ")

        Console.WriteLine("   Scientific Notation Double - Quadrillion")

        Console.WriteLine("     9,999,999,999,999,999")

        Console.WriteLine("     Double:" & notationD)

        Console.WriteLine("     Decimal:" & notationDec)

    End Sub

​

End Module

​

​