[مٌحُمٌدِ الُ ظٌُهرَُه]

كود يشرع رسم نجمه 
ي عباره عن نقاط مثل الدائره. ممكن الكود

[Genius Live]

(19-11-16, 12:21 PM)مٌحُمٌدِ الُ ظٌُهرَُه كتب : كود يشرع رسم نجمه 
ي عباره عن نقاط مثل الدائره. ممكن الكود

يعني ايه نجمة مثل الدائرة ؟؟؟ 
وضح اكتر 
علي العموم ده كود رسم النجمة

كود :

   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim StarObject As Graphics = e.Graphics
       Dim i As Integer
       Dim random As Random = New Random()
       Dim brush As SolidBrush = New SolidBrush(Color.CornflowerBlue)
       Dim xPoints As Integer() = {55, 67, 109, 73, 83, 55, 27, 37, 1, 43}
       Dim yPoints As Integer() = {0, 36, 36, 54, 96, 72, 96, 54, 36, 36}
       Dim star As GraphicsPath = New GraphicsPath()
       StarObject.TranslateTransform(100, 100)
       For i = 0 To 8 Step 2
           star.AddLine(xPoints(i), yPoints(i), xPoints(i + 1), yPoints(i + 1))
       Next
       star.CloseFigure()
       StarObject.FillPath(brush, star)
   End Sub

[مٌحُمٌدِ الُ ظٌُهرَُه]

شكرا لك وهذا هوا المطلوب