تقييم الموضوع :
  • 1 أصوات - بمعدل 2
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هل من الممكن عمل عمليه حسابية بين مربعين نص فقط
#11
اخي احمد

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

انا كنت احاول حل مشكلة عملية الطرح داخل حدث 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

ونشرح على هذا الاساس
وانا تحت امرك
موفق اخي احمد باذن الله


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}
تم الشكر بواسطة:
#12
تمام شكرا دكتور شريف الفكرة هى
العملية الاولى
SalaryTxt=20000
            (-)
DiscountTxt=1000
RemainTxt=19000
العملية الثانية اذا كان مربع النصRemainTxt به بيانات
تتم العمليه الحسابيه بين
DiscountTxt=1000
             (-)
RemainTxt=19000
بمعنى  العملية الحسابية اصبحت الان
RemainTxt=18000
ارجو قد تكون اتضحت الفكرة وشكرا مره اخرا على زوقك الجميل وتقديرك الاجمل
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}
تم الشكر بواسطة:
#13
(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


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}
تم الشكر بواسطة:
#14
اخى العزيز شريف
شكرا جزيلا على زوقك الرفيع وتقديرك
لاكن المشكلة ما انحلت كود بسيط جدا فى عمليه حسابيه ملففنى حولين نفسى
واصعب المشاكل التى تواجهنى بحمد الله احلها بكل سهولة
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}
تم الشكر بواسطة:
#15
تابعني عالخاص للاستفاضه في شرح الفكره ثم نضع حلها عالعام بعد حلها باذن الله


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}
تم الشكر بواسطة:
#16
تفضل التعديل اخي احمد


الملفات المرفقة
.rar   txt.rar (الحجم : 65.04 ك ب / التحميلات : 36)


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  عملية حسابية خاصة محمد خيري 6 497 22-08-23, 09:09 AM
آخر رد: مصمم هاوي
  كيفية اضافة اكتر من عمليه في وقت واحد او إلغاءها في حالة حدوث خطأ Emam emam 6 1,457 26-04-22, 04:03 AM
آخر رد: ابو محمد محمد محمد
  [VB.NET] عمليات حسابية محمد بوقزاحة 2 1,054 22-03-22, 12:38 PM
آخر رد: محمد بوقزاحة
  هل من الممكن كود جمع فى الداتا جريد فيو بطريقه معينه خالد كامل1 3 1,170 26-10-21, 12:00 AM
آخر رد: أشرف كريم 2
  جلب البيانات من جدول مع اجراء عمليات حسابية - تعديل الكود momani33 7 1,904 14-08-21, 09:34 AM
آخر رد: ابو انس
  هل من الممكن جعل مشروع فيجوال بيسك 10 يرسل بيانات الى الواتس خالد كامل1 4 1,673 21-06-21, 09:28 PM
آخر رد: خالد كامل1
  طلب مساعدة بعملية حسابية ahssan 4 1,492 04-03-21, 08:38 PM
آخر رد: ابراهيم ايبو
  [VB.NET] كيف أجعل البرنامج يقبل عمليات حسابية بأعداد عشرية و غير عشرية Necro PC 7 2,056 20-11-20, 12:43 AM
آخر رد: Necro PC
  [VB.NET] كيف أجعل البرنامج يقبل عمليات حسابية بأعداد عشرية Necro PC 7 2,369 20-11-20, 12:43 AM
آخر رد: Necro PC

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم