ايجاد ظل الزاوية بالفيجول

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

ايجاد ظل الزاوية بالفيجول

مُساهمة من طرف شيغو في الأحد أبريل 13, 2014 9:41 pm

السلام عليكم امل المساعده في برنامج مساحي يحسب اتجاه نقطه ما بمعرفتة الاحداثيات
عندى مشكله في ايجاد ظل الزاويه بالفيجول بيسك6


مثال

E1=6
N1=5
E2=2
N2=2
E1-E2=4
N1-N2=3

E1-E2/N1-N2
=4/3
=1.3333
اذا حسبتها بالاله الحاسبه ظل الزاويه 1.3333 يظهر صحيح وهو 52.130 درجة
ولكن ارغب في عملها بالفيجول بيسك

avatar
شيغو
..
..

تاريخ التسجيل : 11/07/2013
المساهمات : 29
النقاط : 47
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: ايجاد ظل الزاوية بالفيجول

مُساهمة من طرف السنى في الإثنين أبريل 14, 2014 7:20 am

لايجاد جيب و ظل الزواية بالفجوال بيسك 6 يمكنك استخدام الاكواد التالى :

الكود:
Private Const PI = 3.14159265

Public Function Cosine(ByVal degrees As Single) As Single
    Cosine = Cos(degrees * PI / 180)
End Function
Public Function Sine(ByVal degrees As Single) As Single
    Sine = Sin(degrees * PI / 180)
End Function

وفى حدث النقر على زر الامر وليكن "حساب" يستخدم الكود التالى :

الكود:
    Label1.Caption = Sine(CLng(Text1.Text))
    Label2.Caption = Cosine(CLng(Text1.Text))

حيث ان :Label1 و Label2 هى مكونات التسمية المراد اظهار ناتج العملية الحسابية فيها و ايضا Text1 هو مربع النص الذى سيتم ادخال القيم فيها المراد حسابها


والحساب على الالة الحاسبة للرقم 30


avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: ايجاد ظل الزاوية بالفيجول

مُساهمة من طرف شيغو في الإثنين أبريل 14, 2014 12:02 pm

مرحبا اخي
ارغب في حساب atn  اي ان المفترض بالاله الحاسبه ان الزاويه 1=45
ولكن بالفيجول ماتضبط معي
avatar
شيغو
..
..

تاريخ التسجيل : 11/07/2013
المساهمات : 29
النقاط : 47
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: ايجاد ظل الزاوية بالفيجول

مُساهمة من طرف NEXT في الإثنين أبريل 14, 2014 4:54 pm

هذه اله حاسبة علمية فيها ما تبحث عنه 

http://zakyshny.eu5.org/kleeja/uploads/egy-tech13974944211.rar
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 265
النقاط : 380
التقيم : 9
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى