AbuuAhmed

ربما هو المطلوب BASE-E5_02.accdb

محاولتي: معادلة طرح وجمع تاريخين_02.xlsx

المثال: hashtags_01.accdb

استخدم دالة IsNumeric إذا كانت النتيجة 0 أو false فهي القيمة المطلوبة

هذا حل رياضياتي، وأنا أوضحت أننا نريد حلا برمجيا. الغرض لنتعرف على قدارات المبرمجين ونرى "تحايلهم" في خلق افكار غير معتادة للوصول إلى الحل. شكرا لك.

حلول ذكية منقولة الحل الأول: Function Survivor(pCount As Integer) As Variant Dim Res As String Survivor = "#NUM!" If pCount < 1 Or pCount > 511 Then Exit Function Res = WorksheetFunction.Dec2Bin(pCount) Res = Mid(Res, 2) & Left(Res, 1) Survivor = WorksheetFunction.Bin2Dec(Res) End Function الحل الثاني: Function Survivor(pCount As Integer) As Integer Dim Prisoners As String Dim k As Integer, v As Integer Prisoners = String(pCount, "1") Do While Replace(Prisoners, "0", "") <> "1" k = InStr(v + 1, Prisoners, "1"): If k = 0 Then k = InStr(1, Prisoners, "1") v = InStr(k + 1, Prisoners, "1"): If v = 0 Then v = InStr(1, Prisoners, "1") Prisoners = Left(Prisoners, v - 1) & "0" & Mid(Prisoners, v + 1) Loop Survivor = InStr(1, Prisoners, "1") End Function آمل من المشرفين الكرام إقفال هذا الموضوع فقد وئد في يومه الأول. شكرا للجميع.

كان يجب عليك الإلتزام بالسؤال والشروط، هو سؤال وليس تنظيرا لنظرية ما. لم تجب على الجزء الآخر من السؤال، هل كتب الدالة بعد قراءتك للسؤال أم كتبتها سابقا؟.

الكود عمل محترف وسريع. هناك مخالفتين منك 🙂 : - بحثك عن الحل عن طريق الإنترنت. - إضافة خيارات غير مطلوبة في السؤال بسبب اعتمادك على مصدر خارجي وبسببه طال الكود. - يمكن اختصار الكود ورفعه كمشاركة ثانية وأخيرة. إذا أنت من كتب الدالة وكتبتها بعد قراءتك للسؤال فأنت محترف وصانع متمكن للأكواد. تعلمت من دالتك استخدام كائن Collection

أستاذ يمكن الوصول للحل بدون معرفة عدد الدورات.

ولما لا؟!، أسمك مألوف لدي جيدا ولكن لا أتذكر أي أحداث بيني وبينك، والحمد لله من نعم الله علي أني كثير النسيان وهذا يسهل علي التعامل مع الناس. أحييك على حماسك ولتكن أنت البادئ.

منقول: أوقف حاكم 100 سجين في دائرة وأرقامهم من 1 إلى 100 أعطى الأول سيفا فقتل رقم 2 ثم أخذ رقم 3 السيف وقتل رقم 4 . . أخذ رقم 99 السيف وقتل رقم 100 أخذ رقم 1 السيف وقتل رقم 3 استمرت لعبة الموت حتى بقي واحد فقط. ما رقم الذي تبقى؟ محاولاتكم يجب أن تكون برمحيا وليست رياضياتيا، فرياضياتيا لها معادلة أو قانون مسمى. لكم مطلق الحرية باستخدام الأكواد أو الجداول والاستعلامات أو بهما معا أو بأي مكون من مكونات الأكسس. الحصول على الإجابة الصحيحة بحد ذاته تميز ولكن لو تم بواسطة الشفرة/الكود فقط يكون أكثر تميزا وله الأفضلية. وبالطبع كلما أختصرت المحاولة كلما كانت أفضل ولكن ليكن تركيزكم أولا على الحصول على النتيجة. لك مبرمج محاولتين ولا يسمح برقع محاولة ثالثة. لا تلجأوا إلى الذكاء الاصطناعي. حل هذا المثال هو 73، حتى تستطيعوا مراجعة نتائجكم. نريد نتائج للعدد: 10 و 500 و 7000 للمشرفين: أي كلمة في المشاركة محظورة يمكنكم تبديلها بأخرى بنفس المعنى.

محاولتي الثانية ولكن بإلغاء عمل الزر فهو غير مفهوم لي طريقة عمله ولا أؤيد العمل به. تعامل مع الأكسس بشكل عملي واترك عنك هذه الأمور غير المفيدة وغير العملية. عوضت عن الزر بصندوق نعم/لا ويمك عملها بزر ولكن ليست بطريقتك بل بطريقة عادية بسيطة. BlockExam_03.accdb

محاولتي قمت بتبديل المرفق بعد أن تبين لي أني فهمتك خطأ الحل الآن به طريقتين على مستوى الصناديق أو على مستوى السجل. BlockExam_02.accdb

حدسي يقول أنهم يريدون التاريخ بدون الفاصلة "سلاش" لو فكرة الأستاذ عبدالله ما صلحت جرب نفس الفكرة مع تعديل بسيط: =TEXT(D7;"'dd/mm/yyyy")

لا زلنا بانتظاركم، وشكرا لاهتمامكم