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


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


الملفات المرفقة
.rar   WindowsApplication23.rar (الحجم : 75.46 ك ب / التحميلات : 10)
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 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
وعليكم السلام ورحمة الله وبركاته
بالفعل فاتتني جزيئة من المسألة التي عرضها الزميل
شكرا لك على التصحيح
ولكن قم لو سمحت برفع المال لنا الكود الخاص بك ينتج عنه عند تنفيذه ارقام غير مفهومة 
فارفع لنا المثال لو سمحت
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
السلام عليكم ورحمة الله وبركاته
اخي ابو انس توجد ملحوظة هامة جدا :
وهي اننا في السنة الاولى سيكون الراتب هو الابتدائي ويتم حساب النسبة وفقه
لكن في السنة الثانية سيكون الراتب هو الابتدائي مضافا له الزيادة او العلاوة وهنا سيتم الحساب وفق الراتب المزاد لا وفق الراتب الابتدائي 
وهكذا في كل سنة سيزداد الراتب ويتم الحساب وفقه


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







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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن طريق حساب السجلات المعبئة وغير المعبئة في قاعدة بيانات اكسيس برمجيا ب VB bilgacim 1 28 منذ 3 ساعة مضت
آخر رد: علي بنيان
  سؤال حول تهنيج داتا جريد فيو خالد20 5 112 , 10:00 PM
آخر رد: ابو انس
  [سؤال] سؤال في الكريستال ريبورت حسن الجلب 4 415 , 01:01 AM
آخر رد: ابو انس
  سؤال عن كيفية اخراج فاتوره البيع كامله للاستعلام فقط حسين ادريس 4 203 24-01-22, 07:35 PM
آخر رد: علاء الكبابي
  سؤال عن تصنيع الاصناف alfaiz678 3 156 20-01-22, 04:45 PM
آخر رد: Taha Okla
Lightbulb [VB.NET] الرجاء المساعدة أخوتي عندي مشكلة DATA_GRID_VIEW RADOS 4 276 19-01-22, 12:41 AM
آخر رد: رضوان الجماعي
  سؤال عن where محمود صالح 3 141 18-01-22, 04:48 AM
آخر رد: محمود صالح
  سؤال في المصفوفات اليوم السابع 1 104 15-01-22, 10:50 PM
آخر رد: محمود صالح
  [سؤال] السلام عليكم ورحمة الله وبركاته محتاج شرح كيفية البحث عن تفاصيل فاتوره فيجوال بيسك حسين ادريس 3 175 15-01-22, 11:24 AM
آخر رد: ابراهيم ايبو
  سؤال عن فتح فورم ابو انس 2 131 11-01-22, 11:46 PM
آخر رد: ابو انس

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


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