(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

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

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

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

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

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

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

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

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

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