VB.NET Tan Example – Code Sample Syntax
VB.NET Tan Example – Code Sample Syntax
Purpose: – Illustrates using VB.NET Tan Code Example.
Purpose:
converts an angle measured in radians to a tangent. (you can convert
the radians to degrees by multiplying them by Math.PI/180)
Syntax:
Tan(doublenumber)
Tan(doublenumber)
Parameters | Description | doublenumber | double percision floating point number representing an angle measured in radians. |
---|
Result Data Type | Description | double | represents the tangent of the angle specified in parameter1. If parameter1 is equal to NaN, NegativeInfinity, or PositiveInfinity, NaN (Not a Number) is returned. |
---|
Step 1: Click Visual Basic to Cut-n-paste code into clsTan.vb
Imports System.Math Public Class clsTan Public Sub Main() '******************************************************************************** ' Purpose: converts an angle measured in radians to a tangent. (you can convert ' the radians to degrees by multiplying them by Math.PI/180) ' ' Syntax: Tan(doublenumber) ' ' Parameter1: doublenumber - double percision floating point ' number representing an angle measured in radians. ' ' Result: double - represents the tangent of the angle specified in ' parameter1. If parameter1 is equal to NaN, ' NegativeInfinity, or PositiveInfinity, ' NaN (Not a Number) is returned. ' '******************************************************************************** ' This example is from http://idealprogrammer.com Console.WriteLine("Example #1: Tan(doublenumber)") Dim radians As Double = 30 * 180 / Math.PI Console.WriteLine("Tan(radians) = {0}", Tan(radians)) ' Returns 0.449218546627416 'write blank line to make output easier to read Console.WriteLine() Console.WriteLine("Example #2: Tan(doublenumber)") radians = 90 * 180 / Math.PI Console.WriteLine("Tan(radians) = {0}", Tan(radians)) ' Returns 3.18545051165583 'write blank line to make output easier to read Console.WriteLine() Console.WriteLine("Example #3: Tan(doublenumber)") Dim Integer3 As Integer = Tan(-0) radians = 180 * 180 / Math.PI Console.WriteLine("Tan(radians) = {0}", Tan(radians)) ' Returns -0.696494466235817 '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 myclsTan As New clsTan myclsTan.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 clsTan to MathFunctions folder
- Right-click MathFunctions folder;
- add new item;
- Select class
- Class name could be clsTan
- Click on Visual Basic in code in step 1 above to copy code into clsTan.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