[اسلام الكبابى]

كلنا يعرف أن المقدار 5 + 2 * 9 يساوى 23
وكلنا يعرف بسهولة كتابة الكود الذى يحسب هذا المقدار

كود :

X = 9 * 2 + 5
       PRINT X

ولكنى اريد الكود الذى يحسب هذا المقدار من خلال Text أو Label كتبه المستخم فيه
ارجو تعديل المثال المرفق

ولكم ألف شكر

[eng_elsawy]

تفضل هل هذا ما تريده

[اسلام الكبابى]

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

[asto]

كود :

If Text2.Text = "+" Then X1 = Val(Text1.Text) + Val(Text3.Text)
If Text2.Text = "-" Then X1 = Val(Text1.Text) - Val(Text3.Text)
If Text2.Text = "*" Then X1 = Val(Text1.Text) * Val(Text3.Text)
If Text2.Text = "\" Then X1 = Val(Text1.Text) \ Val(Text3.Text)
If Text4.Text = "+" Then X2 = X1 + Val(Text5.Text)
If Text4.Text = "-" Then X2 = X1 - Val(Text5.Text)
If Text4.Text = "*" Then X2 = X1 * Val(Text5.Text)
If Text4.Text = "\" Then X2 = X1 \ Val(Text5.Text)

X = X2
Print X

هذا هو ضمن كوماند 2

[تركي الحلواني]

تفضل أخي هذا المثال

[اسلام الكبابى]

بارك الله فيكم أجمعين
ولكم ألف شكر

[رعد الحسني]

label.caption=text1*(text2+text3n

[اسلام الكبابى]

ولكن الكودين غير صحيححين دائمآ
جربا مثلا حساب المقدار 5 * 2 + 8
سيعطى النتيجة 50 ولكن النتيجة الصحيحة طبعآ 18
ولكم ألف شكر

[ناجي إبراهيم]

السلام عليكم...

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

لذلك يتم تحويل التعبير الرياضي العادي (الذي يسمى Infix أي ذو العوامل البينية بسبب وجود العوامل، أي إشارات الجمع و الطرح و غيرها، بين المعاملات، أي الأعداد) إلى تعبير ذي عوامل بعدية (Postfix) حيث تظهر العوامل بعد المعاملات، أو تعبير ذي عوامل قبلية (Prefix) حيث تظهر العوامل قبل المعاملات، ثم يتم تحليل و تقييم التعبير الناتج.

* مثلاً التعبير:

كود :

(5 ^ (2 + 1) - 25) * 2

يصبح كتعبير Postfix هكذا:

كود :

5 2 1 + ^ 25 - 2 *

* و التعبير التالي (نفس التعبير السابق و لكن دون أقواس):

كود :

5 ^ 2 + 1 - 25 * 2

يصبح كتعبير Postfix هكذا (لاحظ الفرق):

كود :

5 2 ^ 1 + 25 2 * -

* كل من عمليتي تحويل تعبير الـ Infix إلى تعبير Postfix (أو Prefix) و تقييم تعبير الـ Postfix (أو Prefix) تحتاج إلى استعمال ما يسمى يالـ Stack من أجل التخزين المؤقت للقيم والعوامل و العودة إلى نقاط التحليل السابقة.

في المرفقات برنامج لهذا الغرض، و هو يحتوي على اثنين من الـ Class Modules واحدة للـ Stack و الأخرى للـ Queue (أو الطابور - و هي غير مستعملة في المثال، لكني أرفقتها للفائدة إذ ربما يحتاجها أحد ما لاستعمالها في برنامج آخر). يوجد شرح بالعربي في الكود لبعض الأجزاء.


  ADT.rar (الحجم : 4.44 ك ب / التحميلات : 75)

نرجو الاستفادة و السلام.

[اسلام الكبابى]

الله ينور عليك
طول عمرنا بنقول " الأستاذ أستاذ "

إقتباس :يا أخ إسلام... لا داعي لهذا التضخيم! فأولاً شكر الناس على الخير من شكر الله. و ثانياً هذا المنتدى يزخر بالكفاءات البرمجية الممتازة و العبقرية، و فيه الكثيرون ممن هم خير مني و أفضل بمراحل.