+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : رسم خط مائل (/showthread.php?tid=38865)
رسم خط مائل - Mtaktak - 07-07-21
السلام عليكم ورحمة الله
في لعبة XO يحتسب فوز اللاعب افقيا وعموديا وحالة اخرى بشكل مائل يعني المربعات 3 و5 و7 فرضا
قمت بعمل خط للفوز الافقي والعمودي عن طريق اداة PictureBox ... ولكن الخط المائل هذا عقدني لم اجد له حل
اليكم الصور
[attachment=26795][attachment=26797][attachment=26798]
RE: رسم خط مائل - عبد الهادي بهاب - 07-07-21
هل المطلوب الكود او الصورة
الخلفية شفافة طبعا
RE: رسم خط مائل - Mtaktak - 07-07-21
يبدو انك تمزح صح؟؟
RE: رسم خط مائل - ابراهيم ايبو - 07-07-21
السلام عليكم ورحمة الله وبركاته
اخي الكريم
ضع كودك الذي انشأت به الخط العمودي والافقي ليتم التعديل واضافة الخط المائل
RE: رسم خط مائل - Mtaktak - 07-07-21
شكرا على مرورك وردك
سبق وجربت هذا الكود الذي كتبته انت لي مشكورا
Dim x1 = 10, y1 = 10, x2 = 300, y2 = 300
Me.CreateGraphics().DrawLine(Pens.Red, New Point(x1, y1), New Point(x2, y2))
لكن مشكلته لا يمكن رسمه فوق الادوات الموجودة على الفورم وليس عريض الشكل
حاليا انا استخدم هذا الكود ولكنه ينفع للافقي والعمودي ..... ولا ينفع للمائل
كود :
If H1 = True Then
If PictureBox.Width <= 311 Then
PictureBox.Width += 15
Else
PictureBox.Width = 312
End If
End IfRE: رسم خط مائل - ابراهيم ايبو - 07-07-21
اخي الكريم
الخط المائل سيكون بدايته بداية الخط الافقي او العمودي ولنفترض (20,20) النقطة الاولى
اما النقطة الثانية x هي النقظة x الثانية للخط الافقي
و y هي النقطة y الثانية للخط العمودي
على النحو التالي
كود :
Me.CreateGraphics().DrawLine(p, 20, 20, 20, 200) ' خط عمودي
Me.CreateGraphics().DrawLine(p, 20, 20, 200, 20)' خط افقي
Me.CreateGraphics().DrawLine(p, 20, 20, 200, 200)' خط مائلكود :
Dim p As Pen = New Pen(Color.Red, 10)RE: رسم خط مائل - Mtaktak - 07-07-21
اشكرك اخي ابراهيم جزيل الشكر
كود رائع جدا
ولكن لا يمكن رسمه فوق الادوات كما اسلفت
RE: رسم خط مائل - ابراهيم ايبو - 07-07-21
ان كنت ترسم على الصورة
استبدل Me ب اسم الصورة
كودك الذي ترسم به ليس كود رسم انما هو كود تكبير وتصغير لطول اداة
ناحية اخرى ان كانت الخانات الفائزة القطرية بشكل عكسي اي يمين اعلى ويسار اسفل سيكون الخط المائل من الاعلى يمين الى الاسفل يسار
وكذلك بقية الخطوط الافقية والعمودية اي انك ستحتاج الى معادلات رسم 3 افقي كل صف مختلف و3 عمودي ايضا كل عمود مختلف
و2 قطري واجد من اليمين والاخر من اليسار
اخي كما اشار الاخ فعلا انك لاترسم
الافضل ان تقوم بعمل خلفية ال X بلون وال o بلون اخر وبهذا انت لست بحاجة الى وضع اي خط ستكون الالوان هي نفسها ترسم الشكل الفائز
RE: رسم خط مائل - Mtaktak - 08-07-21
اعزائي ....
اشكر لكم تجاوبكم وتفاعلكم
فعلا استفدت منكم الله لا يحرمنا منكم
عندما استخدمت اداة الصور كنت في بداية عمل اللعبة التي انشط ذاكرتي بعملها وبرمجتها
واكتشفت برمجة رسم الخطوط والاشكال وازدادت معلوماتي من فضل الله ثم بتفاعلكم
عندما اشارك ذلك معكم فقط للاتسفادة
لافيد نفسي وليستفيد غيري
اشكركم جميعا
والله من وراء القصد
وهذه الصورة نتاج ما قدمتموه لي