تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] ابحث عن كود عمل سلسلة حرفية رقمية معاً
#1
Lightbulb 
السلام عليكم اخواني الاعزاء
احتاج منكم كود برمجي على الفيجول بيسك يقوم بعمل سلسله حرفية رقمية بنفس الوقت
 مثلا
لدي textbox1 
و textbox2
الاول يتم فيه اضافة بداية السلسله (فرع١)

والثاني يتم فيه اضافة نهاية السلسلة(فرع ١٠٠)

فتكون النتيجة 
فرع١
فرع٢
فرع٣
فرع٤
فرع٥
فرع٦
فرع٧
فرع٨
فرع٩
....
فرع ١٠٠

شاكرا لكم تعاونكم في ايجاد الكود
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

لجعل الأمر أكثر سلاسة  بكتابة الكود :
نجعل أن هناك :
Text1  يمثل فقط رقم بداية السلسلة.
Text2  يمثل فقط رقم نهاية السلسلة.
Text3  الاسم الذي تريد ربطه بالسلسلة الرقمة (يكتب الاسم دون أرقام فيه)
List1   القائمة التي ستطبع النتائج فيها..
Command1 الزر الذي سنضع الكود داخله .

الكود هو : 
كود :
Private Sub Command1_Click()
   List1.Clear
   For i = Val(Text1.Text) To Val(Text2.Text)
       List1.AddItem Text3.Text & i
   Next i
End Sub
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:


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


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