[سؤال] محتاج كود حسابي صعب - نسخة قابلة للطباعة

[سؤال] محتاج كود حسابي صعب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=33493)

محتاج كود حسابي صعب - paveldida - 21-02-20

السلام عليكم
محتاج كود visual basic يحسبلي قيمة الرسوم على مبلغ بيع محدد
مثال: ثمن البيع 5.000.000,00 دج
الرسم المستحق يكون بالشكل التالي:
الشريحة الأولى : من 0 إلى 500.000,00 دج تخضع لرسم قدره :3% أي ان الرسم المستحق هو = 15.000,00 دج
الشريحة الثانية : من 500.001,00 إلى 1.000.000,00 دج تخضع لرسم قدره :2% أي ان الرسم المستحق هو = 10.000,00 دج
الشريحة الثالثة: من 1.000.001,00 دج فما فوق تخضع لرسم قدره :1% أي ان الرسم المستحق هو = 40.000,00 دج
مجموع الرسم المستحق هو: 65.000,00 دج
ملاحظة: الرسم المستحق له حد ادنى هو 15.000,00 دج مهما كان الثمن

RE: محتاج كود حسابي صعب - alsalamoni - 21-02-20

(21-02-20, 09:16 PM)paveldida كتب : السلام عليكم
محتاج كود visual basic يحسبلي قيمة الرسوم على مبلغ بيع محدد
مثال: ثمن البيع 5.000.000,00 دج
الرسم المستحق يكون بالشكل التالي:
الشريحة الأولى : من 0 إلى 500.000,00 دج تخضع لرسم قدره :3% أي ان الرسم المستحق هو = 15.000,00 دج
الشريحة الثانية : من 500.001,00 إلى 1.000.000,00 دج تخضع لرسم قدره :2% أي ان الرسم المستحق هو = 10.000,00 دج
الشريحة الثالثة: من 1.000.001,00 دج فما فوق تخضع لرسم قدره :1% أي ان الرسم المستحق هو = 40.000,00 دج
مجموع الرسم المستحق هو: 65.000,00 دج
ملاحظة: الرسم المستحق له حد ادنى هو 15.000,00 دج مهما كان الثمن

كود :

Dim value As Double = 5000000

Dim fees As Double = 15000

If value > 1000000 Then

    fees = 15000 + 10000 + ((value - 1000000) * 0.01)

ElseIf value > 500000 Then

    fees = 15000 + ((value - 500000) * 0.02)

End If

MsgBox(fees)

RE: محتاج كود حسابي صعب - paveldida - 21-02-20

شكراااا سأجرب

(21-02-20, 09:41 PM)alsalamoni كتب :
(21-02-20, 09:16 PM)paveldida كتب : السلام عليكم
محتاج كود visual basic يحسبلي قيمة الرسوم على مبلغ بيع محدد
مثال: ثمن البيع 5.000.000,00 دج
الرسم المستحق يكون بالشكل التالي:
الشريحة الأولى : من 0 إلى 500.000,00 دج تخضع لرسم قدره :3% أي ان الرسم المستحق هو = 15.000,00 دج
الشريحة الثانية : من 500.001,00 إلى 1.000.000,00 دج تخضع لرسم قدره :2% أي ان الرسم المستحق هو = 10.000,00 دج
الشريحة الثالثة: من 1.000.001,00 دج فما فوق تخضع لرسم قدره :1% أي ان الرسم المستحق هو = 40.000,00 دج
مجموع الرسم المستحق هو: 65.000,00 دج
ملاحظة: الرسم المستحق له حد ادنى هو 15.000,00 دج مهما كان الثمن

كود :

Dim value As Double = 5000000 Dim fees As Double = 15000 If value > 1000000 Then fees = 15000 + 10000 + ((value - 1000000) * 0.01) ElseIf value > 500000 Then fees = 15000 + ((value - 500000) * 0.02) End If MsgBox(fees)

انا عندي textbox1 اضع فيه المبلغ
و اريد ان تكون النتيجة في textbox2
كنت احسب بالأكسيل بالمعادلة التالية :
=SI(ET(E9>0;E9<500000);15000;SI(ET(E9>1;E9<=500000);E9*0,03;SI(ET(E9>500000;E9<=1000000);500000*0,03+(E9-500000)*0,02;SI(E9>1000000;500000*0,03+500000*0,02+(E9-1000000)*0,01;0))))

