تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
السلام عليكم عندي سؤال فالمنهج الدراسي
#1
السلام عليكم 
السؤال د عندي فالكلية بس معرفتش احله وفكرت بس معرفتش انفذ ممكن حد يحله ويبعت الملف  شكرا مقدما


   
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام 
تفضل ...


الملفات المرفقة
.rar   WindowsApplication23.rar (الحجم : 75.46 ك ب / التحميلات : 11)
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#3
Heart 
(06-01-22, 05:25 PM)ابو انس كتب : وعليكم السلام 
تفضل ...

مشكور في ميزان حسانتك <3
الرد }}}
#4
السلام عليكم ورحمة الله وبركاته
اخي ابو انس مشكور على الاجابة 
قمت بتحميل المثال لكنه لايتم الحساب وبخاصة عدد السنوات او المبلغ الزائد او المبالغ الكلية 
لان المطلوب كم سنة سيكون الراتب قد تخطى 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة:
#5
وعليكم السلام ورحمة الله وبركاته
بالفعل فاتتني جزيئة من المسألة التي عرضها الزميل
شكرا لك على التصحيح
ولكن قم لو سمحت برفع المال لنا الكود الخاص بك ينتج عنه عند تنفيذه ارقام غير مفهومة 
فارفع لنا المثال لو سمحت
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#6
السلام عليكم ورحمة الله وبركاته
اخي ابو انس توجد ملحوظة هامة جدا :
وهي اننا في السنة الاولى سيكون الراتب هو الابتدائي ويتم حساب النسبة وفقه
لكن في السنة الثانية سيكون الراتب هو الابتدائي مضافا له الزيادة او العلاوة وهنا سيتم الحساب وفق الراتب المزاد لا وفق الراتب الابتدائي 
وهكذا في كل سنة سيزداد الراتب ويتم الحساب وفقه


الملفات المرفقة
.zip   CalculateSalary.zip (الحجم : 103.52 ك ب / التحميلات : 1)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5



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


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