تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] محتاج كود حسابي صعب
#1
السلام عليكم
محتاج كود 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 دج مهما كان الثمن
الرد }}}
تم الشكر بواسطة:
#2
(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)
الرد }}}
تم الشكر بواسطة: asemshahen5
#3
شكراااا سأجرب

(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))))
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#4
(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
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#5
شكراااااااااااااا نجح الكود
الرد }}}
تم الشكر بواسطة: asemshahen5
#6
(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 ' مجموع الرسم المستحق
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#7
(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
الرد }}}
تم الشكر بواسطة: asemshahen5
#8
(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)
الرد }}}
تم الشكر بواسطة: asemshahen5
#9
(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)

شكرا أخي
الرد }}}
تم الشكر بواسطة: asemshahen5
#10
(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)

شكرا أخي

العفو اخي
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  [VB.NET] محتاج مساعدة تعديل على كود ZEEN4ZEEN 4 416 08-10-23, 09:11 PM
آخر رد: ZEEN4ZEEN
  محتاج تعديل على سورس كود - حفظ البيانات بدون قاعدة بيانات new_programer 5 628 30-08-23, 12:21 AM
آخر رد: atefkhalf2004
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 517 03-08-23, 03:41 PM
آخر رد: moh61
  محتاج تحويل السورس كود من C#الى فيجوال ستوديو new_programer 3 641 13-05-23, 03:28 AM
آخر رد: أبووسم
  مثال حفظ فاتورة المشتريات بكامل التفاصيل +اجراء مخزن -الكود محتاج تعديل new_programer 5 715 12-05-23, 09:25 PM
آخر رد: new_programer
  [VB.NET] محتاج طريقة طباعه Listviwe على ورقة الطابعات الصغيرة اسمها POS mac9 7 815 26-04-23, 08:48 PM
آخر رد: aljzazy
  [VB.NET] محتاج مساعدة ahmed20000 0 415 15-04-23, 02:46 AM
آخر رد: ahmed20000

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم