[AhmedRamadan]

السلام عليكم 
السؤال د عندي فالكلية بس معرفتش احله وفكرت بس معرفتش انفذ ممكن حد يحله ويبعت الملف  شكرا مقدما


   

[ابو انس]

وعليكم السلام 
تفضل ...

[AhmedRamadan]

(06-01-22, 05:25 PM)ابو انس كتب : وعليكم السلام 
تفضل ...

مشكور في ميزان حسانتك <3

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي ابو انس مشكور على الاجابة 
قمت بتحميل المثال لكنه لايتم الحساب وبخاصة عدد السنوات او المبلغ الزائد او المبالغ الكلية 
لان المطلوب كم سنة سيكون الراتب قد تخطى 15000 سواء بالنسبة او القيمة الثابتة يبدو ان هذه الجزئية فاتتك
وقد اعدت كتابة اكواد الحساب على النحو التالي بالاذن منك طبعا
انشء فورم جديدة فيها
- عدد 6 Textbox لعرض عدد السنين والمبلغ المزاد والمبالغ خلال السنوات لكل من الحالتين
- عدد 1 Checkbox نحتاجه لطريقة الحساب حسب نوع الزيادة
- عدد 1 Button

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim Rateb As Double = 10000
       Dim lastRateb As Double = 15000
       Dim nesbeh As Double = 0.06
       Dim Thabeta As Double = 500
       Dim Totalyears As Integer = 0
       Dim newRateb As Double = 10000
       Dim ziada As Double = 0

       Dim totalWitNesba As Double = 0
       Dim totalWithabeteh As Double = 0
       ' الحساب وفق النسبة المئوية
       If Chk_ModeZiadeh.Checked = False Then
           While Rateb < lastRateb
               ziada = Rateb * nesbeh
               Rateb += ziada
               totalWitNesba += ziada
               Totalyears += 1
           End While
           TextBox1.Text = Totalyears
           TextBox2.Text = totalWitNesba.ToString("0.00")
           TextBox3.Text = (10000 * Totalyears) + totalWitNesba.ToString("0.00")
           ' الحساب وفق الزيادة الثابتة
       ElseIf Chk_ModeZiadeh.Checked = True Then
           While Rateb < lastRateb
               ziada = Thabeta
               Rateb += ziada
               totalWithabeteh += ziada
               Totalyears += 1
           End While
           TextBox4.Text = Totalyears
           TextBox5.Text = totalWithabeteh.ToString("0.00")
           TextBox6.Text = 10000 * Totalyears + totalWithabeteh.ToString("0.00")
       End If


   End Sub

[ابو انس]

وعليكم السلام ورحمة الله وبركاته
بالفعل فاتتني جزيئة من المسألة التي عرضها الزميل
شكرا لك على التصحيح
ولكن قم لو سمحت برفع المال لنا الكود الخاص بك ينتج عنه عند تنفيذه ارقام غير مفهومة 
فارفع لنا المثال لو سمحت

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي ابو انس توجد ملحوظة هامة جدا :
وهي اننا في السنة الاولى سيكون الراتب هو الابتدائي ويتم حساب النسبة وفقه
لكن في السنة الثانية سيكون الراتب هو الابتدائي مضافا له الزيادة او العلاوة وهنا سيتم الحساب وفق الراتب المزاد لا وفق الراتب الابتدائي 
وهكذا في كل سنة سيزداد الراتب ويتم الحساب وفقه