برنامج الدالة الأسية

[الزمان]

السلام عليكم ورحمة الله وبركاته

هذا البرنامج هدية للجميع ، أتمنى تحميله والاستفادة منه

وأي مشكلة تواجهكم فيه لا تترددوا بطرحها هنا

ملاحظة : البرنامج يحتاج لملف Dll واحد فقط وهو خاص لبرامج الفيجوال بيسك ، أغلب الأجهزة بها هذا الملف ولكن إذا لم يعمل البرنامج فهذا معناه أنك يجب أن تحمل الملف وهو موجود في أقراص مجلة بي سي وكذلك موجود في مواقع الإنترنت مثل موقع المشاغب.

[الزمان]

لقد تم إجراء تعديل بسيط وضروري على البرنامج ليرسم بشكل أفضل وهو مع هذا الرد

[لينا1]

سلام
مشكور على البرنامج المتواضع

هذا البرنامج لايرسم إلا إذا كانت الأس = س  فقط

هل يمكن أن تكون الأس = أ س أو  س^2  مثلا

كما أن الرسم غير نظامي يضع خطوط وازيه لمحور الصادات

نرجو البيان ومشكور

[عسكر]

بسـم اللـه الرحمـن الرحيـم
السلام عليكم ورحمة الله وبركاته
مشكور على هذا الجهد وإن كان متواضعا إلا أنه فعال وإلى الأمام إن شاء الله
الحقيقة كان بجانبي عند التصفح مبتدئ في البرمجة وكانت بعض الملاحظات
يعتبر النقد خطوة نحو البناء وليس بقصد التجريح بل التشجيع
نرجو أن يكون البرنامج متكاملا ويشمل كل الدوال الأسية
( كان لك برنامج لحل معادلة الدرجة الثانيه واقتصر على الجذور الحقيقية دون العقديه لماذا لم يكتمل)
لما الأساس = 1  يعطي دالة ثابتة مستقيم يوازي محور السينات وهو غير موجود
ونهاية الدالة غير صحيحة ؟؟؟؟؟
أخي العزيز نلاحظ عند فتح البرنامج و رسم دالة معينه ثم الانتقال إلى أي نافذة أخرة مثلا نافذة مجلد أو
حتى برنامج الوورد(دون إغلاق البرنامج)
ثم العودة للبرنامج مرة أخرى أن رسمة الدالة قد زالت.. لماذا
يمكن حل هذة المشكلة بأن تعطي القيمة true للخاصية autoredraw للنموذج أو تكتب في حدث تحميل النموذج

Private Sub Form_Load()
Form1.AutoRedraw = True
End Sub

إن هذة الطريق تستهلك ذاكرة أكبر لكنها الأسهل أما الطريقة العملية فهي أن تضع أمر رسم

الدالة في الحدث التالي للنموذج

Private Sub Form_GotFocus()

End Sub


ولكن هذه الطريقة لن ترسم إلا التابع الأخير في حال رسم أكثر من تابع

اتمنى لك التوفيق دائما وإلى الأمام
التحية للجميع

[الزمان]

السلام عليكم ورحمة الله وبركاته

شكراً لك أخت لينا1 على تجربة البرنامج ، وبخصوص كون الأس فقط س فهو لبساطة البرنامج ، وأما بخصوص الخطوط الغير نظامية فلم أفهم ما تقصدينه

والأخ عسكر شكراً لك كثيراً على التجربة وأكثر على النقد وشكراً لصديقك المبرمج كذلك وأتمنى أن تعرفنا عليه.
بخصوص أن يكون الأساس = 1 فأتمنى أن ترجع لتعريف الدالة الأسية فهي تستثني الرقم واحد ولهذا لم أسمح برسمه ، ولكن لو سمحت له فسوف يكون الناتج خط يوازي محور السينات وهذا طبيعي ، وكيف تكون نهاية الدالة غير صحيحة ! أرجو التوضيح

وبخصوص الانتقال لبرنامج آخر ثم الرجوع للبرنامج فكلامك صحيح ولكن أنا لم أضع القيمة True للخاصية Autoredraw لأنها تبطئ عمل البرنامج ولكني سوف أستخدم كود لإعادة الرسم وهذا أفضل.

أما بخصوص أن يشمل البرنامج جميع الدوال الأسية وغير الأسية فهذا ما أطمح إليه ولكني لم أستطع عمله إلى الآن.
وبخصوص البرنامج القديم الذي يحل معادلات الدرجة الثانية فقد واجهتني مشاكل فيه وتوقفت عنه ولكني إن شاء الله سأعود إليه لأعيد عمله من جديد وبشكل أفضل.

ولكن لدي طلب صغير وهو أني أريد أي شخص من منتدى الرياضيات تكون له مقدرة على البرمجة بالفيجوال بيسك بالإضافة إلى فهمه للرياضيات وحبه لها ، حتى نتعاون وننتج برامج مميزة في الرياضيات.

[عسكر]

بسـم اللـه الرحمـن الرحيـم
السلام عليكم ورحمة الله وبركاته
أزكى تحيه نقدمها للأخ الزمان  والذي أعلمه أن الأستاذ خالد المشرف أفقه واحد في منتدى الرياضيات ويحيط بموضوع  البرمجة في الفيجول ويمكن أن يساعد ولن يدخر جهدا في هذا المجال وهو أستاذ متمرس في الفلاش ماشاء الله عليه وبسم الله ماشاء الله

أما صديقي فهو مبتدئ وليس على دراية بالبرمجة هاوي صغير ؟.
إن كان الموضوع يتعلق بالرياضيات  اطرح ما بدا لك في المنتدى ونرجو الله أن يكون هنالك من يجمع الاثنتين ولن يدخر أي عضو جهدا في في سبيل المعرفة

بالنسبة للنهاية غير دقيقة بالرسم انظر الصورة المرفقة لترى كيف ظهرت الدالة الأسية
والخطوط الحمراء الموازية لمحور الصادات جرب أ = 6 ،  0.001 ،  10   ...... وسترى

التحية للجميع

[الزمان]

وعليكم السلام ورحمة الله وبركاته

أشكر الأخ عسكر من أعماق قلبي لتجاوبه الشديد مع الموضوع ، وإن شاء الله أدرس هذا الأمر مع الأستاذ خالد.

وبخصوص الصورة التي وضعتها فأنا لا أحصل عليها حتى عندما أضع القيم 6 أو 0.001 أو 10

عموماً هذه المشاكل تحدث بسبب اختلاف إعدادات العرض من جهاز لآخر ، وسوف أعيد فحص أكواد البرنامج لنتخلص من هذه المشكلة

[الأستاذ ماهر]

جزاكم الله خيرا