السلام عليكم ورحمة الله وبركاته .
أما بعد .....
فهذه مشاركتي رقم 1000 في أحد المنتديات والتي أريد أن تكون مميزة إلى أبعد الحدود .
لذلك فقط قررت أن يكون هذا الموضوع عبارة عن عدة مواضيع !
لكن الهدف الأساس من (ألفية Aleppo Force) هو توديع VB6 والانتقال إلى VB.net
إنها خطوة كان يتوجب على أن أتقدمها منذ فترة ، لكن ظروف الدراسة تمنع أحيانا .
ستجد الرد التالي لي يتحدث عن هدية وداعي للVB6 ألا وهو (كتاب رائحة المسك في تعلم الفيجوال بيسك) وقد ألفته بنفسي
أما الرد التالي (على أساس أنه موضوع) فسيكون بإذن الله درسا قيما إن شاء الله وهو هدية وداع أخرى بعنوان (احترف رسم معادلات الدرجة الثانية).
أسأل الله أن تكون في هذا الموضوع فائدة للجميع .
هديتي الأولى لتوديع ال VB6 :
كتاب (رائحة المسك) هو كتاب من تأليفي (والله اتعبت فيه) يشرح أساسيات الفجوال بيسك .
يعتبر ممتاز للمبتدئين ، ومميز للخبراء كمراجعة عامة .
صورة غلاف الكتاب :
عنوان الكتاب : رائحة المسك في تعلم الفيجوال بيسك
ثمن الكتاب : مجاني
تأليف : فؤاد أصيل (Aleppo Force) ، قدم له (كتب مقدمة الكتاب) : الأستاذ الكبير : RamSyria
عدد الصفحات : 55 تقريبا .
حجمه : تقريبا 4.8 ميغا
تحميل الكتاب : من هنا http://aleppoforce.vbcafe.net/TheBook.rar
طبعا أرحب بالنقد بالبناء
هدية وداع أخرى :
درس : احترف رسم معادلات الدرجة الثانية بواسطة ال VB6
الحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه
أما بعد :
حديثنا اليوم عن رسم معادلة من الدرجة الثانية يمجهولين .
ونفس الطريقة ممكن استعمالها على الدرجة الأولى .
ولاستيعاب أفضل عن الدرس يجب أن تكون ذو خبرة بحلقات التكرار
أولا : نحول المعادلة إلى إحدى الصيغتين
إما ص = باقي القيم
أو س = باقي القيم
- طبعا على كيفك .
ثانيا : سوف ننفذ حلقة تكرارية لرسم أي (نقطة) تحقق المعادلة .
لكن قبل ذلك سوف نحدد مجال الرسم في الفورم
Form1.Scale (-100, 100)-(100, -100)
يعني المجال = 100 في جميع الإتجاهات .
الآن كود رسم المحور السيني والصادي
لكن كيف نرسمها ؟؟
الجواب : عبر ال LIne
Line (x1, y1)-(x2-y2)
ال Line يرسم قطعة مستقيمة ، أنت تحدد النقطة الأولى والثانية ، والفيجوال يوسص بينهما فتتكون قطعة مستقيمة .
إذا سيكون كود المحور الصادي (لا حظ أننا حددنا الأبعاد ب 100 في كل اتجاه)
Line (-100, 0)-(100, 0)
والسيني :
Line (0, -100)-(0, 100)
طيب ، أنا من كم يوم نزلت برنامج (القطوع المخروطية) لذلك سناخذ مثال منه
* رسم القطع المكافئ :
معادلة القطع المكافئ : ص^2 = 4 أ س (إذا كان إتجاهه لليمين)
نسوي المعادلة على الشكل : س = باقي الحدود
يعني بعد بعض الرياضيات
س = (ص ^ 2) / 4 * أ
طيب . الآن كيف أرسم ؟
علما أن A متغير مطلوب من المستخدم قبل تنفيذ الكود !!
شوف الكود :
x = (y ^ 2) / (4 * a)
Form2.PSet (x, y)
Next y
For y = -100 To 100 Step 0.01
سوينا حلقة تكرارية لل ص (Y) بحيث تأخذ جميع القيم الممكنة (أو النقاط في المستوي)
الآن سوف نأخذ قيمة س لكل نقطة في المستوى بدلالة ص ، و نرسم كل نقطة على حدة.
كما رأيت في الكود .
هذه حلقة تكرارية بسيطة .
وبهذه الطريقة يمكن رسم أي معادلة .
طيب خلينا نجرب
خلينا نعتبر أ = 5
رح يكون الرسم:
للمزيد يمكنكم رؤية السورس كود لبرنامج القطوع المخروطية
http://vb4arab.com/vb/showthread.php?t=22268
والسلام عليكم ورحمة الله وبركاته
ختاما ..........
أنا الآن ذاهب للإنتقال إلى ال VB.net
قد أكون فاهم شوي فال VB6
لكن صدقوني أنني لا أفقه شيء في ال .net
لكن مع ذلك سوف أتعلم .
ولدي سؤال لكم يا مبرمجي VB6
متى ستنتقلون إلى VB.net؟؟؟؟؟
أنا الآن ذاهب . وأتمنى أن أجد من يرافقني وينتقل الآن إلى عالم الدوت نت
وفي نهاية موضوع ألفية Aleppo Force لا يسعني إلا شكر جميع أعضاء هذا المنتدى الشامخ وأخص بالذكر الأخ RamSyria على مجهوده الاستثنائي معي خاصة ومع جميع أعضاء المنتدى
ولي طلب صغير : أرجوا تثبيت الموضوع كي تعم الفائدة
هذا السلام عليكم و رحمة الله وبركاته
أخوكم فؤاد أصيل Aleppo Force
