09-09-20, 01:49 AM
(آخر تعديل لهذه المشاركة : 09-09-20, 01:51 AM {2} بواسطة عبد الهادي بهاب.)
السلام عليكم
باستعمال كود رسم دوائر
PHP كود :
g.DrawEllipse(p, New Rectangle(Xp, Yp, d, d))
المطلوب رسم مجموعة دوائر حول مركز واحد
لذلك لزم ان يكن المسار دائري يعني موقع x y بشكل دائري
و نغير الونها و مواقعها بهذا الشكل
لذلك كانت المعادلة
PHP كود :
[align=center] bel = i * Math.PI / 180[/align]
[align=center] Xp = x + d * Math.Cos(bel) : Yp = y + d * Math.Sin(bel)[/align]
( الشكر موصول للاستاذ ثامر ابو بلقيس )
الان نستغل المسار يتغيير في كل مرة موقع x و y اي نرسم دائرة في كل مرة
الان يبقى ان نستغل دالة steep اي الفرق بين موقع الدالة التكرارية
فيكون الكود الاساسي للفكرة التالي
PHP كود :
[align=center] Dim bel, x, y, d As Double[/align]
[align=center] Dim p As Pen[/align]
[align=center] p = New Pen(Brushes.Black, 1)[/align]
[align=center] Dim choixcolor = 0[/align]
[align=center] Dim Xp, Yp As Integer[/align]
[align=center] For i As Integer = 0 To 360 Step TextBox1.Text[/align]
[align=center] bel = i * Math.PI / 180[/align]
[align=center] Xp = x + d * Math.Cos(bel) : Yp = y + d * Math.Sin(bel)[/align]
[align=center] g.DrawEllipse(p, New Rectangle(Xp, Yp, d, d))[/align]
[align=center] Next[/align]
الملف السورس للفكرة و المثال
drawcircl.rar (الحجم : 14.88 ك ب / التحميلات : 64)
بالتوفيق
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك