مبرمج مبتدا

للرفع

عندي سؤال هل يمكن انه اذا صار me.hwnd يحدث شيء ؟

اداة جميلة جدا وسهلة ايضا :) hotkey.rar

مش متاكد بس اظن المقصود حسب صيغة الملف الذي يدخلها المستخدم يعني .exe , .dll , ....

كان لدي نفس الكلام ولكن عندما قرات (ربنا يكرمه) حسيت بان العضو لا يقصد الاساءة بل النصيحة << انا ايضا تعجبني هذه الطريقة لان المحتاج يبحث يكون افضل من ان يحصل كود جاهز (كآلة اكواد) :D اما بالنسبة الى الكود : الكود لا يشتغل اذا كان الفورم minmize انا اظن بان هن…

جربت الاكواد بطريقة مطولة لكن لا فاائدة : 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 <> "" …

do loop while x = text1.item(mm).text or x = 0 انا مستغرب لماذا سيظل يدور الكوود و قبله : if text1.item(mm).locked = true و locked تعني بانه التكست موجود به رقم يعني المفروض الكود ما يدور بل يحصل على الرقم ويحذفه من rnd

ممكن بانه هناك مبرمجون محترفون اخي اذهب الى المواضيع السهلة جدا ستلاحظ ان الرد سريع جدا لان الاغلب يعرف وايضا : اذا شخص اخطا امامهم خطا كبير يسب اليوم الي عرفهم وتعلم البرمجة :) لاحظ في المنتدى ان اذا وضع موضوع الاغلب يعرف الحل ماذا يحدث

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

اخي المشكلة كلها موجودة في x = int(rnd * 9) for mm = 1 to 8 if text1.item(mm).locked = true do loop while x = text1.item(mm).text or x = 0 text1.item(0) = x end if next mm

هل لك بالتوضيح ؟؟ او التعديل على المثال ؟؟ بالنسبة للصورة 500 كيلوبايت ساجعلها اصغر ما استطيع

اقصد طريقة كتابتها وبعدين انا اجرب

السلام عليكم اخي الظاهر بانك ما فهمت قصدي كل ما اريده ان التكست واحد لا يتكرر مع غيره من التكسات وذلك اريد عمل طريقة rnd اذا كانت جميع المربعات ممتلئة سيكون رقم واحد مو موجود هو يوضعه اتمنى فهمت قصدي

اخي شكرا لك جدا do until وبقية الصور اقصد do until ... والبقية

للرفع

اتمنى حل المشكلة واني اريد توليد ارقام عشوائية غير الارقام الموجود في بقية التكسات اتمنى تعديل المرفق solve__.rar

x = Int(Rnd * 9) For mm = 1 To 8 If Text1.Item(mm).Locked = True Then Do Exit Do Loop While x = Text1.Item(mm).Text Text1.Item(0).Text = x Timer2.Enabled = True Timer1.Enabled = False End If Next mm تم التعديل : اذا لم يتحقق الشرط يسوي exit do ولكن .... المفرو…

هذا دليل على اني اجرب تجارب و اكواد :) يوجد اجهزة افضل من جهازي لكن المبرمجون قليلون توجد كتب ولكني لم احصل على ما اريد فقط حصلت على كتب للمبتدئين جدا ولدي كتب ايضا لقواعد البيانات المهم اخي ارجو ان تقول لي لماذذا :: و : مع شكري الجزيل

For mm = 1 To 8 If Text1.Item(mm).Locked = True Then Do Loop While x = Text1.Item(mm).Text Text1.Item(0).Text = x End If Next mm هذا الكود لحل المربع الاول انا املي 8 مربعات و وهو يوجد العدد البافي عندما املي المربعات : 1 . 2 . 3 .4 .5 .6 .7 .8 لا يعمل الكود ل…

اخي اريد ان انهي loop اذا لم تنتهي فكيف ؟