Sinus i Visual Basic

Sin Function Example
This example uses the Sin function to return the sine of an angle.

Dim MyAngle, MyCosecant
MyAngle = 1.3    ' Define angle in radians.
MyCosecant = 1 / Sin(MyAngle)    ' Calculate cosecant.


fra excel hjælp

Det er fordi VB regner i radianer, sinus funktionen skal du selv lave eller omregne hvis du vil bruge den som du kender det fra lommeregneren.

klippet lidt fra et projekt

Global Const PI = 3.14159265358979
Public Function RadTilGrad(Radianer As Single) As Single
    RadTilGrad = Radianer * 180 / PI
End Function

Så skulle du få lidt mere "normale" resultater

Både VB6 og f.eks. Excel regner vinkler i radianer.

rynke10, giv mig et svar, så jeg kan give dig point.

Jamen kommer her :-)