منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
Val By Val 100% DisCount عمل خصم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : Val By Val 100% DisCount عمل خصم (/showthread.php?tid=16860)



Val By Val 100% DisCount عمل خصم - Kian Tech - 19-08-16

السلام عليكم

كود لعمل خصم 
etotal=هو تكست بوكس المجموع الكلي
dis= هو تكست بوكس كمية الخصم بال %

اليكم الصورة






واليكم المشكلة التي حصلت



لم يقم بعمل خصم ما المشكلة  Huh Huh


RE: Val By Val 100% DisCount عمل خصم - ابو ليلى - 19-08-16

كود :
val(dis)
عدلها
val(dis.text)



RE: Val By Val 100% DisCount عمل خصم - tryold - 19-08-16

good catch ابو ليلى


RE: Val By Val 100% DisCount عمل خصم - silverlight - 19-08-16

ممكن توضح لي لماذا تستخدم On Error Resume Next
انا فقط لا أعلم هدفك من استخدامها

أيضا لماذا لا تستخدم جملة Try ..... Catch
أيضا لماذا لا تستخدم Integer.Parse
 بدلا من الدالة Val

الدوت نت حاليا بها أفكار و دوال أفضل بكثير من النسخ القديمة


RE: Val By Val 100% DisCount عمل خصم - Kian Tech - 20-08-16

مشكورين جميعاً ويعطيكم العافية
المشكلة الي كانت عندي مش بالكود المشكلة هي انو ال textbox نفسو في مشكلة ما بعرف بضبط المهم غيرتو وزبط معي Smile
اخي العزيز silverlight  أنا استخدم دائمة Try للتبع الخطأ وكشفه ورسالة الخطأ التي ظهرت في الصورة هي من جملة Try التي استخدمتها للكشف عن الخطأ
اما بالنسبة On Error Resume Next اذا حدث خطأ يتابع وهذه خطأ أيضاً ولكن فقط للتجربة


RE: Val By Val 100% DisCount عمل خصم - silverlight - 20-08-16

أخي الفاضل Deya R Ataya

سبب استفساري ان المبرمج يجب أن يضع في حساباته ان المستخدم قد يقوم بإدخال تكست بدلا من أرقام أو لا يقوم بإدخال التكست إطلاقا و هنا الداول المستخدمة ستعود لك بقيمة عبارة عن Integer أيضا

مثلا الدالة Val ستنفذ المطلوب منها و تقوم بتحويل التكست الي Integer ولكنها سوف تعود بقيمة تساوي صفر
كود :
Me.Text = Val("VB4ARAB")

اما لو استخدمت Integer.Parse فسوف يحدث خطأ عند التنفيذ

كود :
    Me.Text = Integer.Parse("VB4Arab")

وهذا هو الفارق المهم بين الاسلوبان

أيضا Integer.Parse تسمح لك بعمل Format للأرقام
عموما في جميع الحالات من المؤكد انه يجب التأكد من أن ما كتبه المستخدم في التكست بوكس عبارة عن أرقام
قبل استخدام اي من الدالتان أعلاه


RE: Val By Val 100% DisCount عمل خصم - Kian Tech - 20-08-16

اشكرك
وهذا صحيح انا استخدم كود في حدث keypress الخاص بال تكست للسماح فقط بادخال الارقام فقط داخله