VB.NET Atan2 Example – Code Sample Syntax
VB.NET Atan2 Example – Code Sample Syntax
Purpose: – Illustrates using VB.NET Atan2 Code Example.
Purpose:
takes 2 double data type numbers and returns a double value
containing the angle (measured in radians) whose tangent is the
quotient of two specified numbers (you can convert
the radians to degrees by multiplying them by Math.PI/180)
Syntax:
Atan2(y as double, x as double)
Atan2(y as double, x as double)
Parameters | Description | y | double – y is the y coordinate of a point |
---|---|
x | double – x is the x coordinate of a point |
Result Data Type | Description | double | the angle measured in radians. (you can convert the radians to degrees by multiplying them by Math.PI/180) |
---|
Step 1: Click Visual Basic to Cut-n-paste code into clsAtan2.vb
Imports System.Math Public Class clsAtan2 Public Sub Main() '******************************************************************************** ' Purpose: takes 2 double data type numbers and returns a double value ' containing the angle (measured in radians) whose tangent is the ' quotient of two specified numbers (you can convert ' the radians to degrees by multiplying them by Math.PI/180) ' ' Syntax: Atan2(y as double, x as double) ' ' Parameter1: y - double - y is the y coordinate of a point ' ' Parameter2: x - double - x is the x coordinate of a point ' ' Result: double - the angle measured in radians. (you can ' convert the radians to degrees by multiplying ' them by Math.PI/180) ' '******************************************************************************** ' This example is from http://idealprogrammer.com Console.WriteLine("Example #1: Atan2(y as double, x as double)") Console.WriteLine(Atan2(0, 0)) ' Returns 0 'write blank line to make output easier to read Console.WriteLine() Console.WriteLine("Example #2: Atan2(y as double, x as double)") Console.WriteLine(Atan2(1, 1)) ' Returns .785398163397448 'write blank line to make output easier to read Console.WriteLine() Console.WriteLine("Example #3: Atan2(y as double, x as double)") Console.WriteLine(Atan2(1, 2)) ' Returns .463647609000806 'Prevent console from closing before you press enter Console.ReadLine() End Sub End Class |
Step 2: Click Visual Basic to Cut-n-paste code into Module1.vb
Module Module1 Sub Main() Dim myclsAtan2 As New clsAtan2 myclsAtan2.Main() End Sub End Module |
Prerequistes:
- Install Visual Basic (Express or Standard Edition)
- Install SQL Server Express
- Download Northwind and pubs Database
- Attach Northwind Database to Databases in Sql Express
- Attach pubs Database to Databases in Sql Express
Notes:
- Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
- You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb
Instructions:
- Use Visual Basic 2010 Express or Standard Edition
- Create new project;
- Click File/New Project
- Select Console Application Template
- Select Visual Basic for Language
- name of project could be VBNET_Syntax.
- Add New folder named “Functions”
- Right-click project name in solution explorer;
- add new folder;
- name of folder could be: Functions
- Add New subfolder named “MathFunctions”
- Right-click Functions folder in solution explorer;
- add new folder;
- name of folder could be: MathFunctions
- Add Class Named clsAtan2 to MathFunctions folder
- Right-click MathFunctions folder;
- add new item;
- Select class
- Class name could be clsAtan2
- Click on Visual Basic in code in step 1 above to copy code into clsAtan2.vb
- Click on Visual Basic in code in step 2 above to copy code into Module1.vb
- Click green arrow or press F5 to run program