أبوبلقيس

الموضوع غير مجاب إن أمكن كتابة حلول و ان تعذر لا مشكل بالتوفيق

السلام عليكم ورحمة الله هل هناك طريقة لاستنتاج التعابير الحسابية المنطقية لعملية ما أي : تستنتج العلاقات الحسابيــــة من جمع و طرح و ضرب و قسمة بدون تكرار لمجموع ما مثال : من الأعداد : -4 ’ 9 ’ 10 ’ 8 ’ 6 كون علاقات حسابية برمجية للحصول على الناتج 7 فالكود الذي ابغيه يحيل إلى العملية التالية بأكواد (((-4+9)*10)-8)/6=7 إن شاء الله أكون قد طرحت طلبي بشكل واضح شكرا

نلتقي بود http://im48.gulfup.com/Wjuxj3.swf أو http://www.gulfup.com/?D8ApTp

غدا إن شاء الله سأشرح لك كذلك كيفية تنفيذ ملف الريجستري المستعمل من داخل الاوتوبلاي دون الحاجة لزر تنفيذ أو ملف ريجستري يرفق مع المشروع أي يتم تخفيض مستوى الامان تلقائيا إن شاء الله

processes = System.EnumerateProcesses(); for n, file_path in pairs(processes) do local file = String.SplitPath(file_path); if (String.Lower(file.Filename..file.Extension)) == "excel.exe" then System.TerminateProcess(n); end end File.Open("AutoPlay\\Docs\\الإمساكية الذكية لشهر رمضان 2015.xls", "", SW_SHOWNORMAL);

السلام عليكم ورحمة الله في البداية الكود لا يوضع في ملف الايكسل بل في زر المستعمل لفتح ورقة الايكسل و المسماة الامساكية الذكية و كان من الاحسن تكون تسمية الملف ليست بحروف عربية حى لا تسبب لك مشكل عند إخراج الملف بصيغة web email executable على كل ما يهم الان : لاحظ الصور http://im62.gulfup.com/51Q64t.bmp http://im62.gulfup.com/T9c8IB.bmp http://im62.gulfup.com/grtEqD.bmp بمعنى نكتب كود الإغلاق أولا ثم يليه كود فتح الملف موفق

بارك الله فيك و جزاك الله كل خير أخي مادمت استعملت الاوتوبلاي كواجهة تجميع للعمل لاحظت في ملف التصي المرفق تنبيه لضرورة غلق ملفات الايكسل كي لا يتم تعارض هذا الكود استعمله لغلق صفحات الايكسل ثم يليه كود فتح الامساكية processes = System.EnumerateProcesses(); for n, file_path in pairs(processes) do local file = String.SplitPath(file_path); if (String.Lower(file.Filename..file.Extension)) == "excel.exe" then System.TerminateProcess(n); end end طبعا الكود للاصدارات الارقى من7 موفق

بارك الله فيك أخي محمد عذرا على التأخر في الرد بارك الله فيكم جميعا شكرا

السلام عليكم اذ أمكنك أخي مساعدتي في هذا الكود =IFERROR(CHAR(MID(203199227209;LEN(203199227209)-LEN(203199227209)+1;3));"") فعند تطبيقه يعطيني الحرف ث فقط و لا يمر لباقي المفردة "امر" فقد تخليت عن الكتابة في خلية ليتم الاستخلاص بل تنفيذ الكود مباشرة بالصيغة المكتوبة أعلاه هل يوجد عندي خلل في التطبيق بارك الله فيكم

أخي محمد الريفى كل التقدير و الاحترام هو المطلوب بالذات بارك الله فيك سلمت أناملك شكرا أخي ربيع شكرا أخي ياسر لكم كل التقدير اذ رأيتم أن تقنية القراءة و الكتابة في الايكسل من خلال واجهة الاوتوبلاي و باستغلال عناصر البرنامج سأكون ملزما أدبا بأن أضع الطريقة فور الانتهاء منها شكرا أحبابي

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

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

أخي ربيع أحرجتني بحسن تعاملك و اهتمامك المتوقعين أخي ربيع حتى لا أتعبك كثيرا معي سأشرح لك الأمر للتضح الصورة أكثر أنا بصدد تمرير قيم و معادلات للايكسل و هو مغلق باستغلال مقاربة automation وذلك باستغلال أحد الاضافات luacom بمعنى من الاوتوبلاي أستدعي أي قيمة أو أكتبها أو أقوم بتمرير معادلة أنظر أخي لهذه الجزئية في الاكواد التي أستعملها في لغة lua wSheet.Cells(25,5).Formula = "=SUM(E5:E24)" بمعنى أني مررت لخلية معينة بأن تقوم بعملية الجمع ما تم تمريره ليست قيمة بل معادلة لم تكن مدرجة في ملف الايكسل هذا هو منطق تعامل الاضافة مع الايكسل لا تدعم الكتابة في محرر الاكواد أو باستعمال وحدات معينة أو أو تأشير على اختيار أريد تمرير معادلة لخلية معينة لتقوم بالطلب أعلاه في خلية مجاورة لذلك أحتاج إلى معادلة مباشرة تقوم بالمطلوب دون أجراءات تتطلب تفعيل وحدات الماكرو أو ما شابه أي لا تساعدني اجراءات تتم قبل تنفيذ المعادلة في ملف الايكسل ذاته بل معادلة يتم تمريرها لتقوم بالمطلوب أخي بارك الله فيك و شكرا جزيلا إن توفرت لديك حلول لا بأس من ادراجها و إن تعذر ذلك فلك مني كل التقدير و الاحترام شكرا

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

