منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : محتاج كود او مثال لبرنامج تكرار السطر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
ممكن مساعدة اشباب انا عايز اكرر جملة اكثر من مثلا 4 مليون مرا فا اقدر اعملها اذاى دى 


مثلا الجملة دى 
(انا محمد )
عيزها فى 4 مليون سطر تحت بعض وهاكذا لو امكن مثال او كود لى الفكرة بليز
PHP كود :
for as integer =0 to 1000000

'هنا تكتب كود ارسال القيمة المتكررة 

next 
(15-08-19, 11:06 PM)سعود كتب : [ -> ]
PHP كود :
for as integer =0 to 1000000

'هنا تكتب كود ارسال القيمة المتكررة 

next 

ممكن توضح اكتر لو سمحت
(16-08-19, 12:10 AM)Mohamed Magdy كتب : [ -> ]
(15-08-19, 11:06 PM)سعود كتب : [ -> ]
PHP كود :
for as integer =0 to 1000000

'هنا تكتب كود ارسال القيمة المتكررة 

next 

ممكن توضح اكتر لو سمحت
انا جاوبت باللي فهمتو من السؤال.
يعني انت عايز تحفظ في ملف نصي او تعرض رسالة  او ماذا.
(16-08-19, 12:13 AM)سعود كتب : [ -> ]
(16-08-19, 12:10 AM)Mohamed Magdy كتب : [ -> ]
(15-08-19, 11:06 PM)سعود كتب : [ -> ]
PHP كود :
for as integer =0 to 1000000

'هنا تكتب كود ارسال القيمة المتكررة 

next 

ممكن توضح اكتر لو سمحت
انا جاوبت باللي فهمتو من السؤال.
يعني انت عايز تحفظ في ملف نصي او تعرض رسالة  او ماذا.
بص يا صدقى انا هوريك مثال عى الى انا عيزوة بس دون اكواد دا التصميم فقط 
فى التصميم هيحط الجملة ويحط عايز كام مرا تكرر والناتج تطلع فية الجملة متكرة بى العدد الى هو عيزوة واما يضغت حفظ يحفظ الناتح الى طالع فى الليست بوكس فى مجالد من اختيارة
سهله جدا أخي 

تفضل هذا الفكره الذي بتريدها 
كود :
       ListBox1.Items.Clear()
       If TextBox2.Text Is Nothing Then
           MsgBox("أكتب عدد مرات التكرار")
       Else

           For i As Integer = 1 To CInt(TextBox2.Text)

               ListBox1.Items.Add(TextBox1.Text)
           Next
       End If
textbox1 = الى هتكتب فيه الجمله المراد كتابتها 
textbox2 = عدد مرات التكرار أخي 
يارب أكون أفدك لا تنسي  التقيم حبيبي عشان انا جديد هون
PHP كود :
       TextBox3.txt Nothing
        For i 
As Integer 1 To CInt(TextBox2.txt)
 
           TextBox3.txt += TextBox2.txt
            IIf
(Not i CInt(TextBox2.txt), vbNewLineNothing)
 
       Next 
(16-08-19, 01:04 AM)Arquan_Grave كتب : [ -> ]
سهله جدا أخي 

تفضل هذا الفكره الذي بتريدها 
كود :
       ListBox1.Items.Clear()
       If TextBox2.Text Is Nothing Then
           MsgBox("أكتب عدد مرات التكرار")
       Else

           For i As Integer = 1 To CInt(TextBox2.Text)

               ListBox1.Items.Add(TextBox1.Text)
           Next
       End If
textbox1 = الى هتكتب فيه الجمله المراد كتابتها 
textbox2 = عدد مرات التكرار أخي 
يارب أكون أفدك لا تنسي  التقيم حبيبي عشان انا جديد هون
تسلم فعلا طلع صح واشتغل معاية