[melad2002]

السلام عليكم
ارجو مساعدتي في هذا البرنامج
لحساب المرتب 
لدي اثنان كومبوبوكس 
الاولى يحتوي الدرجة الوظيفة 
والثاني يحتوي العلاوة
اريد عند وضع الدرجة والعلاوة تظهر قيمة المرتب في التكست بوكس اوتوماتيك

مرفق مع البرنامج ملف وورد للمظلوب 


تقبلوا احترامي وتقديري

[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
  

[3sem]

(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

[melad2002]

(26-12-23, 10:28 PM)3sem كتب :

(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

حياك الله وبياك
شكرا لك من القلب على الاجابة تحياتي