[سلام م]

شكرا اخي الكريم لكن حاولت التعديل للشرائح ولم انجح بدي عذبك معي سأرسل لك الشرائح كما هي
١٥٠٠٠ الاولى معفاة
أول ٥٠٠٠ تخضع ل ٥ بالمئة وثاني ٥٠٠٠ ٧ بالمئة وثثثالث ٥٠٠٠ ٩ بالمئة ثم ٨٠٠٠ بعدها ١١ بالمئة ثم ١٢٠٠٠ بعدها ١٣ بالمئة ثم ١٥٠٠٠ بعدها ١٦ بالمئة ثم ١٠٠٠٠ بعدها ١٩ بالمئة ثم راتب ٧٥٠٠٠ ومافوق يخضع ٢٢ بالمئةة وشكرا لك عم عذبك الاكواد التي ارسلتها لي اشتغلت تمام

---

اخي شكرا لكك تما اشتغلت الاكواد لكن حاولت اعدل عليها ولم استطع سارسل لك الشرائح كما هي
١٥٠٠٠ الاولى معفاة
بعدها ٥٠٠٠ تخخضع ٥ بالمئة ثم ٥٠٠٠ بعدها ٧ بالمئة ثم ٥٠٠٠ بعدها ٩ بالمئة ثم ٨٠٠٠ بعدها ١١ بالمئة ثم ١٢٠٠٠ بعدها ١٣ بالمئة ثم ١٥٠٠٠ بعدها ١٦ بالمئة ثم ١٠٠٠٠ بعدها ١٩ بالمئة ثم راتب ٧٥٠٠٠ وما اكثر ييخضع ٢٢ بالمئة

---

(29-11-19, 03:49 AM)ابو ليلى كتب : حيث ذلك صمم نموذج بسيط وضع عليه الادوات مع المسميات كما في الصورة



ضع الكود التالي لديك

PHP كود :

 Dim Salary As Integer = Nothing
    Dim NewSalary As Integer = Nothing
    Dim LastDisc As Integer = Nothing
    Dim Totaldisc As Integer = Nothing


    Private Sub btnExc_Click(sender As Object, e As EventArgs) Handles btnExc.Click
        Salary = If(Int32.TryParse(txtSalary.Text.ToString, 0), txtSalary.Text.ToString, 0)
        If Salary < 15000 Then
            MsgBox("لايمكن ان يكون الراتب اقل من 15000")
            ClearAll()
            txtSalary.Focus()
            Exit Sub
        End If

        NewSalary = Salary - 15000       'اول 15000 معفاة

        Select Case NewSalary
            Case <= 5000                  'شريحة اولى
                t1.Text = NewSalary * 0.05
                t2.Text = 0
                t3.Text = 0
                t4.Text = 0
            Case 5001 To 10000        'شريحة ثانية
                t1.Text = 250
                NewSalary -= 5000
                t2.Text = NewSalary * 0.07
                t3.Text = 0
                t4.Text = 0
            Case 10001 To 15000        'شريحة ثالثة
                t1.Text = 250
                t2.Text = 350
                NewSalary -= 10000
                t3.Text = NewSalary * 0.11
                t4.Text = 0
            Case >= 15000       'شريحة اخيرة
                t1.Text = 250
                t2.Text = 350
                t3.Text = 550
                NewSalary = NewSalary - 15000
                LastDisc = (NewSalary * 0.22)
                t4.Text = LastDisc
                NewSalary = NewSalary - LastDisc
        End Select

        Totaldisc = Val(t1.Text) + Val(t2.Text) + Val(t3.Text) + Val(t4.Text)
        txtTotalDiscount.Text = Totaldisc
        txtResult.Text = Salary - Totaldisc

    End Sub

    Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
        ClearAll()
    End Sub


    Private Sub ClearAll()
        For Each ctrl As Control In GroupBox1.Controls
            If TypeOf (ctrl) Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
        txtSalary.Focus()
    End Sub


    Private Sub txtSalary_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtSalary.KeyPress
        If Char.IsDigit(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
            e.Handled = True
        End If
    End Sub 


اعلمنا بالنتيجة
بالتوفيق

اخي شكرا لكك تما اشتغلت الاكواد لكن حاولت اعدل عليها ولم استطع سارسل لك الشرائح كما هي
١٥٠٠٠ الاولى معفاة
بعدها ٥٠٠٠ تخخضع ٥ بالمئة ثم ٥٠٠٠ بعدها ٧ بالمئة ثم ٥٠٠٠ بعدها ٩ بالمئة ثم ٨٠٠٠ بعدها ١١ بالمئة ثم ١٢٠٠٠ بعدها ١٣ بالمئة ثم ١٥٠٠٠ بعدها ١٦ بالمئة ثم ١٠٠٠٠ بعدها ١٩ بالمئة ثم راتب ٧٥٠٠٠ وما اكثر ييخضع ٢٢ بالمئة