(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 


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

وكذلك هناك تسلسل منطقي للحساب مفقود في هذا النظام , المفروض لا يتم الانتقال من شريحة الى شريحة حتى يكتمل نصاب الشريحة (شرائح صغيرة بخصم كبير و شرائح كبيرة بخصم صغير ) لا يوجد الية واضحة للحساب (عباقرة المالية  )

(29-11-19, 07:15 PM)سلام م كتب : شكرا اخي هذا المطلوب
فقط كان خطأ بالشريحة ٣ قمت بتصحيحه وهو خصم ٤٥٠ وليس ٥٥٠ على الشريحة ٣
شكرا لك بالنسبة لسؤالك  نعم