تقييم الموضوع :
  • 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
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة:
#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
بالنسبة لى على الاقل ...... المطلوب غير واضح
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هو اختصار هذه الاكواد justforit 4 450 22-01-24, 03:10 PM
آخر رد: salamandal
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  [VB.NET] حذف اكثر من سطر محدد في جرد فيو h2551996 3 439 25-11-23, 12:30 PM
آخر رد: h2551996
  استفسار عام بخصوص فتح اكثر من اتصال على قاعدة بيانات واحدة assuhimi 0 324 15-09-23, 04:54 PM
آخر رد: assuhimi
  [سؤال] البحث في اكثر من قاعدة بيانات sher 2 444 17-08-23, 07:17 PM
آخر رد: aljzazy
  [SQL] جلب بيانات من اكثر من جدول ahmed_king2023 21 1,115 29-07-23, 12:05 PM
آخر رد: ahmed_king2023
  [سؤال] كيفية اضافة في اكثر من جدول ahmed_king2023 0 364 29-07-23, 12:03 PM
آخر رد: ahmed_king2023
  منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله معاذ_ابراهيم 7 3,358 29-03-23, 08:11 AM
آخر رد: عبدالله الدوسري
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou

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


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