شكرا اخي الكريم لكن حاولت التعديل للشرائح ولم انجح بدي عذبك معي سأرسل لك الشرائح كما هي
١٥٠٠٠ الاولى معفاة
أول ٥٠٠٠ تخضع ل ٥ بالمئة وثاني ٥٠٠٠ ٧ بالمئة وثثثالث ٥٠٠٠ ٩ بالمئة ثم ٨٠٠٠ بعدها ١١ بالمئة ثم ١٢٠٠٠ بعدها ١٣ بالمئة ثم ١٥٠٠٠ بعدها ١٦ بالمئة ثم ١٠٠٠٠ بعدها ١٩ بالمئة ثم راتب ٧٥٠٠٠ ومافوق يخضع ٢٢ بالمئةة وشكرا لك عم عذبك الاكواد التي ارسلتها لي اشتغلت تمام
اخي شكرا لكك تما اشتغلت الاكواد لكن حاولت اعدل عليها ولم استطع سارسل لك الشرائح كما هي
١٥٠٠٠ الاولى معفاة
بعدها ٥٠٠٠ تخخضع ٥ بالمئة ثم ٥٠٠٠ بعدها ٧ بالمئة ثم ٥٠٠٠ بعدها ٩ بالمئة ثم ٨٠٠٠ بعدها ١١ بالمئة ثم ١٢٠٠٠ بعدها ١٣ بالمئة ثم ١٥٠٠٠ بعدها ١٦ بالمئة ثم ١٠٠٠٠ بعدها ١٩ بالمئة ثم راتب ٧٥٠٠٠ وما اكثر ييخضع ٢٢ بالمئة
اخي شكرا لكك تما اشتغلت الاكواد لكن حاولت اعدل عليها ولم استطع سارسل لك الشرائح كما هي
١٥٠٠٠ الاولى معفاة
بعدها ٥٠٠٠ تخخضع ٥ بالمئة ثم ٥٠٠٠ بعدها ٧ بالمئة ثم ٥٠٠٠ بعدها ٩ بالمئة ثم ٨٠٠٠ بعدها ١١ بالمئة ثم ١٢٠٠٠ بعدها ١٣ بالمئة ثم ١٥٠٠٠ بعدها ١٦ بالمئة ثم ١٠٠٠٠ بعدها ١٩ بالمئة ثم راتب ٧٥٠٠٠ وما اكثر ييخضع ٢٢ بالمئة
١٥٠٠٠ الاولى معفاة
أول ٥٠٠٠ تخضع ل ٥ بالمئة وثاني ٥٠٠٠ ٧ بالمئة وثثثالث ٥٠٠٠ ٩ بالمئة ثم ٨٠٠٠ بعدها ١١ بالمئة ثم ١٢٠٠٠ بعدها ١٣ بالمئة ثم ١٥٠٠٠ بعدها ١٦ بالمئة ثم ١٠٠٠٠ بعدها ١٩ بالمئة ثم راتب ٧٥٠٠٠ ومافوق يخضع ٢٢ بالمئةة وشكرا لك عم عذبك الاكواد التي ارسلتها لي اشتغلت تمام
اخي شكرا لكك تما اشتغلت الاكواد لكن حاولت اعدل عليها ولم استطع سارسل لك الشرائح كما هي
١٥٠٠٠ الاولى معفاة
بعدها ٥٠٠٠ تخخضع ٥ بالمئة ثم ٥٠٠٠ بعدها ٧ بالمئة ثم ٥٠٠٠ بعدها ٩ بالمئة ثم ٨٠٠٠ بعدها ١١ بالمئة ثم ١٢٠٠٠ بعدها ١٣ بالمئة ثم ١٥٠٠٠ بعدها ١٦ بالمئة ثم ١٠٠٠٠ بعدها ١٩ بالمئة ثم راتب ٧٥٠٠٠ وما اكثر ييخضع ٢٢ بالمئة
(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
اعلمنا بالنتيجة
بالتوفيق
اخي شكرا لكك تما اشتغلت الاكواد لكن حاولت اعدل عليها ولم استطع سارسل لك الشرائح كما هي
١٥٠٠٠ الاولى معفاة
بعدها ٥٠٠٠ تخخضع ٥ بالمئة ثم ٥٠٠٠ بعدها ٧ بالمئة ثم ٥٠٠٠ بعدها ٩ بالمئة ثم ٨٠٠٠ بعدها ١١ بالمئة ثم ١٢٠٠٠ بعدها ١٣ بالمئة ثم ١٥٠٠٠ بعدها ١٦ بالمئة ثم ١٠٠٠٠ بعدها ١٩ بالمئة ثم راتب ٧٥٠٠٠ وما اكثر ييخضع ٢٢ بالمئة