المشاركات : 191
المواضيع 8
الإنتساب : Feb 2015
السمعة :
8
الشكر: 243
تم شكره 242 مرات في 129 مشاركات
24-02-15, 12:54 AM
بسم الله الرحمن الرحيم
هل يمكن زيادة مبلغ بنسبة معينة تصاعديا
مثال
تعطي مبلغ لشخص و في اليوم التالي تضيف اليه نسبة 2.5 بالمائة و في اليوم الثالث
تضيف له 2.5 بالمائة من المجموع الذي عنده في اليوم السابق اي تتكرر العملية بهذا النصق
a=b+2.5
c=a+2.5
d=c+2.5
f=d+2.5
ماهو الكود الانسب لهذه العملية
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
المشاركات : 191
المواضيع 8
الإنتساب : Feb 2015
السمعة :
8
الشكر: 243
تم شكره 242 مرات في 129 مشاركات
شكرا جزيلا اخي مصطفي هاهو الكود الذي اعمل عليه
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Sum As Integer = 1000
For i As Integer = 2 To 10
Sum += ((2.5 / 100) * Sum)
ListBox1.Items.Add(i & "المبلغ هو " & Sum.ToString)
Next
End Sub
End Class
هنا المبلغ 1000 يزداد بقيمة ثابتة بالنسبة 2.5 لـ 1000 اما انا ابحث عن الزيادة لكل دورة في المصفوفة
اي الناتج الاول هو لــ 1000+2.5 اما الناتج الثاني في المصفوفة هو 2.5 زيادة بالنسبة للمبلغ (1000+2.5)
اي النتائج تكون هكذا :
1000+2.5
(1000+2.5)+2.5
((2.5+1000)+2.5)+2.5
(((2.5+1000)+2.5)+2.5)+2.5
--------------------------------------------------
لقد عملت تطبيق يعطي نتائج صحيحة و لكن الكود يبدو بدائي و طويل جدا :
dim a.b.c.d.f as integer
a=b+2.5
c=a+2.5
d=c+2.5
f=d+2.5
label1.text=a
label2.text=b
label3.text=c
label4.text=d
label5.text=f
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
المشاركات : 191
المواضيع 8
الإنتساب : Feb 2015
السمعة :
8
الشكر: 243
تم شكره 242 مرات في 129 مشاركات
شكرا جزيلا اخي مصطفى ........... سوف اجرب الكود ..... و لي عودة لاحقا للموضوع
العفو الاتصالات ليست جيدة بسبب الاحوال الجوية
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
المشاركات : 191
المواضيع 8
الإنتساب : Feb 2015
السمعة :
8
الشكر: 243
تم شكره 242 مرات في 129 مشاركات
كود صيحيح و نتايج مضبوطة شكرا اخي على المجهود
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
المشاركات : 40
المواضيع 3
الإنتساب : Feb 2015
السمعة :
1
الشكر: 705
تم شكره 40 مرات في 12 مشاركات
عفوًا أخي ......... وفقك الله