الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اختبر قدرتك الرسومية بحل مسألتي هذه..

بدأه Devd في 3 فبراير 2010 · 5 رد · 739 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

حكاية المسألة:

كالعادة لا أشتري أفلام DVD إلا في الفترة التي تسبق شعوري بالاصابة بمرض الانفلونزا العادية

(الكريب مصاحب حرارة مرتفعة :wacko: ) والذي يحتّم عليّ أن أحلّ ضيفا" ثقيلا" لمدة 3 أيام على سريري المطل على تلفاز ومشغّل DVD PLayer مخاويا" إياهما طيلة فترة المرض.

أثناء مشاهدتي لأحد الأفلام لفت نظري الرمز الذي يعبر عنه مشغل الفيديو عن دوران الـ

DVD ..والذي تدور حوله مسألتي هذه ...فوجدت فيه من الافكار الجامعة التي تستحق ان تطرح

في مجال الرسم المستوي داخل بيئة الفيجوال.. فبادرت سريعا الى برمجته :happy: ...

والمطلوب منك أيها الطامح بالتعلم.. التدقّيق والرسم المفصّل للشكل التالي:

post-76890-1265154546822_thumb.gif

المتطلبات معرفة بــ :

1-Timer
2-AutoRedraw
3-ScaleWidth,ScaleHeight
4-DrawMode,DrawWidth,Drawstyle,FillStyle,Fillcolor
5-BackColor
6-Circle
7-Some Math Skils

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

بالتوفيق ..

1
#2

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

اولاً سلامتك من الانفلونزا ( مع انها وحشتني عندما يكون اهلي بجانبي :( )

ثانياً يشرفني ان اكون اول من يحل المسألة وارجوا ان انجح في الاختبار :D

لكن بعد انتهائي من تصميم المثال اكتشفت اختلاف بينه وبين مثالك فأرجوا ان تعزرني عليه ولا تنقصني في درجات الاختبار :D

الاختلاف هو ان في مثالك اتجاه الدوران لليسار اما في مثالي فإتجاه الدوران لليمين وقد اكتشفت هذا بعد انتهائي من تصميمه فكسّلت ان اعدله فأعزرني يا استاذي

, سأضع المثال ملف تنفيذي لأترك فرصة لباقي الطلبة لحل الاختبار

وبالتوفيق للجميع ,,,,

CD Loop.rar

1

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#3

السلام عليكم ..

أخ محمد ..أستطيع أن أقول أنك قطعت 98 % من الامتحان ..

لقد أحسنت في استعمال خصائص الرسم التي أشرت اليها سابقا" وبجدارة.. مما يدل على

فهمك الجيد لها .. وهذا ما كنت أريده من طرحي للمسألة ..

ولكن أين ذهبت الـ 2 % الباقية؟ :cool:

هناك اختلافان آخران يضافان الى موضوع الدوران:

الاختلاف الأول :

يتمثل في اختلاف زوايا القطاعات لديك انظر صورة لمثالك :

post-76890-12652094624204_thumb.jpg

في البداية أنت قمت بتقسيم القطاع الناقص الى 6 قطاعات بزاويا 60 .. بعد ذلك قسّمت

القطاع الثاني و الخامس لتحصل على 4 قطاعات بزاويا 30 درجة .. ويكون المجموع :

(4 قطاعات بزاويا 60 درجة و 4 قطاعات بزاويا 30 درجة) وهذا مخالف للمسألة لأن

القطاعات متساوية الزوايا.. بالنهاية لا أعتبر ذلك خطأ ولا يستحق حسم أية درجة.

الاختلاف الثاني:

لا أسامح عليه وهو السبب في ابتلاع 2 % المذكورة أعلاه :sleep: ..

دقّق في النقاط الصفراء التي تظهر في مثالك داخل القطع الناقص الصغير الاسود (ربما أنت رسمته مستطيل)

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

أن هذا القطع الناقص الصغير سيكون فخا" جيدا". :lol:

بالنهاية يعطيك العافية أنت شخص مجتهد .. تابع البحث والقراءة .. ونصحيتي لك انتقل

الى الدوت نت ولا تضّيع وقتا" على لغة نائمة يحاول الكثيرون إيقاظها ولكن عبثا".

بالتوفيق والى الامام ..

#4

والله يا اخي انك كريم جداً على هذه الدرجة التي بالفعل لا استحقها بسبب كل هذه الاخطاء ( وبالنسبة لي خطأ الزاوية غير مقبول بالمرة )

اما بالنسبة لـ

اقتباس
لقد أحسنت في استعمال خصائص الرسم التي أشرت اليها سابقا" وبجدارة.. مما يدل على

فهمك الجيد لها ..

فأعزرني يا اخي فانت لست على صواب , فمثلاً هذه الخصائص FillStyle,Fillcolor اول مرة اعرف فائدتها :blink: ولطالما كنت اتسائل عن ما هي وظيفتها

صحيح اني بدأت البرمجة بتصميم الالعاب لكن دائماً ما كنت استخدم الادوات الحية مثل الـ Line , Shape اما بالنسبة لدوال الـ Draw فانا اعرفها ولكن لم استخدمها مسبقاً , فمثلاً كنت اعرف انه يمكنك رسم شكل بيضاوي بالدالة Circle ولكني لم اكن اعرف كيف , راقبت البرامترات وبالفعل نجحت لكن لم يكن المطلوب حيث كان الارتفاع اكبر من العرض ودُخت بصراحة حتى عرفت ان البرامتر الاخير هو نسبة الارتفاع للعرض فبجعله بين الـ 0 و الـ 1 حصلت على ما اريد

اما بالنسبة للنقاط داخل القطاع الصغير فسببها اني نسيت اضبط الخاصية FillStyle قبل رسم القطاع

وضعت المثال بعد تصحيح الاخطاء وارجوا ان يكون صحيح ( بالذات في الزوايا لاني لست متأكد منها )

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

تقبل تحياتي ,,,,

CD Loop.rar

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#5

السلام عليكم

محمد مصطفي غريب كتب:

وضعت المثال بعد تصحيح الاخطاء وارجوا ان يكون صحيح ( بالذات في الزوايا لاني لست متأكد منها )

حسنا" فعلت ..تبدو لي الزوايا صحيحة الآن ...بمعنى أنها mimetex.cgi?\frac{\pi }{4} :wink:

#6

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

Many of life’s failures are people who did not realize how close they were to success when they gave up

Thomas Edison

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…