تنفيذ كود على مراحل - نسخة قابلة للطباعة

تنفيذ كود على مراحل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تنفيذ كود على مراحل (/showthread.php?tid=30605)

تنفيذ كود على مراحل - ابو روضة - 30-07-19

السلام عليكم اخوتى

معايا هذه الكود وضعته داخل تايمر بحيث ان ما تم اختياره من الليست بوكس

يتم كتابته داخل الليبول اسم تلو الأخر ليس مرة واحدة يعنى لو اخترت من الليست بوكس

س + ش + ط + ع يتم كتابتهم داخل الليبول بحسب العداد فيبدأ بأول اختيار س مثلا

ثم ينتظر المدة المحددة ثم يكتب ش وهكذا الى ان ينتهى منهم كلهم..

لكن هنا يكتبهم كلهم مرة واحدة

كود :

Dim all As String = ""

        For x = 0 To ListBox1.SelectedItems.Count - 1

            all &= ListBox1.SelectedItems(x) & "  "

        Next

        Label1.Text = (all)

RE: تنفيذ كود على مراحل - asemshahen5 - 30-07-19

استخدم الكود التالي :

PHP كود :

Dim all As String = ""
        For x = 0 To ListBox1.SelectedItems.Count - 1
            'كل 1000 نساوي ثانية'
            Threading.Thread.Sleep(1000)
            Label1.Text &= ListBox1.SelectedItems(x) & "  "
        Next 

RE: تنفيذ كود على مراحل - ابو روضة - 30-07-19

(30-07-19, 03:57 AM)asemshahen5 كتب : استخدم الكود التالي :

PHP كود :

Dim all As String = "" For x = 0 To ListBox1.SelectedItems.Count - 1 'كل 1000 نساوي ثانية' Threading.Thread.Sleep(1000) Label1.Text &= ListBox1.SelectedItems(x) & " " Next

جزاك الله خيرا أخى لكنه يكتبهم كلهم مرة واحدة ايضا لا شيئ تغير
وانا اريده لا يكتبهم دفعة واحدة بل اسم تلو الاخر بحسب وقت التايمر

RE: تنفيذ كود على مراحل - asemshahen5 - 30-07-19

الغ التايمر عن الفور وضعه في سب خاص به و تحكم بعدد الثواني من الثريد كما شرحت لك كل 1000 تعطي ثانية زودها لترا الفرق .

RE: تنفيذ كود على مراحل - ابو روضة - 30-07-19

(30-07-19, 04:20 AM)asemshahen5 كتب : الغ التايمر عن الفور وضعه في سب خاص به و تحكم بعدد الثواني من الثريد كما شرحت لك كل 1000 تعطي ثانية زودها لترا الفرق .

بارك الله فيك أخى الكريم.
عملته هكذا وتمام بفضل الله

كود :

Dim all As String = ""

        For x = 0 To ListBox1.SelectedItems.Count - 1

            Await Task.Delay(3000)

            all &= ListBox1.SelectedItems(x) & "  "

            Label1.Text = (all)

        Next

        MsgBox("don")