+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : السلام عليكم عندي سؤال فالمنهج الدراسي (/showthread.php?tid=40393)
السلام عليكم عندي سؤال فالمنهج الدراسي - AhmedRamadan - 06-01-22
السلام عليكم
السؤال د عندي فالكلية بس معرفتش احله وفكرت بس معرفتش انفذ ممكن حد يحله ويبعت الملف شكرا مقدما
[attachment=27466]
RE: السلام عليكم عندي سؤال فالمنهج الدراسي - ابو انس - 06-01-22
وعليكم السلام
تفضل ...
RE: السلام عليكم عندي سؤال فالمنهج الدراسي - AhmedRamadan - 06-01-22
(06-01-22, 05:25 PM)ابو انس كتب : وعليكم السلام
تفضل ...
مشكور في ميزان حسانتك <3
RE: السلام عليكم عندي سؤال فالمنهج الدراسي - ابراهيم ايبو - 10-01-22
السلام عليكم ورحمة الله وبركاته
اخي ابو انس مشكور على الاجابة
قمت بتحميل المثال لكنه لايتم الحساب وبخاصة عدد السنوات او المبلغ الزائد او المبالغ الكلية
لان المطلوب كم سنة سيكون الراتب قد تخطى 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 SubRE: السلام عليكم عندي سؤال فالمنهج الدراسي - ابو انس - 10-01-22
وعليكم السلام ورحمة الله وبركاته
بالفعل فاتتني جزيئة من المسألة التي عرضها الزميل
شكرا لك على التصحيح
ولكن قم لو سمحت برفع المال لنا الكود الخاص بك ينتج عنه عند تنفيذه ارقام غير مفهومة
فارفع لنا المثال لو سمحت
RE: السلام عليكم عندي سؤال فالمنهج الدراسي - ابراهيم ايبو - 11-01-22
السلام عليكم ورحمة الله وبركاته
اخي ابو انس توجد ملحوظة هامة جدا :
وهي اننا في السنة الاولى سيكون الراتب هو الابتدائي ويتم حساب النسبة وفقه
لكن في السنة الثانية سيكون الراتب هو الابتدائي مضافا له الزيادة او العلاوة وهنا سيتم الحساب وفق الراتب المزاد لا وفق الراتب الابتدائي
وهكذا في كل سنة سيزداد الراتب ويتم الحساب وفقه