+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود خصم نسبة مئوية محدده من القيمة (/showthread.php?tid=34873)
الصفحات:
1
2
كود خصم نسبة مئوية محدده من القيمة - ZaerAllail - 21-05-20
الكود التالي يستخدم لحساب النسبة المئوية المدخل قيمتها في التكست 2 لتعطي النتيجة في التكست 3 بشكل صحيح
ولكني أعتقد أنه يحتاج بعض التعديلات حتى يصبح صحيحاً مئة في المئة دون أخطاء
كود :
Dim a As Double
Dim b As Double
a = textbox1.Text
b = textbox2.Text
textbox3.Text = (a - b) / 100.0.ToString("#0.00")بفرض أن المبلغ المطلوب الخصم منه مسجل في التكست1 وقيمته خمسين الف
وبفرض أن القيمة المراد خصمها مسجله في التكست2 وهي مثلا خمسين في المئة
فبالتالي يجب أن تكون النتيجة في التكست3 هي خمسة وعشرين الف وغير ذلك يعتبر خطأ
اتمنى الإفادة
RE: كود خصم نسبة مئوية محدده من القيمة - سعود - 21-05-20
PHP كود :
Dim a As Double = Val(TextBox1.Text)
TextBox3.Text = (a / 2)
لان المطلوب النصف وهو ما يمثله جملة خمسين بالمئة.
RE: كود خصم نسبة مئوية محدده من القيمة - معاند الحظ - 21-05-20
انت تريد حساب المتبقي من القيمة المخزنة في تكست 1 والتي هي 50000 بعد خصم 50% منه
اذن :
الباقي بعد الخصم :
تكست 1 / 100= 50000/100 = 500
ثم
نضرب الناتج وهو 500 بقيمة الخصم والتي هي 50% ليكون الحاصل = 25000
كود :
Dim amount As Integer = 50000
Dim DiscountPercent As Integer = 50
Dim result As Integer = (amount / 100) * DiscountPercent
MsgBox(result)RE: كود خصم نسبة مئوية محدده من القيمة - ZaerAllail - 21-05-20
(21-05-20, 01:42 PM)سعود كتب :iهذا الكود الا يفي بالغرض؟PHP كود :
Dim a As Double = Val(TextBox1.Text)
TextBox3.Text = (a / 2)
لان المطلوب النصف وهو ما يمثله جملة خمسين بالمئة.
الأخ الفاضل سعود
ليس المطلوي قسمة العدد على إثنين فقط وإنتهى الأمر
الأمر مختلف عما خطر في بالك يا غالي
أنا ضربت مثال وليس تحديدا 50% فربما يكون المطلوب 15% أو 20% أو أو أو ...
بمعنى هو أمر يترك للمستخدم ويدخل قيمته التي يريدها في المتغير b ليحصل ع النتيجة المطلوبه وبشكل صحيح !
أرجو تكون وضحت الصورة عزيزي !
(21-05-20, 02:03 PM)معاند الحظ كتب : انت تريد حساب المتبقي من القيمة المخزنة في تكست 1 والتي هي 50000 بعد خصم 50% منه
اذن :
الباقي بعد الخصم :
تكست 1 / 100= 50000/100 = 500
ثم
نضرب الناتج وهو 500 بقيمة الخصم والتي هي 50% ليكون الحاصل = 25000
كود :
Dim amount As Integer = 50000
Dim DiscountPercent As Integer = 50
Dim result As Integer = (amount / 100) * DiscountPercent
MsgBox(result)
يبدو أني أسأت شرح السؤال أو الفكره
القيمة المراد خصمها يجب أن تترك للمستخدم يدخلها برغبته وحسب حاجته
ولا تحدد مسبقاً في نص برمجي
فضلاً جرب العملية التالية ع الأله الحاسبه
كمثال : (1500 - 15 % = 225 والباقي من 1500 هو 1275)
النسبة المئوية للخصم الذي حصل من 1500 هو 15%
وقيمة المبلغ المخصوم هي 225
والمتبقي من 1500 هو 1275
فالمطلوب هو تنفيذ هذه العملية بكود برمجي بدون تحديد نسبة 15% مسبقا في الكود بل يتك إدخالها من قبل المستخدم !
RE: كود خصم نسبة مئوية محدده من القيمة - alshandodi - 21-05-20
السلام عليكم ورحمة الله وبركاته يمكن الاستعانه بهذا الكود ان شاء الله يكون عند حسن ظنك
كود :
TextBox3.Text = Val(TextBox1.Text) - (Val(TextBox1.Text) * Val(TextBox2.Text) / 100)RE: كود خصم نسبة مئوية محدده من القيمة - معاند الحظ - 21-05-20
طيب يا اخي هذا ممكن بدون تغيير الكود
لاحظ اسماء المتغيرات في الكود الذي اعطيتك الا ول amount وهو يحفظ قيمة العدد المطلوب خصم النسبة المئوية منه
والثاني اسمه DiscountPercent وهو يحفظ قيمة النسبة المئوية التي ستستخدم للخصم من المتغير amount
والان لكي يستطيع المستخدم لبرنامجك ان يضع كل القيم فانك تحتاج الى فعل التالي
تستبدل المتغير amount بالتكست بوكس الذي يحفظ القيمة الاساسية
وكذلك بالنسبة للمتغير الثاني DiscountPercent استبدله بتكست بوكس
وافعل ايضا نفس الشيء للمتغير الاخير لوحبيت
RE: كود خصم نسبة مئوية محدده من القيمة - ZaerAllail - 21-05-20
(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 استبدله بتكست بوكس
وافعل ايضا نفس الشيء للمتغير الاخير لوحبيت
نفذته مباشرة قبل تعليقي عليه والنتيجة هي نفسها
فضلاً عن أن الكود إنت مسوية على معامل ضرب وهذا غير مطلوب !
تسلم أخي الكريم معاند بس بجد هالكود يختلف عن عمليات الطرح والقسمه والجمع المعروفه بشكل مختلف !
RE: كود خصم نسبة مئوية محدده من القيمة - سعود - 21-05-20
PHP كود :
Dim a As Double = Val(TextBox1.Text)
Dim b As Double = Val(TextBox2.Text)
TextBox3.Text = (b / 100) * a
لكن اظن المطلوب هو الكود بمشاركتي هذه.
قولو رايكم.
RE: كود خصم نسبة مئوية محدده من القيمة - ZaerAllail - 21-05-20
ارفقت مصال فارغ من الأكواد وأرجو ممن لديه فكره عن تنفيذ هذا الأمر التعديل عليه
RE: كود خصم نسبة مئوية محدده من القيمة - alshandodi - 21-05-20
انا جربت هذا في الحساب
فجربت الكود الذي ارسلته
كود :
TextBox3.Text = Val(TextBox1.Text) - (Val(TextBox2.Text) / 100)وكانت هذي النتيجه
[attachment=24816]
وجربت حساب سعر البيع بعد الحصم الا وهو هذا الكود وكانت النتيجه
كود :
TextBox3.Text = Val(TextBox1.Text) - (Val(TextBox1.Text) * Val(TextBox2.Text) / 100)وكانت هذي النتيجة
[attachment=24818]
وجربت حساب مبلغ الخصم من المبلغ الاجمالي
كود :
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) / 100وكانت هذي النتيجه
[attachment=24819]