سؤالان فى الرسم

الأخ الفاضل ...

Lines.zip

أرجوا ان يفيدك هذا المثال فى ما تريد إنجازه، بإستخدام MS-VB 6.0

حيث يعتمد على علاقات حساب المثلثات المعروفة، لحساب احداثيات النقطة بدلالة زاوية الميل:

• س = ل × جتا هـ
  
• ص = ل × جا هـ
  

Private PI As Double


Private Sub Form_Load()

    PI = Atn(1) * 4

End Sub


Private Sub EchoValues()

    Dim LineLen As Long


    LineLen = lineFloat.Y1 - scrLength.Value


    lineFloat.X2 = lineFloat.X1 + LineLen * Cos(scrAngle.Value * PI / 180)

    lineFloat.Y2 = lineFloat.Y1 - LineLen * Sin(scrAngle.Value * PI / 180)


End Sub

شكراً

اقتباس

فماذا لو أردت رسم خط مستقيم من النقطة (8,3) طوله 7سم وميله=0.4 ؟

رياضيات,

الوظيفة التالية تقوم بإعطائك atan بشكل دقيق تبعاً للربع الموجودة فيه, مشكلتك فيها هي أنها تحتاج إلى قيمة x, y بحيث يتم اعتبار المبدأ (x_0,y_0)=(0,0) (بتصوري) وعلى أساس احداثيات النقطة x,y يتم تحديد الربع كي يتم تصحيح الزاوية لكن لا تملك احداثيات اذا يجب ان تعتمد على قيمة الميل لتحدد الربع وتصحح الزاوية على اساسه (وظيفة atan الموجودة في مكتبة الفيجوال محددة في المجال [Pi,-Pi])

اقتباس

ماذا لو أردت رسم خط مستقيم من النقطة (8,3) طوله 7سم ويصنع مع المستقيم المرسوم سابقآ زاوية

قياسها 30 درجة

تحتاج الى الزاوية الاصلية للمستقيم المرسوم لتضيف اليها الزاوية الجديدة للمستقيم الثاني.

اعتبر مبدأ الاحداثيات لديك النقطة ذات الـ X الاصغر كي يبقى الميل لديك بين Pi و Pi-

وفقاً لقيمة Y يمكنك تحديد الربع الذي تقع فيه النقطة الثانية, ان كانت y_2 اكبر من y_1 (بفرض 1 و 2 تمثلان النقطتين) فاذا انت في الربع الاول (طبعا بفرض X موجبة دوماً)

تقوم الان بحساب الميل بين النقطتين.

تعود من الميل لحساب الزاوية والتي يجب ان تنتبه انها من احدى النقطتين الى النقطة الثانية.

يجب ان تكون هذه الزاوية الان انطلاقا من النقطة (8,3) فاما ان تكون هي نفسها في حال كانت هذه هي النقطة ذات السينات الاقل او ان تكون الاخرى فتقوم باكمال الزاوية.

ثم تحتاج الى اضافة الزاوية الجديدة قبل الرسم.

باختصار شديد هناك الكثير من الحالات التي ستظهر معك, لان الزاوية الجديدة لن تحدد لك الجهة التي سيتم رسم المستقيم عندها (فوق او تحت المستقيم الاساسي) لذلك تحتاج الى معطيات اخرى.

اقتباس

فكيف لى أن أظلل مضلعآ مغلقآ مكون من خمسة خطوط مثلا

اعتمد نقطة اولى p1 اساساً, تحتاج الى نقطة علام تسير على جميع الاضلاع بمسافات صغيرة تكون هي النقطة الثانية والتي سيتم رسم مستقيمن من النقطة p1 باتجاهها, وهكذا حتى تنطبق الاحداثيات للنقطتين (طبعا الضلعين التي تنتمي النقطة لهما يمكنك تخطيهما).

