+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مثال] مثال عن رسم دوائر بشكل جميل (/showthread.php?tid=36341)
مثال عن رسم دوائر بشكل جميل - عبد الهادي بهاب - 09-09-20
السلام عليكم
باستعمال كود رسم دوائر
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]
الملف السورس للفكرة و المثال
[attachment=25632]
بالتوفيق