• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

اسلام الكبابى

اعضاء
  • عدد المشاركات

    306
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة اسلام الكبابى

  1. لغز (52) : الترتيب الوحيد ؟

    ما الذي تعنيه هذه العبارة بالتحديد ؟ هذه العبارة لأن أحد الأعضاء كان قد قال   ولماذا لا يؤدي لنتائج اخري غير اللون الاخضر ؟ كيف ذلك؟ جميع الأمثلة الثلاثة التى ذكرتها تؤدى الى نتائج أخرى  
  2. لغز (52) : الترتيب الوحيد ؟

    هذا رغم أن الأعداد كلها تقبل القسمة على 3 وبدون باقى   وماذا كان تعليقك أو ملاحظاتك عن المثالين الآخرين 7,10,28   و  8,11,20   أما عن اللون الأول والثانى والثالث فلا أظنها تفرق شيئآ عن أحدد ثلاثة ألوان بعينها
  3. لغز (52) : الترتيب الوحيد ؟

    وهاهو البرنامج فى صورة ملف تنفيذى أيضآ مع تعديل بسيط بحيث تكون النتائج المكتوبة أوضح وأسهل للجميع (يكتب بدلآ من أعداد الحرباءات يكتب الأول أو الثانى أو الثالث)   أرجو من كل من يحمل المرفق أن يعرف اجابات هذه الأمثلة ثم يكتب لنا تعليقه 12,15,18  و 7,10,28   و  8,11,20 الترتيب الوحيد EXE معدل.zip
  4. لغز (52) : الترتيب الوحيد ؟

    هاهو ابرنامج فى صورة ملف تنفيذى لكل من لا يعرف هذه اللغة من لغات البرمجة الترتيب EXEالوحيد.zip
  5. لغز (52) : الترتيب الوحيد ؟

    لغز رياضى جميل   أنا من عشاق الخوارزميات الرياضية وبرمجتها وهذا برنامج بسيط يعطى بعض الحلول لأى مسألة من نفس النوع مهما تغيرت الأعداد الثلاثة 17و10و7 لغز رياضى الترتيب الوحيد.zip
  6. لغز (51) : عملية حسابية ؟

    أولآ أهلا بك اخي ماجد الأسيوطى   لا أتفق معك فيما قلت لأن كل هذه الأمور (المشاركة والتواصل وكسر جمود الملل وتكوين صدقات جديدة) رغم أنها مطلوبة كما تقول الا أن لها منتديات أخرى توضع فيها غير منتدى الرياضيات والخوارزميات      
  7. لغز (51) : عملية حسابية ؟

    الأخ/ أبو أحمد المبرمج كلامه صحيح 100%وعلى ذلك فهذا ليس لغز رياضى أو مسألة حسابية (كما قيل فى عنوانها وكما هو مفهوم من المنتدى الموضوعة فيه الرياضيات والخوارزميات) انما هو فزورة تلاعب بالألفاظ تمامآ كما يسألك أحد (ثلاث خمسات يبقوا كام؟)  تقول له 15 يقول لك لأ يبقوا 555
  8. أليس هذا هو ما تريد؟ ان كان كذلك فليتك توضح طلبك أكثر
  9. لدى فورم تحتوى على عدة text وعدة Label وأريد معرفة كيفية تخزينها بأكملها داخل PictureBox من أجل طباعة الفورم على الورق أرجو ارفاق مرفق ولكم ألف شكر
  10. وضع الفورم بأكملها داخل PictureBox

    أليس لهذا الموضوع أى حل؟
  11. منع النسخ

    وها هو مثال مرفق ليقوم أحدكم بتعديله وتوضيح الخطأ فى برنامجى تعديله بحيث يمكن تشغيله ولكن لايمكن نسخه ولكم ألف شكر ضرب رقمين.zip
  12. هل توجد أى طريقة أو كود معين أمنع بها أى شخص من نسخ برنامجى وهل توجد أى طريقة أو كود معين أمنع بها أى شخص أن يستخدم برنامجى أكثر من 4مرات مثلآ ولكم ألف شكر
  13. وضع الفورم بأكملها داخل PictureBox

    أرجو تخزين هذه الفورم المرفقة  تخزينها بأكملها داخل PictureBox لا يهم حجمه و لا مكانه لأنه لن يظهر أثناء التشغيل و لا أثناء الطباعة، و إنما سنستعمله كمخزن مؤقت من أجل طباعة الفورم على الورق   وهذا هو الرابط http://www.mediafire.com/download/olm3d875mmbb3wz/%D8%B7%D8%A8%D8%A7%D8%B9%D8%A9_%D8%A7%D9%84%D9%81%D9%88%D8%B1%D9%85.zip   ولكم ألف شكر
  14. وهذا كود آخر أفضل منه لأن السابق يسمح للمستخدم بالكتابة فى أى تكست اذا أعاد الضغط عليه Dim PRES(9) As IntegerPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Print IndexIf PRES(Index) = 1 Then Text1(Index).Locked = True: GoTo 100PRES(Index) = 1If Index = Text1.Count - 1 Then Command1.SetFocus: GoTo 100Text1(Index + 1).SetFocus100 End Sub
  15. منع النسخ

    ليت الجواب يكون مع مرفق  وشكرآ
  16. هذا الكود باعتبار أن مجموعة التكست لديك هى (Text1(3) , Text1(2) , Text1(1) ,Text1(0 ,...........   Private Sub Command1_GotFocus()For i = 0 To Text1.Count - 1Text1(i).Locked = TrueNext iEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Print IndexIf Index = Text1.Count - 1 Then Command1.SetFocus: GoTo 100Text1(Index + 1).SetFocus100 End Sub
  17. وضع الفورم بأكملها داخل PictureBox

     طبعآ الأمر PrintForm يقوم بعملية طباعة الفورم كلها على الورق ولكنكم جميعآ تعلمون أنه يطبعها فى جزء صغير من الورقة لا بكامل مسطحها
  18. شكرآ لك هكذا يكون الكود تم استبدال أربعة أسطر بسطر واحد وليس استبدال كل كودى(21 سطر) بستة أسطر فقط   أليست هذه هى التى يشترط لها ملف تعليمات التى تحدثت عنها سابقآ؟ نحن فى انتظارها
  19.   مطلوب كود ينفذ مجموعة أوامرفى الفورم الأصلية form1 فى حالة الضغط فى الmsgbox على  (تعليمات) مثلآ ينفذ مجموعة الأوامر PP = 3267: Print PP   وينفذ مجموعة أوامرأخرى فى نفس الفورم الأصلية form1 فى حالة الضغط فى الmsgbox على  (موافق) مثلآ ينفذ مجموعة الأوامر PP = 98: Print PP   وينفذ مجموعة أوامرأخرى (باقى كود الفورم الأصلية) فى أى من الحالتين بعد الانتهاء من الmsgbox مثلآ ينفذ الأمر Print "KKKKKKKKKKKKK"   ان كنت تستطيع ذلك فليتك ترفق لنا برنامجك كاملآ بطريقتك السهلة البسيطة  
  20. أجد الكود فى مرفقك هو نفس كودى بما فيه ال loop الذى اعترضت عليه نريد كودآ بدون هذا ال loop ودون أن تضع بدلآ منها جمل شرطية
  21. وما الفرق بين هذه الجملة وهذه الجملة؟ كلاهما جملة واحدة لنفس الغرض   وماذا تقصد باللوب ؟ هل تقصد الجمل الثلاثة DoDoEventsLoop Until Dialog.Visible = Falseهذه الجمل لاعلاقة لها باظهار الDialog أو اخفاؤه انما هى شرط لابد منه كى لا يكمل الكود  الا اذا تم  الضغط على أحد أزارالDialog   ان كنت تستطيع ذلك دون هذه الجمل ودون أن تضع بدلآ منها جمل شرطية IF .......THEN.......................END IFفليتك تعدل لنا كودى وترفقه لنا بالطريقة السهلة البسيطة التى تقصدها
  22. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

    عرفت الحل والحمد لله أن أكتب نفس الكود الذى كتبته فى البداية ولكن فى حدث الtxtFields_KeyPress وليس حدث الtxtFields_Change Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)  CMdCancle.Visible = True  CMdUpdate.Visible = TrueEnd Sub  
  23. أريد كود لاظهار الزرين cmdUpdate و cmdCancle اذا عدل المستخدم بنفسه فى ال txtFields كتبت هذا الكود فوجدته يظهرهما فعلآ عند تعديل المستخدم فى ال txtFields ولكنه :hmm: يظهرهما أيضآ عند التنقل بين السجلات (أى عند الضغط على ال Adodc1)  Private Sub txtFields_Change(Index As Integer)   cmdCancle.Visible = False   cmdUpdate.Visible = False End Sub  ولكم ألف شكر
  24. هذا ما فهمته بالفعل وفى مرفقى الاجابة على سؤالك أظنك لم تقم بعمل الRUN للبرنامج الذى أرسلته لك
  25. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

    ليت ذلك جزاك الله خيرآ