[عبد الهادي بهاب]

السلام عليكم

باستعمال كود رسم دوائر

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 ك ب / التحميلات : 79)

بالتوفيق