ثم تنتقل الى النقطة الثانية من المضلع p2 وتقوم بنفس الامر وهكذا.. بهذا تقوم بملئ كامل الفراغ في المضلع.

--------------

/index.php?showforum=170

عقلي الرياضي ليس مرناً كفاية لذلك ردي السابق قد يختصر بكلمتين من شخص متمكن بكتابة الخوارزميات الرياضية برمجياً لذلك وجد منتدى متخصص في موقع الفريق العربي للبرمجة لهذه الأمور يفضل أن يكون هذا الموضوع هناك.

عذرا على الاطالة والتعقيد, السلام عليكم

أخوانى الأعزاء

أولآ:لكم ألف شكرجميعآ

وأريد أن أوضح نقطتين

بالنسبة للسؤال الأول

ألا يوجد أمر فى لغة البيزيك أستطيع به رسم خط مستقيم من النقطة (8,3) طوله 7سم ويصنع

مع مستقيم مرسوم سابقآ زاوية قياسها 30 درجة ؟

أو بمعنى آخر

ألا يوجد أمر فى لغة البيزيك أستطيع به رسم أى زاوية معلوم قياسها ؟

أراكم تفهمونى مشكورين الرياضيات والهندسة التحليلية ولكنى أريد أن أفهم أوامر الرسم بلغة البيزيك

بالنسبة للسؤال الثانى

أنا ليس لدي Object كالدائرة أو المستطيل أو أى مضلع منتظم

ولكن لدى عدة خطوط متصلة ببعضها كل خط منهم له طول غير الآخر كونت شكل ملخبط

ولكم ألف شكر

1. لا يوجد

2. ردي على السؤال الثاني يكفي (ان شاء الله) لاي شكل منتظم او غير منتظم

الأخ الفاضل/ENG.USAMA

جزاك الله كل خير ياأخى

لما حملت برنامجك المرفق وجدت فيه ما أريد

ويا ليتنى أجد عندك إجابة السؤال الثانى لأنى بصراحة لم أستطع أن أفهم رد الأستاذJUNKIE

مع مراعاة أنى ليس لدي Object كالدائرة أو المستطيل أو أى مضلع منتظم

ولكن لدى عدة خطوط متصلة ببعضها سأرسمها واحدآ تلو الآخر

بنفس طريقة رسمك للمستقيمlineFloat

كل خط منهم له طول غير الآخر فكونت هذه الخطوط شكل ملخبط

وأريد تظليل هذا الشكل

ولك ألف شكر

الأخ الفاضل ...

Polygon.zip

أرجوا ان يفيدك هذا البرنامج فيما تريد إنجازه، بإستخدام MS-VB 6.0

وهو بعتمد على استخدام أحدى دوال API المستخدمة فى الرسم GDI، وهى الدالة Polygon، وتستخدم لرسم أى شكل وليس الخماسى فقط، فيمكنك رسم اشكال سداسية ونجوم، او حتى اشكال عشوائية، وتحديد النقط عن طريق احداثيات Y - X ومهمة الدالة توصيل هذه النقط ببعضها واقفال الشكل.

Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Type POINTAPI
	x As Long
	y As Long
End Type

Private Sub Form_Resize()
	Dim Pentagon(5) As POINTAPI

	Pentagon(1).x = 50: Pentagon(1).y = 50
	Pentagon(2).x = 50: Pentagon(2).y = 150
	Pentagon(3).x = 150: Pentagon(3).y = 250
	Pentagon(4).x = 250: Pentagon(4).y = 150
	Pentagon(5).x = 250: Pentagon(5).y = 50

	Me.FillStyle = vbFSSolid
	Me.FillColor = vbRed
	Me.ForeColor = vbYellow
	Me.DrawWidth = 2

	Call Polygon(Me.hdc, Pentagon(1), 5)
End Sub

شكراً

الأخ الفاضل/ENG.USAMA

جزاك الله كل خير

ولك ألف مليوووووووووون شكر