تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
رسم خط مائل
#1
السلام عليكم ورحمة الله

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

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

اليكم الصور

           
اللهم صلي على نبينا محمد
الرد
تم الشكر بواسطة:
#2
هل المطلوب الكود او الصورة 












الخلفية شفافة طبعا
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة:
#3
يبدو انك تمزح صح؟؟
اللهم صلي على نبينا محمد
الرد
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته
اخي الكريم
ضع كودك الذي انشأت به الخط العمودي والافقي ليتم التعديل واضافة الخط المائل
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة:
#5
شكرا على مرورك وردك

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

  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
اللهم صلي على نبينا محمد
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
اخي الكريم 
الخط المائل سيكون بدايته بداية الخط الافقي او العمودي ولنفترض (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 , Mtaktak
#7
اشكرك اخي ابراهيم جزيل الشكر


كود رائع جدا

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

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







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

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

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

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

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

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


الملفات المرفقة صورة/صور
   
اللهم صلي على نبينا محمد
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم