[VB.NET] [تم الحل] مساعدة بمسألة رياضيه - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [VB.NET] [تم الحل] مساعدة بمسألة رياضيه (/showthread.php?tid=29233) |
[تم الحل] مساعدة بمسألة رياضيه - DK-x - 03-04-19 مرحبا
[attachment=21268]
انا اعمل على مشروع يخص حل المسائل الرياضيه بهذا المشروع رح افرض Y وقيمتها يحددها المستخدم وهذي Y نضعها بمساله مثلا هذي المسأله 2 * T * 4 - 3 * T - 5 لحد الان الامور تمام رح يكون الكود كود : Public Class Form1 الامور رح تبقى تمام الا اذا ردنا نخلي المسأله (2 * T * 4 - 3 * T - 5) يكتبها المستخدم المطلوب ان نخلي المساله تكتب من قبل المستخدم لا من قبل المبرمج واتمنى تفيدوني RE: مساعدة - بدري - 03-04-19 اختيار عنوان مناسب للموضوع RE: مساعدة - DK-x - 03-04-19 (03-04-19, 10:54 AM)بدري كتب : شنو الغلط بالعنوان RE: مساعدة بمسألة رياضيه - بدري - 03-04-19 الغلط الاول كان العنوان: مساعده وهذا مخالف مخالفه صريحه الغلط الثاني بعد تعديل العنوان: مساعدة بمسألة رياضيه قل لا يكون مخالف ولكن ليس عنوان واضح لمضمون الموضوع العنوان الصحيح: حل مساله رياضيه من خلال مربع نص وهذا الحواب: عليك بالخطوات التاليه: الخطوه الاولى تقرا مربع النص وتحول احرفه الى احرف كبيره ToUpper مثل Dim txt = TextBox1.Text.ToUpper الخطوه الثانيه تستخرج الاحرف من المعادله باستخدم regex مثل Dim reg = Regex.Matches(txt, "[A-Z]") الخطوه الثالثه تقرا نتائج ال reg باستخدم linq مع distinct لاستبعاد المكرر وتجعلها في مصفوفه مثل Dim arr = (From x In reg Select x.Value Distinct).ToArray الخطوه الرابعه تعمل حلقه for على المصفوفه السابقه لتطلب من المستخدم ان يدخل قيمه لكل مجهول مثل For Each i In arr Dim vr = Val(InputBox("Variable: " & i, "Input", "0")) txt = txt.Replace(i, vr) Next الخطوه الاخيره نستخدم ScriptControl لحساب المعادله مثل Dim scr As Object = CreateObject("ScriptControl") scr.Language = "VBSCRIPT" Dim ret = scr.Eval(txt) الان لديك النتيجه في المتغير ret يمكنك اظهار محتواه في رساله مثل MsgBox(ret) ولتلافي خطا مدخلات المعادله نضع جميع الخطوات السابقه في try مع اظهار وصف الخطا في رساله مثل Try جميع الخطوات السابقه Catch ex As Exception MsgBox(ex.Message) End Try RE: مساعدة بمسألة رياضيه - DK-x - 03-04-19 (03-04-19, 02:46 PM)بدري كتب : الغلط الاول كان العنوان: مساعده اشكرك ع المساعدة لكن اذا امكن ان تضع مثال اوكود جاهز وشكرا RE: مساعدة بمسألة رياضيه - بدري - 03-04-19 قم بتجميع كل اسطر الاكواد التي في المشاركه ويكون لديك كود كامل فقط ضعه داخل حدث click لاداه بوتون ولا تنس تضيف textbox1 RE: مساعدة بمسألة رياضيه - DK-x - 03-04-19 (03-04-19, 08:43 PM)بدري كتب : اتمنى لو ان الموضوع انتهى ان تذكر ذلك وتطلب من المشرف اغلاق الموضوع مع وضع "تم الحل" في العنوان العفو اخي لاكن ضهر خطأ بالكود وهو هنا For Each i In arr ما عرفت اعالجه RE: مساعدة بمسألة رياضيه - بدري - 03-04-19 يجب تجميع اكواد جميع الخطوات بالترتيب ليكون لديك كود كامل مثال جاهز RE: مساعدة بمسألة رياضيه - DK-x - 03-04-19 مبدع |