السلام عليكم ورحمة الله
في لعبة XO يحتسب فوز اللاعب افقيا وعموديا وحالة اخرى بشكل مائل يعني المربعات 3 و5 و7 فرضا
قمت بعمل خط للفوز الافقي والعمودي عن طريق اداة PictureBox ... ولكن الخط المائل هذا عقدني لم اجد له حل
اليكم الصور
[attachment=26795][attachment=26797][attachment=26798]
هل المطلوب الكود او الصورة
الخلفية شفافة طبعا
السلام عليكم ورحمة الله وبركاته
اخي الكريم
ضع كودك الذي انشأت به الخط العمودي والافقي ليتم التعديل واضافة الخط المائل
شكرا على مرورك وردك
سبق وجربت هذا الكود الذي كتبته انت لي مشكورا
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)
اشكرك اخي ابراهيم جزيل الشكر
كود رائع جدا
ولكن لا يمكن رسمه فوق الادوات كما اسلفت
ان كنت ترسم على الصورة
استبدل Me ب اسم الصورة
كودك الذي ترسم به ليس كود رسم انما هو كود تكبير وتصغير لطول اداة
ناحية اخرى ان كانت الخانات الفائزة القطرية بشكل عكسي اي يمين اعلى ويسار اسفل سيكون الخط المائل من الاعلى يمين الى الاسفل يسار
وكذلك بقية الخطوط الافقية والعمودية اي انك ستحتاج الى معادلات رسم 3 افقي كل صف مختلف و3 عمودي ايضا كل عمود مختلف
و2 قطري واجد من اليمين والاخر من اليسار
اخي كما اشار الاخ فعلا انك لاترسم
الافضل ان تقوم بعمل خلفية ال X بلون وال o بلون اخر وبهذا انت لست بحاجة الى وضع اي خط ستكون الالوان هي نفسها ترسم الشكل الفائز
اعزائي ....
اشكر لكم تجاوبكم وتفاعلكم
فعلا استفدت منكم الله لا يحرمنا منكم
عندما استخدمت اداة الصور كنت في بداية عمل اللعبة التي انشط ذاكرتي بعملها وبرمجتها
واكتشفت برمجة رسم الخطوط والاشكال وازدادت معلوماتي من فضل الله ثم بتفاعلكم
عندما اشارك ذلك معكم فقط للاتسفادة
لافيد نفسي وليستفيد غيري
اشكركم جميعا
والله من وراء القصد
وهذه الصورة نتاج ما قدمتموه لي