منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
لعبة تحديد الكلمات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8227)

الصفحات: 1 2 3 4


لعبة تحديد الكلمات - aftfm - 29-03-13

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

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



[ATTACH=CONFIG]2225[/ATTACH]


لعبة تحديد الكلمات - aftfm - 30-03-13

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


لعبة تحديد الكلمات - سعود - 30-03-13

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


لعبة تحديد الكلمات - aftfm - 30-03-13

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


لعبة تحديد الكلمات - aftfm - 31-03-13

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

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 



لعبة تحديد الكلمات - مبرمج أوتار - 31-03-13

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



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


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

من هنا


لعبة تحديد الكلمات - aftfm - 31-03-13

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

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


لعبة تحديد الكلمات - sooriaty03 - 01-04-13

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

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



لعبة تحديد الكلمات - aftfm - 01-04-13

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

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


لعبة تحديد الكلمات - aftfm - 01-04-13

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