تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اكثر من 100 حلقه تكراريه اود اختصار للكود
#1
السلام عليكم
اود المساعده بعمل اكثر من حلقه تكراريه تنفذ في نفس الوقت
افكر اعمل اكثر من 100 حلقة تكراريه و اريدها تتنفذ في نفس الوقت

زي كذا
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For X1 As Integer = 0 To 100
            If X1 = 100 Then
                L1.Items.Add(X1)
            End If
        Next
        For X2 As Integer = 100 To 200
            If X2 = 200 Then
                L2.Items.Add(X2)
            End If
        Next
        For X3 As Integer = 200 To 300
            If X3 = 300 Then
                L3.Items.Add(X3)
            End If
        Next

    End Sub

من 0 الى 100
و من 100 الى 200
و من 200 الى 300
و هكذا
هل يوجد طريقه ل اختصار الكود لاني اود اعمل اكثر من 100 حلقه تكراريه
و اريدها تتنفذ في نفس الوقت

اتمنى فهمتو قصدي

و شكرا

خبل صح Big Grin
الرد }}}}
تم الشكر بواسطة:
#2
كود :
For X As Integer = 0 To 300
            If X = 100 Then L1.Items.Add(X)
            If X = 200 Then L2.Items.Add(X)
            If X = 300 Then L3.Items.Add(X)
            Application.DoEvents()
        Next
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

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

أخي الكريم

مائة حلقة تكرارية وعديناها ... يمكن في ببالك حاجة وحابب تعملها Rolleyes
أما مائة أداة ListBox :confused: هذي اللي ما انبلعت معي أبدا :mad:
ههههههههههه
ولأ كل هذا الجهد وفي النهاية ما تضيف إلا القيمة الأخيرة من الحلقات التكرارية :eek:Sad

المهم تفضل هذا اختصار للكود بس إذا حصل شيء لجهازك ترى أنا أخلي كامل مسئوليتي Smile
كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        For X1 As Integer = 0 To 100
            If X1 = 100 Then
                L1.Items.Add(X1)
            End If
            If X1 + 100 = 200 Then
                L2.Items.Add(X1 + 100)
            End If
            If X1 + 200 = 300 Then
                L3.Items.Add(X1 + 200)
            End If
            If X1 + 300 = 400 Then
                L4.Items.Add(X1 + 300)
            End If
            If X1 + 400 = 500 Then
                L5.Items.Add(X1 + 400)
            End If
                .
                .
                .
                .
                .
                .
            If X1 + 9900 = 10000 Then
                L100.Items.Add(X1 + 9900)
            End If
        Next
        'هنا لسان حال الجهاز يقول أوووووف أخيرا خلصت
End Sub


بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

أنت ممكن تنفذ العملية بدون ما تشعر بها
يعني هكذا مثلا :
PHP كود :
Imports System.Threading
Public Class Form1
Dim T 
As New Thread(AddressOf Aloop)
     Private 
Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        
        T
.Start()

    
End Sub
    
Public Sub Aloop()
        
'-- Your Code
        '
        '
        '
        '
        '
    
End Sub
End 
Class 

وممكن توقفها متى تريد :
PHP كود :
T.Abort() 


Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#5
اخى يمكنك ان تجرب هذا:

فقط ضع panel و button على الفورم
وفى حدث ال Button_Click ضع هذا الكود

PHP كود :
Dim l As Integer 20As Integer 20
        Panel1
.Controls.Clear()
        
20 20
        
For 1 To 100
            Dim lst 
As New ListBox()
            
lst.Width 50
            lst
.Height 50
            
If lst.Width Panel1.Width Then
                l 
20
                t 
+= lst.Height 5
            End 
If
            
lst.Left l
            lst
.Top t
            Panel1
.Controls.Add(lst)
            
+= lst.Width 10
            lst
.Items.Add(100)
        
Next 

جرب وشوف التنيجه

وبالتوفيق ان شاء الله
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}}
تم الشكر بواسطة:
#6
جزااكم الله خير
بس يا اخواني
ما فهمتو قصدي او انا ما عرفت اوضح قصدي

انا فقط اريد عمل اكثر من حلقه تكراريه تتنفذ في نفس الوقت لتسريع الاستعلام عن شيء ليس هدفي لست بوكس او غيره
المهم الفكره هي عمل اكثر من حلقه تكراريه تتنفذ في نفس الوقت
زي كذا
من 10000000 الى 11000000
و من 11000000 الى 12000000
بنفذ هذي الصيغه الى ان اصل 2000000000
اتمنى وصلت الفكره
مثال توضيحي:
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For X1 As Integer = 10000000 To 11000000
            If xxx = "***" Then MsgBox(X1)
        Next
        For X1 As Integer = 11000000 To 12000000
            If xxx = "***" Then MsgBox(X1)
        Next
        For X1 As Integer = 12000000 To 13000000
            If xxx = "***" Then MsgBox(X1)
        Next
        ' 2000000000 الى

    End Sub
لا احد يدقق على If xxx = "***" Then
هذي حاجه ببالي و اود تحقيقها ...
المهم يا اخوان هل فيه طريقه تسهل علي كتابة الاكواد او اي فكره ماشبهه
بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#7
بالنسبة لى على الاقل ...... المطلوب غير واضح
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر معتز الجازوي 2 73 28-11-16, 05:36 PM
آخر رد: معتز الجازوي
  [كود] كيف تفتح نفس الفورم اكثر من مرة عبدالرحمن المكاوي 13 331 03-10-16, 02:04 AM
آخر رد: tryold
  اضافة اكثر من ليست بوكس الي قاعدة البيانات makky 1 110 26-09-16, 09:57 PM
آخر رد: سعود
  كرستل ريبورة من اكثر من جدول makky 5 163 18-08-16, 11:36 PM
آخر رد: makky
  مشكلة في اسم اختصار البرنامج في سطح المكتب طالب 22 1 125 01-08-16, 09:56 PM
آخر رد: طالب 22
  كيف يمكنك فتح اكثر من فورم داخل فورم الرئيسي mostafa zaki 10 3,459 06-07-16, 01:19 PM
آخر رد: ali haidar
  [سؤال] ما هو نوع البيانات الذي يستقبل قيمة اكثر من 15 رقم في SQL SERVER أبو فلان 1 155 24-05-16, 11:49 AM
آخر رد: samerselo
  هل يوجد كود عكسي للكود التالي Ahmed Gandos 2 144 31-03-16, 04:14 PM
آخر رد: mawad
  [سؤال] تعدد المسارات وعمل اكثر من وظيفة بنفس الوقت عبد الله 2 182 09-03-16, 05:12 AM
آخر رد: عبد الله
  تشغيل اكثر من ملف فديو بشكل متصل ssayed111 0 154 24-11-15, 06:37 PM
آخر رد: ssayed111

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


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