هندسة النقطة

يعطيك العافيه

مشكور اخي ومستني التكملة

شكرا على ردودكم يا بروفيشينال

وانتظر التكملة قريبا يا ANSI

طبعا لا أحد يبخث قدر النقطة الا الجاهل طبعا

------- معلومة بسيطة --------

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

------------------------------

شكرا على ردك يا كريزى مان

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

دوال اخرى فى الفيجوال بيزيك

-دالة تمثيل الخطوط : وتعريفها كالاتى

Line (x1,y1)-(x2,y2) , color

(x1,y1)

هى نقطة البداية

(x2,y2)

نقطة النهاية

Color

هو لون الخط

دالة المستطيل : هى نفس دالة الخط مع اضافة حرف B

Line (x1,y1)-(x2,y2) , color , B

Line (x1,y1)-(x2,y2) , color

هو الخط الذى يمثل قطر المستطيل والذى يظهر فى الصورة باللون الاحمر

ولكنه لا يظهر انما وضع للتوضيح

B=box

وضعت للتفريق بين دالة الخط والمستطيل

دالة الدائرة (القوس) : وتعريفها كالاتى

Circle (x,y) , R , color , a1 , a2

(x,y)

هو مركز الدائرة

R

هو قطر الدائرة

Color

هو اللون كالعادة

a1

هى زاوية بداية الرسم وتقاس بالنظام الدائرى (الرادين)

ويبدء القياس من المحور الافقى المار بمركز الدائرة وفى اتجاة عقارب الساعة

a2

هى زاوية نهاية الرسم

وهذة صورة توضيحية لفكرة زاوية البداية والنهاية حيث ان

ما يظهر هو الجزء المتصل من الدائرة اما المتقطع فوضع فقط للتوضيح

ولكن دالة الدائرة لم تكتمل بعد فقد تناسينا عمداً معامل اخير لتصبح الدالة هكذا

Circle (x,y) , R , color , a1 , a2 , W

W

هو نسبة القطر الرأسى الى القطر الافقى للقطع الناقص

ويكون الشكل دائرة فى حالة واحدة عندما تساوى الواحد الصحيح فقط

موضوع رائع

بالتوفيق

شكرا على الرد يا اخ نبهانى

وانظر المزيد قريبا

الحركة الشاشة

كما تعرفون فى عمل افلام الرسوم المتحركة يتم عرض مجموعة من الصور

واحدة تلو الاخرى فينتج الفيلم المتحرك فى النهاية

نفس الفكرة سنستخدمها لحركة الاشياء على الشاشة فلجعل شيىء يتحرك

فاننا نرسمه ثم نمسحة ونرسمه بعد زحزحته قليلا وهكذا فيبدو متحركاً

ولنأحذ مثالا بسيطاً على هذا.

ولنقل مثلا اننا نريد تحريك دائرة من اعلى الى اسفل

كما قلنا فاننا سنرسم الدائرة ثم نمسحها ثم نرسمها على مسافه صغيره وهكذا

وبما ان الدائرة ستسقط الى اسفل فان الذى سيتغير هو موضع المركز

بالنسبة للمحور الرأسى Y

وكما هو واضح من الصورة فان مكان المركز على المحور الافقى لا يتغير

وقيمته دائما ثابته اما الذى يتغير هو موضعه على محور الصادات y

اى ان احداثيات المركز ستتغير من y الى y + 10 مثلاً

اى برمجيا y = y + 10

ولنقم بهذا الجزء عمليا

قم بفتح مشروع جديد وضع عليه زرا وفى حدث ضغط الزر اكتب هذا الكود

Private Sub Command1_Click()
BackColor = RGB(0, 0, 0)
x = 1000
y = 567
r = 567
For i = 1 To 567
y = y + 10
Circle (x, y), r, RGB(0, 0, 255)
For k = 1 To 100000: Next k
Circle (x, y), r, BackColor
Next i
End Sub

وضعنا كود رسم الدائرة داخل جملة تكرارية

فنقوم برسم الدائرة ثم نقوم بمسحها

اما

For k = 1 To 100000: Next k

فوضعت فقط لجعل فترة زمنية بين رسم الدائرة ومسحها

لو رأى اى مبرمج عدد الجمل التكرارية فى البرنامج لاتهمنى بالجنون

ولا الومه فبالتأكيد يمكن الاستغناء عن تلك الجمل التكرارية وحفظ مصادر النظام

باستخدام تايمر ولكنى كتبته على تلك الصورة لسهولة فهمه لا اكثر

ولو طلب منى كتابة الكود بصورة اقصادية لمصادر النظام لكتبتة هكذا

Dim x As Integer

Dim y As Integer

Dim r As Integer

Private Sub Command1_Click()
BackColor = RGB(0, 0, 0)
x = 1000
y = 567
r = 567
Timer1.Interval = 75
End Sub



Private Sub Timer1_Timer()
y = y + 100
Circle (x, y - 100), r, BackColor
Circle (x, y), r, RGB(0, 0, 255)
End Sub

نكمل الباقى قريبا

اسف على التاخر فى وضع الدروس

فقريبا ان شاء الله نكمل

وشكرا على من قام بتنظيم المشاركة الاخيره

شرح ممتاز , ربنا يوفقك

اقتباس

For k = 1 To 100000: Next k

فوضعت فقط لجعل فترة زمنية بين رسم الدائرة ومسحها

جرب استخدام دالة الـ API التى تسمى Sleep

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

دروس مفيدة

شكرا جزيلا لك

و نحن في انتظار التكملة

اختكم Spectrum

للمزيد من الاستفادة استعمل الوصلات التالية

1

2

3

45

للمشاركة و جاري القرأة :)

بسم الله الرحمن الرحيم

مشكور أخي العزيز على هذه المشاركة الرائعة جدا جدا جداااااا

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

crazy-man كتب:

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

------------------------------

←

كيف تكون نقاطه في مستوى واحد ؟؟

ملاحضتي ليست تشكيك بك بل جهل مني لذا أرجو الايضاح :( :(

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