The math functions in Visual Basic 6 have been replaced by equivalent methods in the System.Math class of the .NET Framework.
The .NET Framework math methods are functionally identical to their Visual Basic 6 counterparts, although some have slightly different names. For example, the .NET Framework equivalent of the Visual Basic 6 Atn function is Atan. The following table lists the Visual Basic 6 math function names and the equivalent .NET Framework methods.
Visual Basic 6 function | Visual Basic .NET method | Description |
---|---|---|
Abs | Returns the absolute value of a specified number. | |
Atn | Returns a Double value containing the angle whose tangent is the specified number. | |
Cos | Returns a Double value containing the cosine of the specified angle. | |
Exp | Returns a Double value containing e (the base of natural logarithms) raised to the specified power. | |
Log | Returns a Double value containing the logarithm of a specified number. This method is overloaded and can return either the natural (base e) logarithm of a specified number or the logarithm of a specified number in a specified base. | |
Round | Returns a Double value containing the number nearest the specified value. Additional round functions are available as methods of the intrinsic types such as |
|
Sgn | Returns an Integer value indicating the sign of a number. | |
Sin | Returns a Double value specifying the sine of an angle. | |
Sqr | Returns a Double value specifying the square root of a number. | |
Tan | Returns a Double value containing the tangent of an angle. |
In addition, the .NET Framework math class provides constants and other static methods for trigonometric, logarithmic, and other common mathematical functions. All of these can be used in a Visual Basic program.
To use these functions without qualification, import the System.Math namespace into your project by adding the following code to the top of the source code:
Imports System.Math
Class:
This example uses the Abs method of the Math class to compute the absolute value of a number.
Imports System.Math ... Dim MyNumber As Double MyNumber =Abs(
50.3)
' Returns 50.3. MyNumber =Abs(
-50.3)
' Returns 50.3.
This example uses the Atan method of the Math class to calculate the value of pi.
Imports System.Math ... Dim pi As Double pi = 4 *Atan(
1)
' Calculate the value of pi.
This example uses the Cos method of the Math class to return the cosine of an angle.
Imports System.Math ... Dim MyAngle, MySecant As Double MyAngle = 1.3 ' Define angle in radians. MySecant = 1 /Cos(
MyAngle)
' Calculate secant.
This example uses the Exp method of the Math class to return e raised to a power.
Imports System.Math ... Dim MyAngle, MyHSin As Double ' Define angle in radians. MyAngle = 1.3 ' Calculate hyperbolic sine. MyHSin = (Exp(
MyAngle)
-Exp(
-1 * MyAngle)
) / 2
This example uses the Log method of the Math class to return the natural logarithm of a number.
Imports System.Math ... Dim MyAngle, MyLog As Double ' Define angle in radians. MyAngle = 1.3 ' Calculate inverse hyperbolic sine. MyLog =Log(
MyAngle + Sqrt(MyAngle * MyAngle + 1))
This example uses the Round method of the Math class to round a number to the nearest integer.
Imports System.Math ... Dim MyVar1 As Double = 2.8 Dim MyVar2 As Double MyVar2 =Round(MyVar1) ' Returns 3.
This example uses the Sign method of the Math class to determine the sign of a number.
Imports System.Math ... Dim MyVar1, MyVar2, MyVar3 As Double Dim MySign As Integer MyVar1 = 12 MyVar2 = -2.4 MyVar3 = 0 MySign =Sign(
MyVar1)
' Returns 1. MySign =Sign(
MyVar2)
' Returns -1. MySign =Sign(
MyVar3)
' Returns 0.
This example uses the Sin method of the Math class to return the sine of an angle.
Imports System.Math ... Dim MyAngle, MyCosecant As Double MyAngle = 1.3 ' Define angle in radians. MyCosecant = 1 /Sin(
MyAngle)
' Calculate cosecant.
This example uses the Sqrt method of the Math class to calculate the square root of a number.
Imports System.Math ... Dim MySqr As Double MySqr =Sqrt(
4)
' Returns 2. MySqr =Sqrt(
23)
' Returns 4.79583152331272. MySqr =Sqrt(
0)
' Returns 0. MySqr =Sqrt(
-4)
' Generates an OverFlow Exception error.
This example uses the Tan method of the Math class to return the tangent of an angle.
Imports System.Math ... Dim MyAngle, MyCotangent As Double MyAngle = 1.3 ' Define angle in radians. MyCotangent = 1 /Tan(
MyAngle)
' Calculate cotangent.