(26-12-23, 10:20 PM)melad2002 كتب : [ -> ] (26-12-23, 09:55 PM)3sem كتب : [ -> ] (26-12-23, 09:25 PM)melad2002 كتب : [ -> ]السلام عليكم
ارجو مساعدتي في هذا البرنامج
لحساب المرتب
لدي اثنان كومبوبوكس
الاولى يحتوي الدرجة الوظيفة
والثاني يحتوي العلاوة
اريد عند وضع الدرجة والعلاوة تظهر قيمة المرتب في التكست بوكس اوتوماتيك
مرفق مع البرنامج ملف وورد للمظلوب
تقبلوا احترامي وتقديري
جرب هذا الكود
Public Class Form1
Private Sub CmbDRGA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbDRGA.SelectedIndexChanged
calc()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
calc()
End Sub
Sub calc()
TextBox1.Text = ""
If (CmbDRGA.SelectedIndex >= 0 And CmbDRGA.SelectedIndex < 15) And (ComboBox2.SelectedIndex >= 1 And ComboBox2.SelectedIndex < 16) Then
Dim DRGA = {750, 850, 950, 1050, 1150, 1300, 1450, 1600, 1800, 2000, 2240, 2540, 2840, 3140, 3500}
Dim ALWA = {20, 20, 20, 20, 30, 30, 30, 40, 40, 40, 50, 50, 50, 60, 60}
TextBox1.Text = DRGA(CmbDRGA.SelectedIndex) + ALWA(ComboBox2.SelectedIndex - 1)
End If
End Sub
End Class
اشكرك على تجاوبك
ولكن الزيدة في العلاوات كلها 20
بينما هي مصنفة
من الدرجة الاولى الى الرابعة الزيادة على العلاوة 20 دينار
من الدرجة الخامسة إلى السابعة الزيادة على العلاوة 30 دينار
من الدرجة الثامنة إلى العاشرة الزيادة على العلاوة 40 دينار
من الدرجة الحادية عشر إلى الثالثة عشرالزيادة على العلاوة 50 دينار
من الدرجة الرابعة عشر إلى الخامسة عشرالزيادة على العلاوة 60 دينار
مثال موظف درجته السادسة وعلاتين مرتبه يساوي 1360
و موظف درجته السادسة فقط مرتبه 1300
(26-12-23, 10:20 PM)melad2002 كتب : [ -> ]مثال موظف درجته السادسة وعلاتين مرتبه يساوي 1360
ماذا تقصد ب (وعلاتين ) إذا كنت تقصد (علاوتين) أي عدد العلاوات
كود بمفهوم أن الكمبوبكس الثاني هو عدد العلاوات
Public Class Form1
Private Sub CmbDRGA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbDRGA.SelectedIndexChanged
calc()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
calc()
End Sub
Sub calc()
TextBox1.Text = ""
If (CmbDRGA.SelectedIndex >= 0 And CmbDRGA.SelectedIndex < 15) And ComboBox2.SelectedIndex >= 0 Then
Dim DRGA = {750, 850, 950, 1050, 1150, 1300, 1450, 1600, 1800, 2000, 2240, 2540, 2840, 3140, 3500}
Dim ALWA = {20, 20, 20, 20, 30, 30, 30, 40, 40, 40, 50, 50, 50, 60, 60}
TextBox1.Text = DRGA(CmbDRGA.SelectedIndex) + (ALWA(CmbDRGA.SelectedIndex) * Val(ComboBox2.Text))
End If
End Sub
End Class