تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 183 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي
  [VB.NET] لو سمحت محتاج مساعدة في تنفيذ شريط مهام للمشروع MustafaShaker 2 239 15-08-20, 05:59 AM
آخر رد: MustafaShaker
  ياشباب محتاج كود صغير يقوم بالبحث عن حقل معين فلتر بال Datagridview moh61 13 3,900 21-07-20, 11:48 PM
آخر رد: alessam4pro
  [سؤال] محتاج سورس Mina Botros 1 204 20-07-20, 04:33 AM
آخر رد: Mina Botros
  محتاج مساعده طلب بسيط اليوم السابع 1 290 31-05-20, 05:50 AM
آخر رد: سعود
  محتاج مساعده في الداتا جريد فيو اليوم السابع 8 437 31-05-20, 05:35 AM
آخر رد: اليوم السابع
  [VB.NET] محتاج المساعدة من الاخوان - وكل عام وانتم بخير alsaher1 6 391 29-05-20, 06:57 AM
آخر رد: alsaher1
  مشروع خطير لشجرة رائعة و محتاج تطوير لحل تعقيد هذا المشروع DR.YASER 4 444 14-05-20, 09:17 PM
آخر رد: ابراهيم ايبو
  السلام عليكم محتاج مساعدة .؟؟؟ nazarakrawi 5 377 10-05-20, 09:38 AM
آخر رد: asemshahen5
  سوال محتاج مساعدة بسيطة في كود برمجي العطر الرايق 2 307 10-05-20, 02:20 AM
آخر رد: العطر الرايق

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


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