+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : arc sin (/showthread.php?tid=9806)
arc sin - asto - 26-07-13
السلام عليكم
ما هو كود arcsin اي يرجع لنا الزاوية بالدرجات من قيمة الجيب (sin)
arc sin - VB6DAO - 26-07-13
Public Function ArcCos (x As Variant) As Variant
Select Case x
Case -1
ArcCos = 4 * Atn(1)
Case 0:
ArcCos = 2 * Atn(1)
Case 1:
ArcCos = 0
Case Else:
ArcCos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Select
End Function
Public Function ArcSin (x As Variant) As Variant
Select Case x
Case -1
ArcSin = 6 * Atn(1)
Case 0:
ArcSin = 0
Case 1:
ArcSin = 2 * Atn(1)
Case Else:
ArcSin = Atn(x / Sqr(-x * x + 1))
End Select
End Function