السلام عليكم ورحمة الله أخي المحترم لدي هاته القيمة على سبيل المثال مررتها الى خلية الايكسل 203199227209 و هي معبرة عن اسم : ثامر أعرف أنه في الايكسل يمكنني تحويل هاته القيمة الى حروف باستعمال الدالة CHAR حيث سأحصل على الحرف ث بالدالة =CHAR(203) و بتغير القيمة 199 نحصل على ا القيمة 227 الحرف م القيمة 209 الحرف ر ما أبحث عنه معادلة تجميع الحروف ككلمة واحدة ثامر لأن الدالة تتعامل ب3 أرقام فقط على أن تكون المعادلة تتعامل مع أي مفردة حسب طول الكلمة السلام عليكم ورحمة الله

السلام عليكم شكرا جزيلا أستاذي الكريم ياسر خليل أبو تراب بارك الله فيكما أستاذي سليم ما التعليل الممكن تقديمه في إرجاع الباقي سالبا هنا ؟؟ (MOD(4;-3= بارك الله فيكم شكرا

أخي سليم وضحت بالتالي : 2+(3×2-)=4- مشيرا إلى أن -2 هي ناتج قسمة -4 على 3 أخي هل هذا مقبول ؟ فصحة الكتابة ليس بالضرورة دال على صحة العملية هل هنا خطأ لما أكتب (1-)+(3×1-)=4- على أساس ناتج القسمة -4 على 3 هو -1 و الباقي هو -1 شكرا أستاذ

شكرا أختي الكريمة لم أفهم " ناقص اربعة تقسيم 3 يكون الناتج ناقص اثنين " كبف تمت العملية رياضيا شكرا جزيلا

السلام عليكم اخواني الدالة MOD تقوم بإرجاع باقي قسمة عددين سؤالي هل الناتج 2 لهذه الدالة =MOD(-4;3) صحيح أم هناك شروط ما لأني كنت أتوقع الناتج -1 تقديري

السلام عليكم --- عدم متابعة السائل لاستفساره و يستكثر شكر إخوانه نظير مساعدتهم و تعبهم معه في الحل ------ حله بسيط اهمال وعدم الاهتمام بتساؤلاته مجددا فقط مجرد رأي و السلام عليكم بالتوفيق

شكرا

بارك الله فيكم تمت الاستفادة مما قدم وتطبيقه على لغة أخرى لمحبي الاوتوبلاي و للحصول على نفس النتائج " مطبقة على العملة الجزائرية " الكود : b5 = String.ToNumber(Input.GetText("b5")); c3 = String.ToNumber(Input.GetText("c3")); d3 = String.ToNumber(Input.GetText("d3")); e5 = String.ToNumber(Input.GetText("e5")); F3 = String.ToNumber(Input.GetText("F3")); g3 = String.ToNumber(Input.GetText("g3")); k3 = String.ToNumber(Input.GetText("k3")); m3 = String.ToNumber(Input.GetText("m3")); n3 = String.ToNumber(Input.GetText("n3")); p3 = String.ToNumber(Input.GetText("p3")); h3 = String.ToNumber(Input.GetText("h3")); s3 = String.ToNumber(Input.GetText("s3")); ------------------- ورقة 2000 دينار f1=Math.Floor( b5/c3) Input.SetText("Input1",f1 ); ---------------- ورقة 1000 دينار f2 = Math.Floor(( b5 - (c3*f1))/d3) Input.SetText("Input2",f2); ------------------------------------------------ ورقة 500 دينار f3 = Math.Floor(( b5 - (f1*c3+f2*d3))/e5) Input.SetText("Input3",f3); -------------------------- ورقة أو قطعة 200 دينار f4 = Math.Floor(( b5 - (f1*c3+f2*d3+f3*e5))/F3) Input.SetText("Input4",f4); ------------------------------ورقة 100 دينار أو قطعة 100 دينار f5 = Math.Floor(( b5 - (f1*c3+f2*d3+f3*e5+f4*F3))/g3) Input.SetText("Input5",f5); ------------------------------------ قطعة 50 دينار f6 = Math.Floor(( b5 - (f1*c3+f2*d3+f3*e5+f4*F3+f5*g3))/k3) Input.SetText("Input6",f6); -----------------------------------------قطعة 20 دينار f7 = Math.Floor(( b5 - (f1*c3+f2*d3+f3*e5+f4*F3+f5*g3+f6*k3))/m3) Input.SetText("Input7",f7); ----------------------------------------------قطعة 10 دينار f8 = Math.Floor(( b5 - (f1*c3+f2*d3+f3*e5+f4*F3+f5*g3+f6*k3+f7*m3))/n3) Input.SetText("Input8",f8); ----------------------------------------------قطعة 5 دينار f9 = Math.Floor(( b5 - (f1*c3+f2*d3+f3*e5+f4*F3+f5*g3+f6*k3+f7*m3+f8*n3))/p3) Input.SetText("Input9",f9); ---------------------------------------------قطعة 2 دينار f10 = Math.Floor(( b5 - (f1*c3+f2*d3+f3*e5+f4*F3+f5*g3+f6*k3+f7*m3+f8*n3+f9*p3))/h3) Input.SetText("Input10",f10); ------------------------------------------قطعة 1 دينار f11 = Math.Floor(( b5 - (f1*c3+f2*d3+f3*e5+f4*F3+f5*g3+f6*k3+f7*m3+f8*n3+f9*p3+f10*h3))/s3) Input.SetText("Input11",f11); شكرا لكم جميعا

أعتذر لم أقرأ الملف بعناية بارك الله فيك