منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : السلام عليكم عندي سؤال فالمنهج الدراسي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 
السؤال د عندي فالكلية بس معرفتش احله وفكرت بس معرفتش انفذ ممكن حد يحله ويبعت الملف  شكرا مقدما


[attachment=27466]
وعليكم السلام 
تفضل ...
(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
وعليكم السلام ورحمة الله وبركاته
بالفعل فاتتني جزيئة من المسألة التي عرضها الزميل
شكرا لك على التصحيح
ولكن قم لو سمحت برفع المال لنا الكود الخاص بك ينتج عنه عند تنفيذه ارقام غير مفهومة 
فارفع لنا المثال لو سمحت
السلام عليكم ورحمة الله وبركاته
اخي ابو انس توجد ملحوظة هامة جدا :
وهي اننا في السنة الاولى سيكون الراتب هو الابتدائي ويتم حساب النسبة وفقه
لكن في السنة الثانية سيكون الراتب هو الابتدائي مضافا له الزيادة او العلاوة وهنا سيتم الحساب وفق الراتب المزاد لا وفق الراتب الابتدائي 
وهكذا في كل سنة سيزداد الراتب ويتم الحساب وفقه