الكلمات المتقاطعة والتأكد من الحل

أهلا بك بالمنتدى :)

أجمع الحروف بـ String واحد و قارنه ككل بالكلمة.

Dim strAll As String
strAll = Text1.Text & Text2.Text '& ....................

If UCase($strAll) = UCase$("الكلمة الصح") Then
		MsgBox "Yub , This is right :)"
	Else
		MsgBox "Oooooooooooooops , Try again :("
End If

شكرا لتجاوبك أخوي ، وجزاك الله خيرا

المشكلة أن كل مربع له قيمة مختلفة عن الآخر

يعني في مربع قيمته "أ" والآخر "ك" مثلا وهكذا هي 67 مربع

في انتظار ردك

وما المشكلة فى ذلك ؟

أن كان لديك أكثر من كلمة جمعهم فى String Array و قارن كل كلمة فيه بما لديك من الكلمات الصحيحة.

بالمناسبة أنا لم أرى مشروعك و لن ينفع أنى أراه حاليا , لكن لا توجد مشاكل , أطلق لخيالك العنان و ألعب مع البرنامج :lol:

لم أفهم ما تقصده أخي العزيز

هلّا أعطيتني مثال بسيط

لو كان لدي ثلاثة مربعات :

الأول قيمته الصحيحة هي "أ"

الثاني قيمته الصحيحة هي "ك"

الثالث قيمته الصحيحة هي " م"

فكيف سيكون الكود ؟

أسأل الله أن يغفر لك ولوالديك وأن يدخلكم فسيح جناته .

أنت مش يهمك أنه الحروف يعملوا كلمة معينة , و ليكن فى مثالك كلمة " أكم " ؟

إلا يهمني

لكنها مفرقة كل حرف في مربع ( على طريقة الكلمات المتقاطعة )

يعني مثلا كلمة الله راح تكون : ا ل ل ه

وكل حرف منهم في مربع لوحده

طيب مهو أنت المفروض أساسا وزعت حروف الكلمة بطريقة معينة على أنها توافق صناديق نصية معينة و بالتالى أنت المفروض عارفهم بالترتيب.

تقصد بالترتيب إني عارف إن text1 فيه " أ" و text2 فيه "م" مثلا

إذا كان هذا هو اللي تقصده فجوابي نعم عارف ترتيبها

تبقى ايه المشكلة بقى طالما أنك عارف الترتيب ؟

الحمد لله الطريقة نفعت معايا

وإن شاء الله أنزل لكم البرنامج كامل بعد ما أخلص منه

رابط الموضوع

/index.ph...mp;#entry716367