Tan Function

Meghatározza a szög tangensét. A szög radiánban van megadva.

Az alfa szög felhasználásával a Tan függvény kiszámítja a szöggel szembeni befogó és a szög melletti befogó hosszának arányát.

Tan(alfa) = a szöggel szembeni befogó/a szög melletti befogó

Szintaxis:

Tan (Szám)

Visszatérési érték:

Double

Paraméterek:

Szám: Bármilyen numerikus kifejezés, amelynek a tangensét (radiánban) szeretné kiszámolni.

Fokok radiánná alakításához szorozza meg a fokokat pi/180-nal. Radiánok szögekké alakításához szorozza meg a radiánokat 180/pi-vel.

fok=(radián*180)/pi

radián=(fok*pi)/180

A pi körülbelül 3.141593.

Error codes:

5 Érvénytelen eljáráshívás

PĂ©lda:

' Ebben a példában a következőket adhatja meg egy derékszögű háromszög esetén:

' szöggel szembeni oldal hosszát, valamit a szög értékét (fokokban) a szög melletti befogó hosszának kiszámítására:

Sub ExampleTangens

' Pi = 3.1415926 egy előre meghatározott állandó

Dim d1 As Double

Dim dAlpha As Double

    d1 = InputBox("Adja meg a szöggel szemközt lévő befogó hosszát: ","Szemközti")

    dAngle = InputBox("Adja meg az alfa szöget (fokban): ","Alfa")

    Print "a szög melletti befogó hossza"; (d1 / tan (dAlpha * Pi / 180))

End Sub