[ZaerAllail]

الكود التالي يستخدم لحساب النسبة المئوية المدخل قيمتها في التكست 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 هي خمسة وعشرين الف وغير ذلك يعتبر خطأ

اتمنى الإفادة

[سعود]

PHP كود :

       Dim a As Double = Val(TextBox1.Text)
        TextBox3.Text = (a / 2) 


iهذا الكود الا يفي بالغرض؟
لان المطلوب النصف وهو ما يمثله  جملة خمسين بالمئة.

[معاند الحظ]

انت تريد حساب المتبقي من القيمة المخزنة في تكست 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)

[ZaerAllail]

(21-05-20, 01:42 PM)سعود كتب :

PHP كود :

       Dim a As Double = Val(TextBox1.Text)
        TextBox3.Text = (a / 2) 


iهذا الكود الا يفي بالغرض؟
لان المطلوب النصف وهو ما يمثله  جملة خمسين بالمئة.

الأخ الفاضل سعود 
ليس المطلوي قسمة العدد على إثنين فقط وإنتهى الأمر 
الأمر مختلف عما خطر في بالك يا غالي 
أنا ضربت مثال وليس تحديدا 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% مسبقا في الكود بل يتك إدخالها من قبل المستخدم !

[alshandodi]

السلام عليكم ورحمة الله وبركاته يمكن الاستعانه بهذا الكود ان شاء الله يكون عند حسن ظنك 

كود :

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

[معاند الحظ]

طيب يا اخي هذا ممكن بدون تغيير الكود

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

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

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

[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  استبدله بتكست بوكس
وافعل ايضا نفس الشيء للمتغير الاخير لوحبيت

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

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

[سعود]

PHP كود :

Dim a As Double = Val(TextBox1.Text)
        Dim b As Double = Val(TextBox2.Text)
        TextBox3.Text = (b / 100) * a 


اخواني الكرام اعتذر لكوني ضعيف في الرياضيات عموما
لكن اظن المطلوب هو الكود بمشاركتي هذه.
قولو رايكم.

[ZaerAllail]

ارفقت مصال فارغ من الأكواد وأرجو ممن لديه فكره عن تنفيذ هذا الأمر التعديل عليه

[alshandodi]

انا جربت هذا في الحساب 

فجربت الكود الذي ارسلته

كود :

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

وكانت هذي النتيجه
   


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

كود :

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

وكانت هذي النتيجة

     
وجربت حساب مبلغ الخصم من المبلغ الاجمالي 

كود :

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

وكانت هذي النتيجه