تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال عن المصفوفة
#1
Exclamation 
بسم الله الرحمن الرحيم

هل يمكن زيادة مبلغ بنسبة معينة تصاعديا
مثال
تعطي مبلغ لشخص و في اليوم التالي تضيف اليه نسبة 2.5 بالمائة و في اليوم الثالث
تضيف له 2.5 بالمائة  من المجموع الذي عنده في اليوم السابق اي تتكرر العملية بهذا النصق    
a=b+2.5
c=a+2.5
d=c+2.5
f=d+2.5

ماهو الكود الانسب لهذه العملية
                                             
                                                        
         
  اكسب قلوب الناس .......... تكسب احترامهم .
                ........تستطيع قطف كل الازهار.... و لكن لا تسطيع منع قدوم الربيع ....
الرد
تم الشكر بواسطة:
#2
Lightbulb 
أعتقد أني لم أفهمك جيدًا ؟!!! لا أرى مصفوفة في سؤالك المطروح ؟!!
لكن ربما يكون هذا ما تبحث عنه :

كود :
Dim Sum As Integer = 50

If ................ Then
Sum += ((2.5/100)*Sum)
MsgBox( "المبلغ هو " &  Sum.ToString )
End If


حيث أن :
50 -----> هي القيمة المبدئية للمبلغ .
............... -----> هو شرط الزيادة .
الرد
تم الشكر بواسطة:
#3
شكرا جزيلا اخي مصطفي هاهو الكود الذي اعمل عليه

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
                                             
                                                        
         
  اكسب قلوب الناس .......... تكسب احترامهم .
                ........تستطيع قطف كل الازهار.... و لكن لا تسطيع منع قدوم الربيع ....
الرد
تم الشكر بواسطة:
#4
Lightbulb 

أتمنى أن يكون هذا هو ما تبحث عنه .........

Dim Arr ( 49 ) As Integer
Dim Start As Integer = 1000
() Me.ListBox1.Items.Clear

( Arr.SetValue ( Start , 0
( Me.ListBox1.Items.Add ( Start

For x As Integer = 0 To Arr.Length - 2
( Dim Element As Integer = Arr.GetValue ( x
( Arr.SetValue ( CInt ( Element + ( Element * ( 2.5 / 100 ) ) ) , x + 1
( (Me.ListBox1.Items.Add ( Arr.GetValue ( x + 1
Next
حيث أن :
------------
(49) -------> تعني أن طول المصفوفة 50 عنصرًا .
1000 -------> هي القيمة المبدئية للمصفوفة .

الرد
تم الشكر بواسطة:
#5
شكرا جزيلا اخي مصطفى ........... سوف اجرب الكود ..... و لي عودة لاحقا للموضوع

العفو الاتصالات ليست جيدة بسبب الاحوال الجوية
                                             
                                                        
         
  اكسب قلوب الناس .......... تكسب احترامهم .
                ........تستطيع قطف كل الازهار.... و لكن لا تسطيع منع قدوم الربيع ....
الرد
تم الشكر بواسطة:
#6
كود صيحيح و نتايج مضبوطة شكرا اخي على المجهود
                                             
                                                        
         
  اكسب قلوب الناس .......... تكسب احترامهم .
                ........تستطيع قطف كل الازهار.... و لكن لا تسطيع منع قدوم الربيع ....
الرد
تم الشكر بواسطة:
#7
عفوًا أخي ......... وفقك الله
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في الفورم الذي يظهر فيه التقرير Emam emam 2 47 17-02-19, 03:59 PM
آخر رد: Emam emam
  سؤال فى صفوف الداتا جريد فيو احمد خطاب 1 77 07-02-19, 03:51 AM
آخر رد: حريف برمجة
  [كود] سؤال لأهل الخبرة كيف يمكن استدعاء شااشة لبرنامج تم برمجتة بالجافا dametucorazon 1 87 06-02-19, 10:35 AM
آخر رد: dametucorazon
  سؤال حول امر الطباعة الفورية Osama Bayoumy 6 595 02-02-19, 01:08 PM
آخر رد: atef_020
  سؤال BackgroundWorker new_programer 5 204 23-01-19, 06:50 PM
آخر رد: %Eman%
  سؤال بخصوص تشيك ليست بوكس نور الهدى الهدى 3 143 22-01-19, 07:51 AM
آخر رد: حريف برمجة
  سؤال في تغيير قيمة الخلية sofiane-phy 3 147 16-01-19, 11:09 PM
آخر رد: sofiane-phy
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 268 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 425 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  سؤال عن سبب ظهور خطا غير متوقع alipro 3 147 08-01-19, 04:28 AM
آخر رد: محمد كريّم

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


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