+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] رسم بالحاسوب طريقه رسم نجمه (/showthread.php?tid=18079)
رسم بالحاسوب طريقه رسم نجمه - مٌحُمٌدِ الُ ظٌُهرَُه - 19-11-16
كود يشرع رسم نجمه
ي عباره عن نقاط مثل الدائره. ممكن الكود
RE: رسم بالحاسوب طريقه رسم نجمه - Genius Live - 19-11-16
(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 SubRE: رسم بالحاسوب طريقه رسم نجمه - مٌحُمٌدِ الُ ظٌُهرَُه - 25-11-16
شكرا لك وهذا هوا المطلوب