`·.¸¸.·¯`··._.· الدوال الرياضية في الفيجوال بيسك 6.0 + مفاهيم رياضية هامة جداً ·._.··`¯·.¸¸.

[size=16]في هذا الموضوع بإذن الله سينقسم إلى قسمين:
* القسم الأول : شرح لبعض الدوال الجاهزة الموجودة ضمن مكتبات الفيجوال بيسك 6.0.
القسم الثاني: سيكون لكيفية حساب بعض الدوال الرياضية مثل التربيع و التكعيب و الجذور ، و جيب و جيب التمام
و الظل في النظام الدائري و الدرجات.

***القسم الأول***
1- أول دالة سنتحدث عنها هي Abs : و هي تقوم بحساب القيمة المطلقة للعدد أي يصبح موجباً.
و الصيغة العامة لها :(Abs(Number
مثال: (Abs(-5
(Abs(5
في أول حالة سيعود بالرقم 5
و في الثانية سيعود أيضا بالرقم 5
** أعتقد أنها سهلة أليس كذلك؟؟

2- الدالة Sqr: و هي تقوم بحساب الجذر التربيعي للعدد SQuare Root

[size=16]و الصيغة العامة لها :(Sqr(Number
مثال: (Sqr(4
(Sqr(64
في الحالة الأولى سيعود بالرقم 2
و الثانية سيعود بالرقم 8

3- الدالة Val: و هي دالة مشهورة جداً تقوم بتحويل القيمة النصية إلى قيمة عددية
و الصيغة العامة لها :(Val(String
حيث String هو نص عددي.
مثال:
نريد أن نعمل برنامج لجمع عددين من أول وهلة سنطبع الكود التالي:
Text3.text = Text1.text + Text2.text
و لكن إذا قمت بتجربة البرنامج و قمت بوضع العدد 3 في التيكست الأول و 4 في التيكست الثاني فإنه سيطبع
في تيكست 3 الرقم 34 ؟؟؟

هذا ما لا نريده لذا نستعمل هذه الدالة كالتالي.
Text3.text = Val(text1.text) + Val (text2.text) ' This is correct
كما ترى في المثال السابق فإننا وضعنا الدالة val و إذا جربت البرنامج سترى أنك إذا و ضعت الرقمين 3 و 4
سعطيك الناتج 7 و هذا ما نريده

4- الدالة Sin و هي تقوم بحساب جيب الزاوية المعطى للبرنامج بالنظام الدائري.
و الصيغة العامة لها Sad

Sin(Number
** منذ الآن لن أضع أمثلة إلا عند الضرورة.
** في القسم الثاني سأشرح التحويل بين النظام الدائري و الدرجات.

5- الدالة Cos و هي تقوم بحساب جيب التمام الزاوية المعطى للبرنامج بالنظام الدائري.
و الصيغة العامة لها Sad

Cos(Number

6- الدالة Tan و هي تقوم بحساب الظل الزاوية المعطى للبرنامج بالنظام الدائري.
و الصيغة العامة لها Sad

Tan(Number

7- الدالة Int: وتقوم بأخذ العدد الصحيح بدون كسور و دون تقريب.
و الصيغة العامة لها : (Int(Number
مثال: (Int(5.698
في الحالة السابقة ستعود بالرقم 5 دون أي تقريب

8- الدالة Fix: وتقوم بأخذ العدد الصحيح بدون كسور و دون تقريب.
و الصيغة العامة لها : (Fix(Number
مثال: (Fix(5.698
في الحالة السابقة ستعود بالرقم 5 دون أي تقريب

** ماذا؟؟!

دالتان لهما نفس الوظيفة. غير معقول.

ههه. الدالتان لا تقومان بنفس الوظيفة تماماً.
الفرق يكمن بالأعداد السالبة
حيث الدالة Int تعود بأول عدد صحيح سالب أصغر منه أو يساويه.
أما الدال Fx تعود بأول عدد صحيح سالب أكبر منه أو يساويه.
و هذه الأمثلة ستوضح كل شيء

واضح الآن أليس كذلك؟؟

9- الدالة CInt :و هي اختصار Convert To Integer ، حيث أنها تحوّل أي رقم عشري إلى عدد
صحيح مع تقريب طبعاً.
و الصيغة العامة لها : (CInt(Number
(CInt(5.65
في الحالة السابقة ستعود بالرقم 7

10-الدالة Round: و هي تقوم بتقريب العدد حسب ما تطلب منه
و الصيغة العامة لها : (Round(Number1,Number2
حيث Number 1 هو العدد الذي تريد تقريبه
و Number2 هو عدد المنزلة الذي تريد أن تقرب لها
أمثلة:
(Round(5.5
(Round(5.65,1
(Round(5.6589,3
المثال الأول سيعود بالرقم 6
المثال الثاني سيعود بالرقم 5.7
المثال الثالث سيعود بالرقم 5.659

11- الدالة Sqn و هي تعيد -1 إذا كان الرقم أقل من صفر و تعيد 0 إذا كان الرقم صفر و +1 إذا
كان الرقم أكبر من صفر.
الصيغة العامة : (Sqn(Number
أمثلة:
(Sqn(-55
(Sqn(0
(Sqn(658
الحالة الأولى ستعطي الرقم -1 لتدلل على أن الرقم سالب
و الحالة الثانية ستعود بالرقم 0 لتدد على أن الرقم هو صفر
و الحالة الثالثة ستعود بالرقم 1 لتدلل على أن الرقم موجب.
12- الدالة Rnd و هي دالة جميلة تقوم بتوليد أرقام عشوائية بين 0 و 1 في كل مرة مثلاً إذا وضعتها في زر
و الصيغة العامة: (Rnd(Number
مثال : Print Rnd
و ستجد أنها تقوم بتوليد أرقام عشوائية بين 0 و 1
** و قبل أن يأتي لي أحد و يقول لي لقد جربتها و ظهر لي رقم أكبر من صفر

سأقول له أنك مخطئ لأن العدد الذيظهر لك سيكون كالمثال التالي:5.559349E-02
فكما تلاحظ أنه الفيجوال بيسك اختصر الرقم برفعه لأس أصغر من صفر E-02 = أس -2

** ألم تلاحظوا أنني في المثال لم أضع أي رقم و في الصيغة العامة يوجد Number و ذلك لأنه اختياري
***و هذا بيان لما يحدث عند وضع أي رقم بدل كلة Number
1- إذا كان سالباً فإنه سيولد رقماً واحدا عشوائيا ثابتا للعدد السالب الواحد.
2- إذا كان صفر سيعطيك الرقم الأكثر تكرارا ضمن الأرقام المولدّة عشوائياً
3- إذا كان أكبر من صفر فإنه سيولد أرقاما عشوائية بتسلسل معين ثابت مهما تغير الرقم الموجب
4- إذا لم تضع سيتعامل مع الدالة على أنك وضعت رقما أكبر من صفر.
** ألم تلاحظ كلمة "بتسلسل معين ثابت" هذه الجملة أنقصت من جمال الدالة قليلاً فلو أنك الأن وضعت هذه الدالة
في زر و أمرته بطباعة RND وضغطت على الزر عشر مرات و سجلت جميع الأرقام المتولدة و أتيت في اليوم
التالي و ضغطت الزر عشر مرات و سجلت الأرقام ستلاحظ أنها ولّدت أرقاما نفس التي أعطتك إياها في
اليوم السابق.
فإذا أردت أن تولد أرقاما عشوائية بعشوائية تامة

ما عليك إلا أن تضع قبل هذه الكلمة أو عند تحميل
الفورم أي Form Load أو Button Click كلمة Randomize لأن هذه الدالة تعمل بالتبادل مع
الدالة Rnd لتوليد أرقام عشوائية بعشوائية تامة و السر في ذلك أنك إذا وضعت كلمة Randomize
فإن العشوائية ستعتمد على ساعة الجهاز .

إلى هنا أعتقد أني شرحت شرحا وافياً للدوال و أنهيت بحمد الله القسم الأول للموضوع
إنتظروا مني القسم الثاني الذي سأضعه هذا اليوم أو في اليوم التالي كأقصى حد بإذن الله تبارك و تعالى.

القسم الثاني

أولاً: كيف يمكننا أن نجعل رقماً مرفوع للأس 2 أو 3 أو.....
كيف يمكننا أن نجد الجذور التكعيبية لأرقام.
مثل هذه المفاهيم ليس لها دالة فيجولية

تقوم بحسابها.
لذا سنطّر إلى إجراء عمليات جراحية أقصد حسابية للوصول إليها.
1- لكي ترفع أي رقم لأي أس إستعمل العامل (^).
مثلاً : Print 5^2
ستلاحظ أنه سيطبع 25

2- كيف يمكن إيجاد الجذر التكعيبي أو أي جذر لأي رقم؟؟
هناك قاعدة رياضية تقول:
عندما س تُرفع للأس أ على ب فإن هذه المعادلة = الجذر البائي للسين و الكل
مرفوع للأس أ
أو بعبارة أخرى:
`·.¸¸.·¯`··._.· الدوال الرياضية في الفيجوال بيسك 6.0 + مفاهيم رياضية هامة جداً ·._.··`¯·.¸¸. 123ic

