Av alla trigonometriska funktioner , kan tangenten vara lättast att förstå . Gå ut , hitta ett högt träd , står cirka 20 meter från trädet och uppskatta vinkeln från marken till toppen av trädet . Höjden på trädet kommer vara den sträcka ( 20 fot) gånger tangenten för denna vinkel . Om vinkeln är 60 grader , är trädet 34 meter hög (eftersom tangenten av 60 grader är ca 1,7 ) . I Visual Basic.Net , använd tangenten funktionen " TAN , " för att beräkna tangens för en vinkel för dig . Instruktioner
1
Öppna Visual Basic Express och skapa en ny konsol ansökan . Klicka på " File " och sedan " Nytt projekt . " När det nya projektet dialogruta visas väljer du Windows från trädvyn , klicka på ikonen Console Application och namnge programmet " Tangent . " Klicka på " OK " för att skapa projektet . Efter en kort stund kommer koden fönstret visas
2
Lägg till ett Importen uttalande att inkludera System.Math namespace i programmet enligt följande : .
Import System.Math
modul Module1
Detta uttalande tillåter oss att använda alla de matematiska funktioner som finns i System.Math inuti programmet .
3
Deklarera variabler för avstånd och vinklar enligt följande :
Sub Main ( ) katalog
Dim avstånd som Double = 20,0
Dim vinkel som Double = 60,0
dubbel typ är en dubbel precision flyttal , vilket kan ha en mycket stor eller liten decimaltal
4
Konvertera vinkeln i radianer med följande uttalande : .
Dim radianer som dubbel = vinkeln * PI /180,0
Även vi människor brukar mäta vinklar i grader , vill . NET Framework för att se vinklar mätt som radianer . En radian mäter avståndet runt en cirkel som 2 pi . För att konvertera från grader till radianer multiplicerar vinkeln PI sedan dividera med 180
5
Beräkna höjden av trädet enligt följande : .
Dim höjd som dubbel = tan ( radianer ) * avstånd
höjden är avståndet multiplicerat med tangenten för vinkeln i radianer
6
visa resultaten till konsolen enligt följande : .
Console . Skriv ( " trädet är " ) katalog
Console.Write ( height.ToString ) katalog
Console.WriteLine ( " meter hög " )
7
Avsluta program med följande kod :
End Sub
ändmodul
8
Klicka på " F5 " för att köra programmet . En konsol fönster visas som anger höjden på trädet .
