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

(17-04-20, 12:31 AM)aljzazy كتب : [ -> ]في حدث keydown  للتكست بوكس 2 ضع الكود التالي
اي بعد اخال نسبة الخصم بالتكست بوكس2 والضغط على انتر

كود :

   If e.KeyCode = Keys.Enter Then
           Dim a, b, c As Decimal
           a = Val(TextBox1.Text)
           b = Val(TextBox2.Text)
           c = a * b / 100
           TextBox1.Text = a - c
       End If

اساتذتي الكرام هذه الصور مثال لما اريده ولكم جزيل الشكر والتقدير والاحترام وجمعة مباركة [attachment=24440][attachment=24441]

المفروض عندما اكتب الخصم 10 يكون السعر 545.545454
يعني 600/1.10

(17-04-20, 03:20 AM)كريم عبودي كتب : [ -> ]اساتذتي الكرام هذه الصور مثال لما اريده ولكم جزيل الشكر والتقدير والاحترام وجمعة مباركة 

المفروض عندما اكتب الخصم 10 يكون السعر 545.545454
يعني 600/1.10

السلام عليكم و رحمة الله و بركاته

ملحوظة حسابية

نسبة 10% من 600 تساوي 60

و بالتالي خصم 10% من 600 يكون المدفوع 540 كما بالصورة

من أين أتيت بالرقم 545.545454؟

(17-04-20, 04:23 AM)ابراهيم ايبو كتب : [ -> ]

السلام عليكم اخي الكريم

الكود الذي اورده لك اخي صبحي الجزازي مشكورا صحيح مئة بالمئة

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

واي رد أخر سيكون نفس الكود 

انتبه للحدث KeyDown يجب ان يكون للمربع  نص نسبة الخصم

وبعدما تضع النسبة اضغط انتر ستتم العملية الحسابية

مشكوور استاذي الغالي بارك الله فيك ....بارك الله فيكم جميعا حفظكم الله ورعاكم ....بالنسبة لكيف اتيت بالرقم 545.545454
السعر اللي هو 600 نقسمة / على الخصم 1.10