منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : هل من الممكن عمل عمليه حسابية بين مربعين نص فقط
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
اخي احمد

ايا كانت عمليات الطرح والفكره المطلوبه

انا كنت احاول حل مشكلة عملية الطرح داخل حدث TextChanged وبعيدا عن حدث LostFocus

وحل مشكلة الـ ( - ) التي تظهر لك خلال سؤالك بالاعلى

اما عملية طرح اي مربع من اي مربع فهذه حسب فهمي لمطلوبك ليست مشكله اخي الكريم

قم بتطويع الكود الان لما تحبه

الفكره هي فقط تعريف متغير وتحميله القيمه خلال الكتابه لتتم عملية الطرح بشكل طبيعي ثم تنظيفه من الذاكره

فلو اردت طرح مربعين من بعض مرة اخرى
فما المشكلة في ذلك

قم باضافة العملية الحسابيه الثانيه
TextBox2.Text = Val(TextBox2.Text) - Val(TextBox3.Text)

تحت العملية الحسابيه الاولى
TextBox2.Text = Val(TextBox1.Text) - Val(TextBox3.Text)

بحيث يكون الكود

x = Val(TextBox3.Text)
TextBox2.Text = Val(TextBox1.Text) - Val(TextBox3.Text)
TextBox2.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
x = Nothing


لكن على ما فهمت
سيكون ناتج طرح 1000 من 20000 هو 18000


لكن في حالة كان لك فكره لم تصل لي

أرى ان نقوم بتسمية المربعات بتسميات مقبولة حتى نستطيع التواصل

فمثلا
مربع السعر الاصلي نجعله SalaryTxt
مربع الخصم نجعله DiscountTxt
مربع الباقي نجعله RemainTxt

ونشرح على هذا الاساس
وانا تحت امرك
موفق اخي احمد باذن الله
تمام شكرا دكتور شريف الفكرة هى
العملية الاولى
SalaryTxt=20000
            (-)
DiscountTxt=1000
RemainTxt=19000
العملية الثانية اذا كان مربع النصRemainTxt به بيانات
تتم العمليه الحسابيه بين
DiscountTxt=1000
             (-)
RemainTxt=19000
بمعنى  العملية الحسابية اصبحت الان
RemainTxt=18000
ارجو قد تكون اتضحت الفكرة وشكرا مره اخرا على زوقك الجميل وتقديرك الاجمل
(25-03-15, 12:13 AM)احمد عبد الحكيم كتب : [ -> ]بمعنى  العملية الحسابية اصبحت الان
RemainTxt=18000

طيب يا اخ احمد  

الكود الي ارفقتهولك في اخر رد لي
هيجعل العملية الحسابيه زي ما انت طلبت بالظبط

كود :
x = Val(DiscountTxt.Text)
        RemainTxt.Text = Val(SalaryTxt.Text) - Val(DiscountTxt.Text)
        RemainTxt.Text = Val(RemainTxt.Text) - Val(DiscountTxt.Text)
        x = Nothing

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