تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أرجوكم ساعدوني في هذا الكود
#1
أرجو من أعضاء المنتدى مساعدتي في إتمام برنامج يساعدني في عملي هذا وجعل الله هذا     في ميزان حسناتكم

أعمل في ورشة صغيرةمكونة من 10 عمال

المطلوب

 كود لتوزيع 10 أماكن عمل على 10 عمال  
 مع الأخد بعين الإعتبار  تغيير مكان العمل   بالنسبة لكل عامل   يوميا
 مع عدم تكرار  مكان العمل لأي عامل إلا بعد مرور  10  أيام

الرد
تم الشكر بواسطة:
#2
أرجوكم هل من مجيب !؟؟ Sad
الرد
تم الشكر بواسطة:
#3
انشئ 11 ليست بوكس و كوماند واحد و اعمل كود ادخال اسماء / ارقام على ليست 11

و انسخ هذه الاكواد :

Private Sub Command1_Click()
For g = 0 To 9
l = List11.List(g)
List1.List(g) = List11.List(g)
If g + 1 < 10 Then List2.List(g + 1) = List11.List(g)
If g + 2 < 10 Then List3.List(g + 2) = List11.List(g)
If g + 3 < 10 Then List4.List(g + 3) = List11.List(g)
If g + 4 < 10 Then List5.List(g + 4) = List11.List(g)
If g + 5 < 10 Then List6.List(g + 5) = List11.List(g)
If g + 6 < 10 Then List7.List(g + 6) = List11.List(g)
If g + 7 < 10 Then List8.List(g + 7) = List11.List(g)
If g + 8 < 10 Then List9.List(g + 8) = List11.List(g)
If g + 9 < 10 Then List10.List(g + 9) = List11.List(g)
Next
Dim I As Integer
gg = 9
ga = 2
For g = 0 To 9
On Error Resume Next
l = List11.List(gg)
I = ga

If g + 0 < 10 And Controls("List" & CStr(I)).List(0) = "" Then Controls("List" & CStr(I)).List(0) = l
If g + 1 < 10 And Controls("List" & CStr(I + 1)).List(1) = "" Then Controls("List" & CStr(I + 1)).List(1) = l
If g + 2 < 10 And Controls("List" & CStr(I + 2)).List(2) = "" Then Controls("List" & CStr(I + 2)).List(2) = l
If g + 3 < 10 And Controls("List" & CStr(I + 3)).List(3) = "" Then Controls("List" & CStr(I + 3)).List(3) = l
If g + 4 < 10 And Controls("List" & CStr(I + 4)).List(4) = "" Then Controls("List" & CStr(I + 4)).List(4) = l
If g + 5 < 10 And Controls("List" & CStr(I + 5)).List(5) = "" Then Controls("List" & CStr(I + 5)).List(5) = l
If g + 6 < 10 And Controls("List" & CStr(I + 6)).List(6) = "" Then Controls("List" & CStr(I + 6)).List(6) = l
If g + 7 < 10 And Controls("List" & CStr(I + 7)).List(7) = "" Then Controls("List" & CStr(I + 7)).List(7) = l
If g + 8 < 10 And Controls("List" & CStr(I + 8)).List(8) = "" Then Controls("List" & CStr(I + 8)).List(8) = l
If g + 9 < 10 And Controls("List" & CStr(I + 9)).List(9) = "" Then Controls("List" & CStr(I + 8)).List(9) = l
gg = gg - 1
ga = ga + 1
Next



End Sub

Private Sub Form_Load()
For g = 0 To 9
List1.AddItem ""
List2.AddItem ""
List3.AddItem ""
List4.AddItem ""
List5.AddItem ""
List6.AddItem ""
List7.AddItem ""
List8.AddItem ""
List9.AddItem ""
List10.AddItem ""
List11.AddItem g + 1
Next

End Sub

ثم رتب الفورم كما تريد او عدل على كيفك

طبعا كل سطر من هذه الليستات يعبر عن يوم واحد
الرد
تم الشكر بواسطة:
#4
استخدم كود  أى  من الزرين الآتيين
مع استبدال الجملة N=6   بالجملة N=10 أو بجملة INPUTBOX ان كان عدد العمال سيتغير
وطبعآ يمكنك وضع النتائج فى TEXTBOX بدلآ من طباعتها على الفورم

Dim X(20, 20) As Integer
Private Sub Command1_Click()
N = 6

For I = 1 To N
For J = I To I + N - 1
X(I, J) = J
If X(I, J) > N Then X(I, J) = X(I, J) - N
Print X(I, J)
Next J
Print "------------------------"
Next I
End Sub

Private Sub Command2_Click()
N = 6

For I = 1 To N
For J = I To N
X(I, J) = J
Print X(I, J)
Next J
For J = N + 1 To I + N - 1
X(I, J) = J - N
Print X(I, J)
Next J
Print "------------------------"
Next I

End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ارجو المساعدة التقارير تفتح فاضية وعندما اقوم بتعطيل الكود لمعرفة الخطوات اجد التقرير mohamed elbery 4 137 22-01-19, 10:43 PM
آخر رد: mohamed elbery
  ربط اداة datareport مع قاعدة البينات عن طريق الكود عبدالله الصافي 2 319 15-07-18, 02:30 AM
آخر رد: عبدالله الصافي
  ارجو المساعدة فى هذا الكود mhareek 1 190 02-05-18, 07:18 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] هل يمكن تغير اسم المستخدم وكلمة المرور إذا كنت موجودة ضمن الكود ؟؟ Microformt 2 332 12-03-18, 07:09 AM
آخر رد: Microformt
  ما هو الخطأ فى هذا الكود مبرمج مصرى 0 187 07-02-18, 04:59 PM
آخر رد: مبرمج مصرى
  التعديل على هذا الكود جزاكم الله خيرا bidaya 4 276 10-01-18, 03:38 AM
آخر رد: bidaya
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 431 30-09-17, 08:27 PM
آخر رد: bidaya
  ظهور الخط العربي بخط غريب داخل شاشة الكود للفيجوال بيسك في الوندوز 10 allobaed 2 568 08-08-17, 03:09 AM
آخر رد: allobaed
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 539 26-05-17, 12:15 PM
آخر رد: larbihamri
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 460 04-03-17, 11:36 AM
آخر رد: Amir_Alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم