الرجاء المساعدة في انشاء برنامج لعمل ارقام متسلسلة

nacergha كتب:

السلام عليكم و رحمة اللهنظرا لكون هذا المثال يشبه تقريبا لفكرة برنامج عجزت عن الوصول إلى وضع أكوادهأردت طرح مثال عسى الأخ الكريم abudawoodd صاحب الجواب أن ينورنا بالحلهو تقريبا نفس فكرة المثال المطروح لكن الإضافة تتمثل في اختيار لون التكست الأول و الذي يليهأي : لنفرض الترقيم يكون من 01 إلى 100و البداية تكون باللون الأخضر و الذي يليه بني إلى نهاية الترقيمشكرا مسبقا و معذرة لصاحب الموضوع الأول

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

الذى وضعته ايضا هنا ليستفيد منة الجميع

ارجو ان يكون هذا هو طلبك

مع جزيل الشكر

هذا هو السورسكود للبرنامج المرسل بالمرفقات

=======================================================================

Private Sub Command1_Click()

If Text16.Text = 1 Then

Text1.Visible = True

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 2 Then

Text1.Visible = False

Text2.Visible = True

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 3 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = True

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 4 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = True

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 5 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = True

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 6 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = True

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 7 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = True

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 8 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = True

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 9 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = True

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 10 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = True

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 11 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = True

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 12 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = True

Text13.Visible = False

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 13 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = True

Text14.Visible = False

Text15.Visible = False

ElseIf Text16.Text = 14 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = True

Text15.Visible = False

ElseIf Text16.Text = 15 Then

Text1.Visible = False

Text2.Visible = False

Text3.Visible = False

Text4.Visible = False

Text5.Visible = False

Text6.Visible = False

Text7.Visible = False

Text8.Visible = False

Text9.Visible = False

Text10.Visible = False

Text11.Visible = False

Text12.Visible = False

Text13.Visible = False

Text14.Visible = False

Text15.Visible = True

End If

ss = Text16.Text

For ss = 1 To ss

Text16.Text = Text16.Text + 1

Next

If Text16.Text = 16 Then

Text16.Text = 1

End If

End Sub

Private Sub Form_Load()

Text16.Text = 1

End Sub

=======================================================================

اخوكم

جلال بديع

الرابط

برنامج توليد الارقام التسلسلية مع الالوان.rar