Section courante

A propos

Section administrative du site

En Visual Basic (VB), il n'existe aucune fonction «ArcSin» ou «ASin» permettant de calculer l'Arc Sinus d'un cercle. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci :

  1. Function ASin(a As Double) As Double
  2.  Const PI = 3.14159265358979
  3.  If Abs(a) = 1 Then
  4.   ASin = a * PI / 2
  5.  Else
  6.   ASin = Atn(a / Sqr(1 - a * a))
  7.  End If
  8. End Function
  9.  
  10. Sub Main()
  11.  MsgBox "ArcSin(0.5)=" & ASin(0.5)
  12. End Sub

on obtiendra le résultat suivant :

ArcSin(0.5)= 0.5235987755982989

Dernière mise à jour : Lundi, le 19 novembre 2012