`·.¸¸.·¯`··._.· الدوال الرياضية في الفيجوال بيسك 6.0 + مفاهيم رياضية هامة جداً ·._.··`¯·.¸¸. 123ic

هل فهمتم الآن؟؟؟

لذا إذا أردنا إيجاد الجذر التكعيبي لرقم معين فإننا نرفعه للأس ثلث
(Print 125^(1/3
ستلاحظ أنه سيطبع الجذر التكعيبي للرقم 125 و الذي هو 5
جميل جدا أستطيع الآن أن أجد الجذر الخماسي للرقم 7776!!!!!!؟

3- حسناً، الآن إذا أردت أن تجرب الدالة Sin لإيجاد الجيب 30 و الذي هو 0.5
ستجد أن الفيجوال بيسك سيعطيك أرقام كبيرة و غريبة و السبب يعود أن
الفيجوال بيسك 6.0 يستعمل النظام الدائري Radian لكي يجد الدوال المثلثية!
و نحن بالغالب نستعمل نظام الدرجات Degree لذلك سنضطر إلى التحويل من
الدائري للدرجات.
و لكن قبل ذلك أريد أن أوضح شيئاً: الدالة Atn تقوم بحساب مقلوب ظل الزاوية
"ظتا" بالنظام الدائري و لكن عندما تجربها على الآلة حاسبة في العالم الواقع
تظهر أرقام أخرى و السبب أن هذه الدالة تقوم بحساب مقلوب ظل الزاوية
بالنظام الدائري و لكن بطريقة مختلفة لم أفهمها من موقع Msdn لذا الرجاء من
أحد أن يوضح كيف تعمل هذه الدالة؟؟؟
هذا هو الرابط:http://msdn.microsoft.com/en-us/library/kx6we9k6%28VS.85%29.aspx
لم أفهم الجملة الموجودة عند Note لذايا ليت أحد يساعدنا لأنني سأستعملها الآن.

نرجع الآن لدرسنا للتحويل بين النظامين سنستعمل قيمة باي Pi
حيث قيمتها الدقيقة تساوي 4 * (Atn(1
و للتحويل من الراديان إلى الدرجات يجب علينا ضرب الزاوية ب (باي مقسومة على
180) =(Pi/180) ثم نجد ما نريده من الدوال
مثال لإيجاد جيب الزاوية 30
Sin(val(Text1.text)*(Pi/180) 'Answer is 0.5
و لكن عليك أن تعرف pi عن طريق
Pi = 4 * Atn(1) ' Pi
إقرأ ما سبق أكثر من مرة حتى تفهمه جيداً

3- أريد أن أضع لكم لعبة صغيرة مقتبسة من كتاب لصديقي اسمه
خطوة خطوة مع مايكروسوفت فيجوال بيسك 6.0
أريدك أن تطبقها الآن و تجربها
أنشئ مشروعا يحتوي على ثلاث ليبلات بالقرب من بعضهم كل ليبل خطه 24
و كوماند واحد مكتوب عليه Spin
طبعا هذه اللعبة مشهورة بالغرب خاصة في أماكن القمار لعنة الله عليهم
و تسمى ب Lucky 7
و اكتب هذا الكود :
private sub Command1_Click()
[size=16]Label1.Caption = Int(Rnd *10 ) 'Generate Numbers Between 1 and 9

[size=16]Label2.Caption = Int(Rnd *10 ) 'Generate Numbers Between 1 and 9
Label3.Caption = Int(Rnd *10 ) 'Generate Numbers Between 1 and 9
If Label1.caption =7 or label2.caption = 7 or
Label3.Caption = 7 Then
"MsgBox " You Have Winned Man
Beep
Beep
Beep
Beep
Beep
End Sub
لقد و ضعت هذه اللعبة لتطبيق الدرس للأسف المهم الفهم.
إقرأ تعليقاتي الخاصة لكي تفهم ما فعلته.

في الختام أستودعكم الله و في أمان الله
أنتظروا مني الموضوع القادم الذي سيكون عن دوال التعامل مع الحروف
دوال سلاسل البيانات . String Functions
وإلى اللقاء
[/size][/size][/size][/size]

الجنس : عدد المساهمات : 183

مشكور يا مشاغب

مشكور حبيبي ع الموضوع

يسلموو شباب ع المروور

» نقــــــــــــ مؤلمة جداً ــــــــاط
» ترحيب حاااااااااااااار جداً يا حلوووووووووين هاد من طرفي ...