[كود] مثال عن رسم خط مستقيم بين نقطتين - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188) +--- الموضوع : [كود] مثال عن رسم خط مستقيم بين نقطتين (/showthread.php?tid=36021) |
مثال عن رسم خط مستقيم بين نقطتين - عبد الهادي بهاب - 06-08-20 السلام عليكم انا اريد ان انشئ خط مستقيم بين نقطتين في الصفحة في اي مكان سنضع قيمة متغير clic هي 1 اي الضغطة الاولى ..........لما نضغط مرة اخرى ستصبح 2 في clic 1 سنشئ نقطة في الموضوع الاول للضغطة و نسجل الموقع في لبيال 1 PHP كود : If clic = 1 Then و نضيف 1 لقيمة المتغير clic PHP كود : clic += 1 عندها سننشء نقطة اخرى PHP كود : ElseIf clic = 2 Then ثم ننشئ خطا مستقينما بينهما PHP كود : g.DrawLine(Pens.Red, p1, p2) كي نعيد الكرة مرة اخرى اي ننشء خطوط اخرى ما علينا الا ان نرجع القيمة clic الى 1 PHP كود : clic = 1 من اجل ذلك يجب ان نستدعي دالة الرسم PHP كود : Imports System.Drawing.Graphics و نعلن عن المتغيرات في البداية PHP كود : Dim g As Graphics و في بداية ظهور الصفحة form1_load PHP كود : g = CreateGraphics() الشكل النهائي الكود يحتاج الى تعديل ليكون بشكل دقيق ............. لمن يستطيع نكون شاكرين الملف للتعديل https://top4top.io/downloadf-16791lliz1-rar.html بالتوفيق RE: مثال عن رسم خط مستقيم بين نقطتين - Anas Mahmoud - 06-08-20 السبب هو انشاءك ليبلات وهي فكرة ليست جيدة يمكنك بكل سهولة رسم دائرة بدون الحاجة لانشاء ليبلات عن طريق FillEllipse السبب الثاني هو استخدامك Cursor في تحديد مكان الضغط وهذا ليس دقيق اطلاقا ، يمكنك استخدام حدث MouseDown للرسم : كود : dim p1 as new point(0,0) لم اقم بتجريبه ولكن ان شاء الله يعمل RE: مثال عن رسم خط مستقيم بين نقطتين - عيد مبارك - 06-08-20 كود : Public Class Form1 RE: مثال عن رسم خط مستقيم بين نقطتين - asemshahen5 - 06-08-20 جزاكم الله عنا كل خير . عندي ملاحظة بسيطة الا و هي : لماذا لا نستخدم الحدث دبل كليك لتحديد اول نقطة و الحدث ماوس اب لتحديد ثاني نقطة . اي دبل كليك و سحب الى النقطة الثانية ثم يتفعل الحدث ماوس اب تلقاءي لرسم النقة الثانية و الوصل بينهما كالبرامج الاحترافية . و الله الموفق . RE: مثال عن رسم خط مستقيم بين نقطتين - ابراهيم ايبو - 07-08-20 السلام عليكم ورحمة الله وبركاته كم انا سعيد لرؤيتي امثلة الغرافيك في المنتدى حيث ندرتها والقليل من الاخوة من يسير في هذا الاتجاه بارك الله فيك اخي عبد الهادي على ماقدمته وبارك الله بكم اخوتي انس محمود - عيد مبارك - عاصم شاهين ومن باب المشاركة اضع لكم هذا المثال وهو رسم مستقيم بالماوس ضغط وسحب ثم افلات هذه جزئية من مشروعي الذي عملت عليه في فترة سابقة وهو برنامج الرسام كنت اتمنى وجود قسم خاص بالغرافيك في المنتدى RE: مثال عن رسم خط مستقيم بين نقطتين - asemshahen5 - 07-08-20 الف شكر اخي ابراهيم على هذا المثال . ما اعجبني في الموضوع انه يمكن ان تغير مكان الخط المرسوم بتغيير مكان اليبل اي اعادة رسمه بعد تغيير اماكن الليبل الموضوعة على البنل . RE: مثال عن رسم خط مستقيم بين نقطتين - ابراهيم ايبو - 07-08-20 اخي عاصم برمجة الغرافيك عالم واسع جدا ويلزمه قدر لابأس به من الرياضيات ويفضل من له معرفة بالرسم او يعمل في برامج الغرافيك وكل الشركات العاملة في برمجيات الغرافيك لديها عدد من المستخدمين يعملون بالغرافيك كمهنة وهي تعطيهم البرمجبات لاختبارها كما انها تستمع لارائهم وتأخذ بنصائحهم وافكارهم ومتطلباتهم التي يرغبون في توفرها في البرنامج وكما تعلم هذه الشركات تمتلك مبرمجين مخضرمين من ذوي الخبرة العالية هههه (نحن نقطة امام بحرهم) شكرا لك ياغالي اسعدني تفاعلك RE: مثال عن رسم خط مستقيم بين نقطتين - عبد الهادي بهاب - 07-08-20 و الله سعادة كبيرة ان اجد هذا الكم الهائل من التجاوب بالاضافة --------- ليس كبعض مشاركات مشكووووووووووووووووووووووور او شكررررررررررا ------- متابع معكم و ساستعمل كل الاقتراحات بارك الله فيكم -------------- طبعا يمكن استعمال الفكرة في تمارين الربط بين اجابتين مثلا او في تمارين الرياضيات ......الخ و من خلال رددوكم -- اوحي الي --- او الهمت الكثير من المشاريع ساجد لها طريقا في القريب العاجل (06-08-20, 08:32 PM)عيد مبارك كتب : روعة ...............دقيق و فعال شكرا على الاضافة و التعديل (06-08-20, 08:08 PM)Anas Mahmoud كتب : السبب هو انشاءك ليبلات وهي فكرة ليست جيدة ما شاء الله تم التعديل بفضل فكرتك و تفعيلها من خلال عيد مبارك ........اسمه جميل على فكرة لان كل السنة اعياد ان شاء الله بدون احزان |