RE: محتاج كود حسابي صعب - alsalamoni - 21-02-20

(21-02-20, 09:46 PM)paveldida كتب : شكراااا سأجرب

(21-02-20, 09:41 PM)alsalamoni كتب :
(21-02-20, 09:16 PM)paveldida كتب : السلام عليكم
محتاج كود visual basic يحسبلي قيمة الرسوم على مبلغ بيع محدد
مثال: ثمن البيع 5.000.000,00 دج
الرسم المستحق يكون بالشكل التالي:
الشريحة الأولى : من 0 إلى 500.000,00 دج تخضع لرسم قدره :3% أي ان الرسم المستحق هو = 15.000,00 دج
الشريحة الثانية : من 500.001,00 إلى 1.000.000,00 دج تخضع لرسم قدره :2% أي ان الرسم المستحق هو = 10.000,00 دج
الشريحة الثالثة: من 1.000.001,00 دج فما فوق تخضع لرسم قدره :1% أي ان الرسم المستحق هو = 40.000,00 دج
مجموع الرسم المستحق هو: 65.000,00 دج
ملاحظة: الرسم المستحق له حد ادنى هو 15.000,00 دج مهما كان الثمن

كود :

Dim value As Double = 5000000 Dim fees As Double = 15000 If value > 1000000 Then fees = 15000 + 10000 + ((value - 1000000) * 0.01) ElseIf value > 500000 Then fees = 15000 + ((value - 500000) * 0.02) End If MsgBox(fees)

انا عندي textbox1 اضع فيه المبلغ
و اريد ان تكون النتيجة في textbox2

كود :

Dim value As Double = val(textbox1.text)

Dim fees As Double = 15000

If value > 1000000 Then

   fees = 15000 + 10000 + ((value - 1000000) * 0.01)

ElseIf value > 500000 Then

   fees = 15000 + ((value - 500000) * 0.02)

End If

textbox2.text=fees

RE: محتاج كود حسابي صعب - paveldida - 21-02-20

شكراااااااااااااا نجح الكود

RE: محتاج كود حسابي صعب - alsalamoni - 21-02-20

