الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مطلوب مساعدة في برنامج حساب

بدأه richi في 17 مارس 2010 · 5 رد · 982 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

شركة تبيع بضائع في سوريا ولبنان قامت بتقسيم سوق المبيعات إلى خمسة مناطق، واحدة للبنان وأ ربعة لسوريا: المنطقة الساحلية، المنطقة الشمالية، المنطقة الجنوبية، المنطقة الشرقية. طلبت الشركة منك أن تقوم بتصميم برنامج لحساب عمولة المبيعات لكل مندوب بشكل شهري، بحيث يوفر الجهد اليدوي المبذول، ويخفف الأخطاء التي قد تنجم عن العمليات البشرية في الحساب.

آلية العمل: كل مندوب مبيعات يشرف على منطقة مبيعات، ولكن يستطيع أن يبيع في أي منطقة، وبالتالي تختلف عمولته فيما إذا كانت المبيعات في منطقته أو في مناطق أُخر. فمن أجل مبيعات حتى مليون ليرة سورية من مبيعات المندوب يستحق هذا المندوب عمولة مقدارها 5% من مجمل المبيعات على أن تكون مبيعاته في نفس منطقته، أما إذا كانت مبيعاته في مناطق أخر فيستحق 3%. ويستحق أيضا 7% لكل مبلغ مبيعات فوق المليون ليرة سورية، على أن تكون مبيعاته في نفس منطقته، أما إذا كانت مبيعاته في مناطق أخر فيستحق 4%.

ينبغي على مندوب المبيعات أن يدخل إلى البرنامج المعلومات التالي:

• المنطقة التي يشرف عليها

• كمية المبيعات في كل منطقة

• تاريخ اليوم

يقوم البرنامج بحساب التالي:

• العمولة الشهرية حسب المعادلة التي تم وصفها آنفاً

• إظهار العمولة المكتسبة من كل منطقة عن طريق Listbox

علاوةً على ذلك يتم إدخال المبيعات في المنطقة اللبنانية بالعملة اللبنانية ويقوم البرنامج بتحويلها إلى عملة سورية حسب نسبة الصرف كل ليرة سورية تعادل 1500 ليرة لبنانية. يتم إظهار الكمية المحولة في textbox مجاور من نوع للقراءة فقط (Read-Only).

مثال:

إذا باع مندوب مبيعات مشرف على المنطقة الجنوبية مبيعات تقدر 1500000 ليرة سورية في منطقته و300000 ليرة سورية في المنطقة الساحلية، و675000000 ليرة لبنانية في لبنان فإن عمولته يتم حسابها كمايلي:

تحويل المبيعات من لبناني إلى سوري: 675000000 ÷ 1500 = 450000 ل.س

وبما أن 1500000 أكبر من مليون فيتم حساب العمولة: (1000000× 0.05) + (500000× 0.07 ) = 85000 ل.س

أما بقية المبيعات فتحسب: (450000× 0.03) + (300000× 0.03 ) = 22500 ل.س

العمولة الشهرية: 85000 + 22500 = 107500

ويجب ان يظهر في Listbox : المنطقة الجنوبية: 85000 ل.س

المنطقة الساحلية: 9000 ل.س

لبنان: 13500 ل.س

#2

للرفع

#3

للللرفع

#4

ما المشكلة التي تواجهها في الكود ؟

لنتمكن من مساعدتك

او انك تريد من يصنع لك البرنامج بالكامل ؟!!!!

#5

ليس البرنامج بالكامل ولكن البداية

تم تعديل هذه المشاركة بواسطة richi في 22 مارس 2010 في 19:58

#6

لا أرى ان هناك حاجة لاستخدام Loop or array

يمكن عمله باستخدام nested if

بهذا الشكل ..

 Dim Commission As Double

        If TextBox1.Text <= 1000000 Then

            If ComboBox1.SelectedItem = ComboBox2.SelectedItem Then
                Commission = 5
            Else
                Commission = 3

            End If
        Else

            If ComboBox1.SelectedItem = ComboBox2.SelectedItem Then
                Commission = 7
            Else
                Commission = 4

            End If


        End If

    End Sub

مواضيع مشابهة