[aftfm]

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

كيف عمل مثل هذه اللعبة
لعبة تحديد الكلمات بحيث اضع الماوس على الاحرف واسحب لتحديد الكلمة ويظهر المستطيل فإذا كانت الكلمة صحيحة تظهر في Label



[ATTACH=CONFIG]2225[/ATTACH]

[aftfm]

ممكن احد يعطيني ولو فكرة للقيام بذلك

[سعود]

بصراحة لعبة رائعة لكن اول مرة افكر بيها
باذن الله ان توصلت لشيء ولو شبه بعيد ساكتب موضوعا بذلك.

[aftfm]

اتمنى ان يشاركونا بقية الاعضاء في هذا الموضوع

[aftfm]

هذا الكود لكتابة على الداتا قريد وقد تم كتابة السطر الاول
كيف اتم باقي الاسطر

PHP كود :

Me.DataGridView1.DataSource = Nothing
        Call Me.DataGridView1.Columns.Clear()
        Call Me.DataGridView1.Rows.Clear()
        Me.DataGridView1.ColumnHeadersVisible = False
        Me.DataGridView1.RowHeadersVisible = False
        Me.DataGridView1.Refresh()
        
        Me.DataGridView1.Columns.Add("Columns1", "")
        Me.DataGridView1.Columns(0).Width = 30
        Me.DataGridView1.Columns.Add("Columns2", "")
        Me.DataGridView1.Columns(1).Width = 30
        Me.DataGridView1.Columns.Add("Columns3", "")
        Me.DataGridView1.Columns(2).Width = 30
        Me.DataGridView1.Columns.Add("Columns4", "")
        Me.DataGridView1.Columns(3).Width = 30
        Me.DataGridView1.Columns.Add("Columns5", "")
        Me.DataGridView1.Columns(4).Width = 30
        Me.DataGridView1.Columns.Add("Columns6", "")
        Me.DataGridView1.Columns(5).Width = 30
        Me.DataGridView1.Columns.Add("Columns7", "")
        Me.DataGridView1.Columns(6).Width = 30
        Me.DataGridView1.Columns.Add("Columns8", "")
        Me.DataGridView1.Columns(7).Width = 30
        Me.DataGridView1.Columns.Add("Columns9", "")
        Me.DataGridView1.Columns(8).Width = 30
        Me.DataGridView1.Columns.Add("Columns10", "")
        Me.DataGridView1.Columns(9).Width = 30
        Me.DataGridView1.Columns.Add("Columns11", "")
        Me.DataGridView1.Columns(10).Width = 30

        For Each Row As DataGridViewRow In Me.DataGridView1.Rows
            Row.DataGridView.RowsDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            Row.Cells(0).Value = "U"
            Row.Cells(1).Value = "W"
            Row.Cells(2).Value = "E"
            Row.Cells(3).Value = "D"
            Row.Cells(4).Value = "N"
            Row.Cells(5).Value = "E"
            Row.Cells(6).Value = "S"
            Row.Cells(7).Value = "D"
            Row.Cells(8).Value = "A"
            Row.Cells(9).Value = "Y"
            Row.Cells(10).Value = "T"
        Next 


[مبرمج أوتار]

حصلت علي برنامج مفتوح مصدر لكن بنسخة فيجوال بيسك 6



النقل للفائده فقط لا اكثر ... *_-


للتحميل الملف من الرابط التالي : ---

من هنا

[aftfm]

اشكرك لهذا تمت التجربة

نريد مثل هذه الشبكة ولكن بدون تظليل مع امكانية التأشير والتظليل
لان المطلوب ليس الكلمات المتقاطعة بالظبط ولكن اختيار الكلمات من مربعات الشبكة واظهار الكلمة الصحيحة على Label

[sooriaty03]

[COLOR="#0000FF"]السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
هذا مثال يوضح لك طريقة لعمل ذلك

بالتوفيق[/COLOR]

[aftfm]

وهذه تجربة اخرى
لكن تحتاج الى تعديل

اولاً ازرار Restoration لإعادة بدأ اللعبة من جديد أي مسح العلامات
ثانياً تثبيت علامة خاصة بكلمة اساسية وهي كما في الصورة الأولى SITDOWN
ثالثاً عند التأشير على كلمة خطأ يكون هناك امكانية لاعادة التصحيح بدون التأثير على الكلمات المختارة سابقاً

[aftfm]

والف شكر اخي العزيز sooriaty03 على مثالك
واجهتني مشكلة في التأشير من اليسار الى اليمين في حالة كان النص غير عربي