[ZaerAllail]

(21-05-20, 02:48 PM)alshandodi كتب : السلام عليكم ورحمة الله وبركاته يمكن الاستعانه بهذا الكود ان شاء الله يكون عند حسن ظنك 

كود :

       TextBox3.Text = Val(TextBox1.Text) - (Val(TextBox1.Text) * Val(TextBox2.Text) / 100)

المشكلة إن الكود نظرياً صحيح بعد تعديله بالشكل الصحيح

كود :

DiscountRatValTb.Text = Val(InvoiceTotalTb.Text) - (Val(DiscountRateTb.Text) / 100)

ولكن عمليا غير صحيح ويعطي نتائج خاطئة 
وهذا أكثر شي لفت إنتباهي في هالنوع الأكواد !!

---

(21-05-20, 02:52 PM)معاند الحظ كتب : طيب يا اخي هذا ممكن بدون تغيير الكود

لاحظ اسماء المتغيرات في الكود الذي اعطيتك الا ول amount وهو يحفظ قيمة العدد المطلوب خصم النسبة المئوية منه
والثاني اسمه DiscountPercent  وهو يحفظ قيمة النسبة المئوية التي ستستخدم للخصم من المتغير amount

والان لكي يستطيع المستخدم لبرنامجك ان يضع كل القيم فانك تحتاج الى فعل التالي

تستبدل المتغير amount بالتكست بوكس الذي يحفظ القيمة الاساسية
وكذلك بالنسبة للمتغير الثاني DiscountPercent  استبدله بتكست بوكس
وافعل ايضا نفس الشيء للمتغير الاخير لوحبيت

نفذته مباشرة قبل تعليقي عليه والنتيجة هي نفسها 
فضلاً عن أن الكود إنت مسوية على معامل ضرب وهذا غير مطلوب !

تسلم أخي الكريم معاند بس بجد هالكود يختلف عن عمليات الطرح والقسمه والجمع المعروفه بشكل مختلف !