[Mtaktak]

السلام عليكم ورحمة الله

في لعبة XO يحتسب فوز اللاعب افقيا وعموديا وحالة اخرى بشكل مائل يعني المربعات 3 و5 و7  فرضا

قمت بعمل خط للفوز الافقي والعمودي عن طريق اداة PictureBox ... ولكن الخط المائل هذا عقدني لم اجد له حل

اليكم الصور
[attachment=26795][attachment=26797][attachment=26798]

[عبد الهادي بهاب]

هل المطلوب الكود او الصورة 












الخلفية شفافة طبعا

[Mtaktak]

يبدو انك تمزح صح؟؟

[ابراهيم ايبو]

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

[Mtaktak]

شكرا على مرورك وردك

سبق وجربت هذا الكود الذي كتبته انت لي مشكورا

  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 If

[ابراهيم ايبو]

اخي الكريم 
الخط المائل سيكون بدايته بداية الخط الافقي او العمودي ولنفترض (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)' خط مائل

اما بالنسبة للقلم p فستحدد عرضه في التعريف والاسناد

كود :

Dim p As Pen = New Pen(Color.Red, 10)

[Mtaktak]

اشكرك اخي ابراهيم جزيل الشكر


كود رائع جدا

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

[ابراهيم ايبو]

ان كنت ترسم على الصورة 
استبدل Me ب اسم الصورة
كودك الذي ترسم به ليس كود رسم انما هو كود تكبير وتصغير لطول اداة
ناحية اخرى ان كانت الخانات الفائزة القطرية بشكل عكسي اي يمين اعلى ويسار اسفل سيكون الخط المائل من الاعلى يمين الى الاسفل يسار
وكذلك بقية الخطوط الافقية والعمودية اي انك ستحتاج الى معادلات رسم  3 افقي كل صف مختلف و3 عمودي ايضا كل عمود مختلف
و2 قطري واجد من اليمين والاخر من اليسار

---

اخي كما اشار الاخ فعلا انك لاترسم 
الافضل ان تقوم بعمل خلفية ال X بلون وال o بلون اخر وبهذا انت لست بحاجة الى وضع اي خط ستكون الالوان هي نفسها ترسم الشكل الفائز

[Mtaktak]

اعزائي  ....
اشكر لكم تجاوبكم وتفاعلكم
فعلا استفدت منكم الله لا يحرمنا منكم

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

واكتشفت برمجة رسم الخطوط والاشكال وازدادت معلوماتي من فضل الله ثم بتفاعلكم

عندما اشارك ذلك معكم فقط للاتسفادة  
لافيد نفسي وليستفيد غيري

اشكركم جميعا
والله من وراء القصد

وهذه الصورة نتاج ما قدمتموه لي