+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اكثر من 100 حلقه تكراريه اود اختصار للكود (/showthread.php?tid=8917)
اكثر من 100 حلقه تكراريه اود اختصار للكود - مدري - 17-05-13
السلام عليكم
اود المساعده بعمل اكثر من حلقه تكراريه تنفذ في نفس الوقت
افكر اعمل اكثر من 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 حلقه تكراريه
و اريدها تتنفذ في نفس الوقت
اتمنى فهمتو قصدي
و شكرا
خبل صح
اكثر من 100 حلقه تكراريه اود اختصار للكود - kslawy - 17-05-13
كود :
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اكثر من 100 حلقه تكراريه اود اختصار للكود - sooriaty03 - 17-05-13
السلام عليكم ورحمة الله وبركاته
أخي الكريم
مائة حلقة تكرارية وعديناها ... يمكن في ببالك حاجة وحابب تعملها
أما مائة أداة ListBox :confused: هذي اللي ما انبلعت معي أبدا :mad:
ههههههههههه
ولأ كل هذا الجهد وفي النهاية ما تضيف إلا القيمة الأخيرة من الحلقات التكرارية :eek:
المهم تفضل هذا اختصار للكود بس إذا حصل شيء لجهازك ترى أنا أخلي كامل مسئوليتي
كود :
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بالتوفيق
اكثر من 100 حلقه تكراريه اود اختصار للكود - Abu Ehab - 17-05-13
السلام عليكم
أنت ممكن تنفذ العملية بدون ما تشعر بها
يعني هكذا مثلا :
PHP كود :
Imports System.Threading
Public Class Form1
Dim T As New Thread(AddressOf Aloop)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
T.Start()
End Sub
Public Sub Aloop()
'-- Your Code
'
'
'
'
'
End Sub
End Class
وممكن توقفها متى تريد :
PHP كود :
T.Abort()
اكثر من 100 حلقه تكراريه اود اختصار للكود - learning.net - 17-05-13
اخى يمكنك ان تجرب هذا:
فقط ضع panel و button على الفورم
وفى حدث ال Button_Click ضع هذا الكود
PHP كود :
Dim l As Integer = 20, t As Integer = 20
Panel1.Controls.Clear()
l = 20 : t = 20
For s = 1 To 100
Dim lst As New ListBox()
lst.Width = 50
lst.Height = 50
If l + lst.Width > Panel1.Width Then
l = 20
t += lst.Height + 5
End If
lst.Left = l
lst.Top = t
Panel1.Controls.Add(lst)
l += lst.Width + 10
lst.Items.Add(s * 100)
Next
جرب وشوف التنيجه
وبالتوفيق ان شاء الله
اكثر من 100 حلقه تكراريه اود اختصار للكود - مدري - 18-05-13
جزااكم الله خير
بس يا اخواني
ما فهمتو قصدي او انا ما عرفت اوضح قصدي
انا فقط اريد عمل اكثر من حلقه تكراريه تتنفذ في نفس الوقت لتسريع الاستعلام عن شيء ليس هدفي لست بوكس او غيره
المهم الفكره هي عمل اكثر من حلقه تكراريه تتنفذ في نفس الوقت
زي كذا
من 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هذي حاجه ببالي و اود تحقيقها ...
المهم يا اخوان هل فيه طريقه تسهل علي كتابة الاكواد او اي فكره ماشبهه
بارك الله فيكم
اكثر من 100 حلقه تكراريه اود اختصار للكود - learning.net - 18-05-13
بالنسبة لى على الاقل ...... المطلوب غير واضح