[VB] Inverse Cosine

[-=Odysseus=-]

Hoi,

Ik heb de volgende function om de Inverse Cosinus uit te rekenen:

Function ArcCos(x As Double) As Double 
' Inverse Cosine 
If x = 1 Then 
ArcCos = 0 
ElseIf x = -1 Then 
ArcCos = -pi
Else 
ArcCos = Atn(x / Sqr(-x * x + 1)) + pi / 2 
End If 
End Function

en roep ik hem zo aan:

rl = ArcCos(getal)

alleen als ik hem wil aanroepen geeft hij de volgende fout:

Compile error:
ByRef argument type mismatch

Wat doe ik verkeerd?

[Chimera]

Wat is 'getal' voor type? Is dit wel een Double?

[-=Odysseus=-]

Chimera schreef:
Wat is 'getal' voor type? Is dit wel een Double?

Dat was idd wat mis was thnx

Alleen doettie het nog niet goed volgens mij.
Weet iemand hoe ik de inverse cosinus van een waarde krijg in VB?

Inverse Cosine:
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)

Bron: VB math functions

[edit]
Misschien moet je omrekenen: 180 / pi.

Ik kan het niet testen, aangezien ik geen VB heb geïnstalleerd.

[-=Odysseus=-]

******** schreef:
Inverse Cosine:
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)

Bron: VB math functions

[edit]
Misschien moet je omrekenen: 180 / pi.

Ik kan het niet testen, aangezien ik geen VB heb geïnstalleerd.

Ja dat begrijp ik, maar das dan ook tot daar aan toe hij willut gewoon nie doen.

[Marcade]

Is rl ook een double?

Heb je PI uberhaupt wel gezet of staat er gewoon niks in? (en heb je van PI ook een double gemaakt?)

[-=Odysseus=-]

Marcade schreef:
Is rl ook een double?

Heb je PI uberhaupt wel gezet of staat er gewoon niks in? (en heb je van PI ook een double gemaakt?)

rl is double, pi is double en is gezet.

[-=Odysseus=-]

Ik heb um eindelijk khad ff een andere formule gebruikt en hij deed. Nog bedankt allemaal