تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] رسم بالحاسوب طريقه رسم نجمه
#1
كود يشرع رسم نجمه 
ي عباره عن نقاط مثل الدائره. ممكن الكود
الرد
تم الشكر بواسطة:
#2
(19-11-16, 12:21 PM)مٌحُمٌدِ الُ ظٌُهرَُه كتب : كود يشرع رسم نجمه 
ي عباره عن نقاط مثل الدائره. ممكن الكود

يعني ايه نجمة مثل الدائرة ؟؟؟  Huh
وضح اكتر 
علي العموم ده كود رسم النجمة
كود :
   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
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد
تم الشكر بواسطة:
#3
شكرا لك وهذا هوا المطلوب
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقه تحميع كميات صنف معين فى الداتا جريد فيو بباركود الصنف خالد كامل1 1 183 31-08-20, 10:23 AM
آخر رد: Anas Mahmoud
  [سؤال] هل توجد طريقه للتحقق إذا كانت الليست بوكس أو الكومبوبوكس متصله بقاعدة بيانات منه 1 145 29-08-20, 06:28 PM
آخر رد: Anas Mahmoud
  لو سمحتم ممكن طريقه لاضافه لوجو فى تقارير الكريستال ريبورت خالد كامل1 5 354 07-08-20, 12:43 AM
آخر رد: عبد العزيز البسكري
  هل من طريقه لوضع صوره فى الفورم الرئيسي midparint خالد كامل1 11 615 05-08-20, 04:54 AM
آخر رد: خالد كامل1
  [سؤال] هل توجد طريقه لمعرفه عدد ايام الشهر وكذا السنه منه 1 199 03-08-20, 08:29 PM
آخر رد: asemshahen5
  [سؤال] هل توجد طريقه في عمل حذف الاعمده المحدده فقط داخل الجريد فيو العاديه منه 4 337 26-07-20, 03:36 PM
آخر رد: asemshahen5
  طريقه استخدام web browser فى الفيجوال بحيث يعرص فاعده بيانات اكسس خالد كامل1 0 210 20-07-20, 06:13 PM
آخر رد: خالد كامل1
  ما هى طريقه فتح قاعده بيانات موجوده وفتجها على فورم خالد كامل1 6 363 19-07-20, 11:30 PM
آخر رد: خالد كامل1
  [سؤال] هل توجد طريقه لتوليد ارقام عشوائيه منه 3 318 19-07-20, 12:49 PM
آخر رد: قناص المدينة
  لو سمحتم احبتى ممكن طريقه لفتح ملف اكسس من خلال مشروع فيجوال بيسك خالد كامل1 4 373 19-07-20, 12:58 AM
آخر رد: DR.YASER

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم