10-01-22, 07:17 AM (آخر تعديل لهذه المشاركة : 10-01-22, 07:26 AM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
اخي ابو انس مشكور على الاجابة
قمت بتحميل المثال لكنه لايتم الحساب وبخاصة عدد السنوات او المبلغ الزائد او المبالغ الكلية
لان المطلوب كم سنة سيكون الراتب قد تخطى 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
وعليكم السلام ورحمة الله وبركاته
بالفعل فاتتني جزيئة من المسألة التي عرضها الزميل
شكرا لك على التصحيح
ولكن قم لو سمحت برفع المال لنا الكود الخاص بك ينتج عنه عند تنفيذه ارقام غير مفهومة
فارفع لنا المثال لو سمحت
سورس كود برنامج محاسبة ومبيعات احترافي - سورس كود تطبيق ارسال رصيد من الجوال B4A
السلام عليكم ورحمة الله وبركاته
اخي ابو انس توجد ملحوظة هامة جدا :
وهي اننا في السنة الاولى سيكون الراتب هو الابتدائي ويتم حساب النسبة وفقه
لكن في السنة الثانية سيكون الراتب هو الابتدائي مضافا له الزيادة او العلاوة وهنا سيتم الحساب وفق الراتب المزاد لا وفق الراتب الابتدائي
وهكذا في كل سنة سيزداد الراتب ويتم الحساب وفقه
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات