Sinusfunksjon

Returnerer sinusen til en vinkel. Vinkelen er spesifisert i radianer. Resultatet ligger mellom -1 og 1.

Ved Ä bruke vinkelen Alpha returnerer Sin-funksjonen forholdet mellom lengden pÄ motsatt side av en vinkel og lengden pÄ hypotenusen i en rettvinklet trekant.

Sinus(Alfa) = side motsatt vinkelen/hypotenusen

Syntaks:


Sinus (antall som dobbelt) som dobbel

Returverdi:

Double

Parametre:

Tall: Numerisk uttrykk som definerer vinkelen i radianer som du vil beregne sinus for.

For Ă„ konvertere grader til radianer, multipliser grader med Pi/180, og for Ă„ konvertere radianer til grader, multipliser radianer med 180/Pi.

grader=(radianer*180)/Pi

radianer=(grader*Pi)/180

Pi er omtrent 3,141593.

Feilkoder

5 Ugyldig prosedyreoppkall

Eksempel:


' I dette eksemplet er fĂžlgende oppfĂžring mulig for en rettvinklet trekant:
' Siden motsatt vinkelen og vinkelen (i grader) for Ä beregne lengden pÄ hypotenusen:
Sub ExampleSine
' Pi = 3.1415926 er en forhÄndsdefinert variabel
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Skriv inn lengden pÄ motsatt side: ","Motsatt side")
    dAlpha = InputBox("Skriv inn vinkelen Alpha (i grader): ","Alpha")
    Skriv ut "Lengden pÄ hypotenusen er"; (d1 / sin (dAlpha * Pi / 180))
End Sub