(21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود

العفو اخي

اذا اردت عرض تفاصيل الشرائح في مربعات نص

كود :

Dim value As Double = Val(TextBox1.Text) ' ثمن البيع

Dim segment1, segment2, segment3 As Double

segment1 = 15000

Dim fees As Double = 15000

If value > 1000000 Then

    fees = 15000 + 10000 + ((value - 1000000) * 0.01)

    segment2 = 10000

    segment3 = ((value - 1000000) * 0.01)

ElseIf value > 500000 Then

    fees = 15000 + ((value - 500000) * 0.02)

    segment2 = ((value - 500000) * 0.02)

    segment3 = 0

End If

TextBox2.Text = segment1 ' الشريحة الاولى

TextBox3.Text = segment2 ' الشريحة الثانية

TextBox4.Text = segment3 ' الشريحة الثالثة

TextBox5.Text = fees ' مجموع الرسم المستحق

RE: محتاج كود حسابي صعب - paveldida - 21-02-20

(21-02-20, 11:18 PM)alsalamoni كتب :
(21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود

العفو اخي

اذا اردت عرض تفاصيل الشرائح في مربعات نص

كود :

Dim value As Double = Val(TextBox1.Text) ' ثمن البيع Dim segment1, segment2, segment3 As Double segment1 = 15000 Dim fees As Double = 15000 If value > 1000000 Then fees = 15000 + 10000 + ((value - 1000000) * 0.01) segment2 = 10000 segment3 = ((value - 1000000) * 0.01) ElseIf value > 500000 Then fees = 15000 + ((value - 500000) * 0.02) segment2 = ((value - 500000) * 0.02) segment3 = 0 End If TextBox2.Text = segment1 ' الشريحة الاولى TextBox3.Text = segment2 ' الشريحة الثانية TextBox4.Text = segment3 ' الشريحة الثالثة TextBox5.Text = fees ' مجموع الرسم المستحق

بارك الله فيك ، عندي طلب آخر ، كيف اجعل النتيجة تتضمن رقمين فقط بعد الفاصلة
يعني اجعل الارقام تضهر بالشكل التالي: 5.000.000,00

RE: محتاج كود حسابي صعب - alsalamoni - 21-02-20

(21-02-20, 11:34 PM)paveldida كتب :
(21-02-20, 11:18 PM)alsalamoni كتب :
(21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود

العفو اخي

اذا اردت عرض تفاصيل الشرائح في مربعات نص

كود :

Dim value As Double = Val(TextBox1.Text) ' ثمن البيع Dim segment1, segment2, segment3 As Double segment1 = 15000 Dim fees As Double = 15000 If value > 1000000 Then fees = 15000 + 10000 + ((value - 1000000) * 0.01) segment2 = 10000 segment3 = ((value - 1000000) * 0.01) ElseIf value > 500000 Then fees = 15000 + ((value - 500000) * 0.02) segment2 = ((value - 500000) * 0.02) segment3 = 0 End If TextBox2.Text = segment1 ' الشريحة الاولى TextBox3.Text = segment2 ' الشريحة الثانية TextBox4.Text = segment3 ' الشريحة الثالثة TextBox5.Text = fees ' مجموع الرسم المستحق

بارك الله فيك ، عندي طلب آخر ، كيف اجعل النتيجة تتضمن رقمين فقط بعد الفاصلة
يعني اجعل الارقام تضهر بالشكل التالي: 5.000.000,00

كود :

TextBox2.Text = FormatNumber(fees, 2)

RE: محتاج كود حسابي صعب - paveldida - 22-02-20

(21-02-20, 11:44 PM)alsalamoni كتب :
(21-02-20, 11:34 PM)paveldida كتب :
(21-02-20, 11:18 PM)alsalamoni كتب :
(21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود

العفو اخي

اذا اردت عرض تفاصيل الشرائح في مربعات نص

كود :

Dim value As Double = Val(TextBox1.Text) ' ثمن البيع Dim segment1, segment2, segment3 As Double segment1 = 15000 Dim fees As Double = 15000 If value > 1000000 Then fees = 15000 + 10000 + ((value - 1000000) * 0.01) segment2 = 10000 segment3 = ((value - 1000000) * 0.01) ElseIf value > 500000 Then fees = 15000 + ((value - 500000) * 0.02) segment2 = ((value - 500000) * 0.02) segment3 = 0 End If TextBox2.Text = segment1 ' الشريحة الاولى TextBox3.Text = segment2 ' الشريحة الثانية TextBox4.Text = segment3 ' الشريحة الثالثة TextBox5.Text = fees ' مجموع الرسم المستحق

بارك الله فيك ، عندي طلب آخر ، كيف اجعل النتيجة تتضمن رقمين فقط بعد الفاصلة
يعني اجعل الارقام تضهر بالشكل التالي: 5.000.000,00

كود :

TextBox2.Text = FormatNumber(fees, 2)

شكرا أخي

RE: محتاج كود حسابي صعب - alsalamoni - 22-02-20

(22-02-20, 11:21 AM)paveldida كتب :
(21-02-20, 11:44 PM)alsalamoni كتب :
(21-02-20, 11:34 PM)paveldida كتب :
(21-02-20, 11:18 PM)alsalamoni كتب :
(21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود

العفو اخي

اذا اردت عرض تفاصيل الشرائح في مربعات نص

كود :

Dim value As Double = Val(TextBox1.Text) ' ثمن البيع Dim segment1, segment2, segment3 As Double segment1 = 15000 Dim fees As Double = 15000 If value > 1000000 Then fees = 15000 + 10000 + ((value - 1000000) * 0.01) segment2 = 10000 segment3 = ((value - 1000000) * 0.01) ElseIf value > 500000 Then fees = 15000 + ((value - 500000) * 0.02) segment2 = ((value - 500000) * 0.02) segment3 = 0 End If TextBox2.Text = segment1 ' الشريحة الاولى TextBox3.Text = segment2 ' الشريحة الثانية TextBox4.Text = segment3 ' الشريحة الثالثة TextBox5.Text = fees ' مجموع الرسم المستحق

بارك الله فيك ، عندي طلب آخر ، كيف اجعل النتيجة تتضمن رقمين فقط بعد الفاصلة
يعني اجعل الارقام تضهر بالشكل التالي: 5.000.000,00

كود :

TextBox2.Text = FormatNumber(fees, 2)

شكرا أخي

العفو اخي