الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج صغير ل معرفه الاشكال الهندسيه

بدأه ميمي الفرحان في 13 مايو 2009 · 7 رد · 615 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

الرجاء مساعدتي في برنامج مطلوب مني تسليمه

فكرته

ان يقوم المستخدم بادخال عدد ( اضلاع الشكل الهندسي )

وثم يدخل المسافه بين كل نقطه

مثلا المسافه بين النقطه الاولى والثانيه

والمسافه بين النقطه الثانيه والثالثه

والمسافه بين النقطه الثالثه والرابعه

والمسافه بين الربعه والاولى

ومنه نستطيع حساب طول المسافه ومعرفه الشكل الهندسي

الفكره اني اريد التفريق بين المربع والمستطيل

الرجاء مساعدتي ولكم الشكر

:wacko:

#2

مرحباً أخـ(ـتـ)ـي الكريمـ(ـة),

أولأ لايمكن للمستخدم أن يدخل المسافات فقط لأنه ومن المعروف أن أي خط له بداية ونهاية وأيضاً كل نقطة من ذلك الخط لها قيمة للإحداثي X وقيمة أخرى للإحداثي Y, فكيف تريد جعل المستخدم يدخل كل من ما ذكر ؟

بالنسبة للمستطيلات التي تشكل المربعات أيضاً فهي تحتاج إلى ( X, Y, Width, Height ) أو استخدام العملية ( Rectangle.FromLTRB أو RectangleF.FromLTRB ) والتي تساعدك على تشكيل كائن مستطيل من نقاط أماكن الزاويا الأربع ( يسار, أعلى, يمين, أسفل ) .

فقط أخبرنا عن طريقة إدخال الإحداثيات .

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#3

السلام عليكم

شكرا لكي اختي العزيزة

طريقه ادخال الاحداثيات بعد تحديد عدد الاضلاع

هذي فكرتي :)

#4

بلييييييييييييز ساعدوني

#5

مرحباً مرة أخرى,

لست واثق من ما تريد لكني سأريك مثال بسيط عن هذه الفكرة :

العملية التالية مستخدمة في المشروع المرفق لعرض الشكل الذي قام المستخدم بإعداد خصائصه 

 

    [color= #000000; font-weight: bold;]Private [color= #000000; font-weight: bold;]Function GetCircularPolygonPoints[color= #009900;](ByVal NumberOfLines [color= #b1b100;]As Int32[color= #339933;], [color= #990000;]_

    ByVal StartAngle [color= #b1b100;]As Single[color= #339933;], ByVal Sweep [color= #b1b100;]As Single[color= #339933;], [color= #990000;]_

    ByVal X [color= #b1b100;]As Single[color= #339933;], ByVal Y [color= #b1b100;]As Single[color= #339933;], [color= #990000;]_

    ByVal Width [color= #b1b100;]As Single[color= #339933;], ByVal Height [color= #b1b100;]As Single[color= #009900;]) [color= #b1b100;]As PointF[color= #009900;]([color= #009900;])

        NumberOfLines [color= #339933;]= Math[color= #339933;].[color= #990000;]Max[color= #009900;](NumberOfLines[color= #339933;], [color= #cc66cc;]3[color= #009900;])

        Dim Points[color= #009900;](NumberOfLines [color= #339933;]- [color= #cc66cc;]1[color= #009900;]) [color= #b1b100;]As PointF

        Dim CX [color= #b1b100;]As Single [color= #339933;]= X [color= #339933;]+ [color= #009900;](Width [color= #339933;]/ [color= #cc66cc;]2[color= #009900;])[color= #339933;], CY [color= #b1b100;]As Single [color= #339933;]= Y [color= #339933;]+ [color= #009900;](Height [color= #339933;]/ [color= #cc66cc;]2[color= #009900;])

        Dim WRadius [color= #b1b100;]As Single [color= #339933;]= [color= #009900;](Width [color= #339933;]/ [color= #cc66cc;]2[color= #009900;])[color= #339933;], HRadius [color= #b1b100;]As Single [color= #339933;]= [color= #009900;](Height [color= #339933;]/ [color= #cc66cc;]2[color= #009900;])

        Dim CurrentAngle [color= #b1b100;]As Single [color= #339933;]= [color= #009900;](StartAngle Mod [color= #cc66cc;]360[color= #009900;])

        Dim SweepPer [color= #b1b100;]As Single [color= #339933;]= [color= #009900;](Math[color= #339933;].[color= #990000;]Max[color= #009900;](Sweep[color= #339933;], [color= #cc66cc;]1[color= #009900;]) [color= #339933;]/ NumberOfLines[color= #009900;])

        [color= #b1b100;]For I [color= #b1b100;]As Int32 [color= #339933;]= [color= #cc66cc;]0 To NumberOfLines [color= #339933;]- [color= #cc66cc;]1

            Points[color= #009900;](I[color= #009900;])[color= #339933;].X [color= #339933;]= [color= #009900;](CX [color= #339933;]+ WRadius [color= #339933;]* Math[color= #339933;].[color= #990000;]Cos[color= #009900;](CurrentAngle [color= #339933;]* Math[color= #339933;].[color= #990000;]PI [color= #339933;]/ [color= #cc66cc;]180[color= #009900;])[color= #009900;])

            Points[color= #009900;](I[color= #009900;])[color= #339933;].Y [color= #339933;]= [color= #009900;](CY [color= #339933;]- HRadius [color= #339933;]* Math[color= #339933;].[color= #990000;]Sin[color= #009900;](CurrentAngle [color= #339933;]* Math[color= #339933;].[color= #990000;]PI [color= #339933;]/ [color= #cc66cc;]180[color= #009900;])[color= #009900;])

            CurrentAngle [color= #339933;]+= SweepPer

        [color= #990000;]Next

        [color= #b1b100;]Return Points

    [color= #990000;]End [color= #000000; font-weight: bold;]Function

جرب المثال وأعلمني إذا كان هناك أي شيء أخر,

بالتوفيق

AnalyseShapesByNumberOfLines.rar

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#6

الله يعطيك العافيه شكرا لك

#7

يسلمو بشار بس انت كدا وصلت معايا لنفس النتيجه

بس انا الكود اللي ادوره مختلف ابغاه يكون كلاسات

كمان الفكره كانت انو يدخل المستخدم نقاط x و y يخزنها في اريه كل مره بعد كتابه عدد الاضلاع

وبكذا احنا ممكن نحسب الطول بين كل نقطتين ومنها نعرف الشكل الهندسي

بليز ساعدوني كيف ممكن اعملها

#8

بليز ساعدوني يوم الاثنين التسليم

مواضيع مشابهة