حذف من Rnd ?

مثال على السريع لكن اعزرنى لان عندى امتحااااااااااااااااانات

solve__.zip

المثال مش شغال !!

do

loop while x =  text1.item(mm).text or x = 0

انا مستغرب لماذا سيظل يدور الكوود و قبله :

if text1.item(mm).locked = true

و locked تعني بانه التكست موجود به رقم

يعني المفروض الكود ما يدور بل يحصل على الرقم ويحذفه من rnd

جربت الاكواد بطريقة مطولة لكن لا فاائدة :

x = Int(Rnd * 10)

If Text1.Item(1).Text <> "" Then
Do
Loop While x = Text1.Item(1).Text Or x = 0
End If
If Text1.Item(2).Text <> "" Then
Do
Loop While x = Text1.Item(2).Text Or x = 0
End If
If Text1.Item(3).Text <> "" Then
Do
Loop While x = Text1.Item(3).Text Or x = 0
End If
If Text1.Item(4).Text <> "" Then
Do
Loop While x = Text1.Item(4).Text Or x = 0
End If

If Text1.Item(5).Text <> "" Then
Do
Loop While x = Text1.Item(5).Text Or x = 0
End If

If Text1.Item(6).Text <> "" Then
Do
Loop While x = Text1.Item(6).Text Or x = 0
End If

If Text1.Item(7).Text <> "" Then
Do
Loop While x = Text1.Item(7).Text Or x = 0
End If

If Text1.Item(8).Text <> "" Then
Do
Loop While x = Text1.Item(8).Text Or x = 0
End If

Text1.Item(0).Text = x

اتمنى من يعرف يساعدني

للرفع

للرفع

للرفع !!!

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

تفضل  اخي  هذا المثال وارجو   ان  اكون  قد  قاربت  على  ما  تريد

solve.rar

السشلام عليكم

أعتقد أن الخطأ يكمن في موقع عبارة End If.

ضع عبارة End If بعد Next mm( في سطر منفصل طبعا)

هناك نوع من الأخطاء يسمى الأخطاء القاتلة Fatal Errors لا أعلم إن كان يوجد هذا النوع

من الأخطاء في الفيجوال بيسك.تؤدي هذه الأخطاء كما أذكر إلى الخروج من البرنامج نهائيا.

وحدثت معي مثل هذه المشاكل مسبقأ.

انتبه لترتيب بنى التحكم.

اخي طارق المثال لم يكن شغال

فهو يعمل randomize ويكرر ما بالتكسات الاخرى

السلام عليكم

المثال عندي يعمل بشكل صحيح وجربت مرات عديدة حتى اجد تكرار فلم اجد

المثال مرة اخرى مع تغيير

Randomize

ويوجد صورة لكيفة ظهور النتيجة

solve.rar

وهذه صورة !!!

للمثال نفسه !!!

اخي كودي بالاعلى صحيح على ما اعتقد لكن ماالسبب بانه لا يعمل ؟؟

بالنسبة للكود في الطريقة المطولة التي طرحتها غير صحيح بالمرة .

لكن اريد ان أسألك هل الطريقة التي قدمتها لك الى حد ما صحيحة او الفكرة بها صحيحة لكن بقي ان لا يكون هناك تكرار مثل الصورة في الاعلى يوجد بها الرقم 4 مرتين وهذا هو فقط الخطأ اما كفركة فهي صحيحة .

عند املاء اي مربع من المربعات برقم او يمكن املاء مربعان او ثلاثة او اربعة بحيث المستخدم لا يكرر ما يمليه في المربعات

البرنامج يسوي RND للمربعات البقية مع حذف الارقام التي ادخلها المستخدم ويسوي RND ويوزع الارقام

اتمنى فهمت الفكرة

عذرا لاني كنت مشغول بالامتحانات