سؤال في المصفوفه - نسخة قابلة للطباعة

سؤال في المصفوفه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=35043)

سؤال في المصفوفه - اليوم السابع - 31-05-20

لو عندي لست بوكس بها عناصر كيف اضيف كل هذه العناصر في مصفوفه

(31-05-20, 02:08 AM)اليوم السابع كتب : لو عندي لست بوكس بها عناصر كيف اضيف كل هذه العناصر في مصفوفه

برجاء المساعده من الاخوه الافاضل

RE: سؤال في المصفوفه - ابراهيم ايبو - 31-05-20

السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

  Dim SevenDay(ListBox1.Items.Count - 1) As String

        For i As Integer = 0 To ListBox1.Items.Count - 1

            SevenDay(i) = ListBox1.Items(i).ToString

        Next

RE: سؤال في المصفوفه - اليوم السابع - 31-05-20

(31-05-20, 02:54 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

Dim SevenDay(ListBox1.Items.Count - 1) As String For i As Integer = 0 To ListBox1.Items.Count - 1 SevenDay(i) = ListBox1.Items(i).ToString Next

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

(31-05-20, 02:54 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

Dim SevenDay(ListBox1.Items.Count - 1) As String For i As Integer = 0 To ListBox1.Items.Count - 1 SevenDay(i) = ListBox1.Items(i).ToString Next

طيب معلش علشان انا اتلغبط شويه انا عندي هنا مصفوفه كيف اضع فيها قيم الليست بوكس علشان استعملها في فور

كود :

 Dim IDS() As String = {"100"}

(31-05-20, 02:54 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

Dim SevenDay(ListBox1.Items.Count - 1) As String For i As Integer = 0 To ListBox1.Items.Count - 1 SevenDay(i) = ListBox1.Items(i).ToString Next

انا الفكره كلها محتاج اعمل ريكوست بكل قيمه في الليست بوكس من خلال هذا الكود

كود :

 Dim IDS() As String = {"882", "10002", "1000237", "10002"}

        For x = 0 To IDS.Length - 1

            postReq = DirectCast(WebRequest.Create("http://eslameid.com/circle-api-master/check/id/data/" & (IDS(x)) + "), HttpWebRequest)

            postReq.Method = "GET"

            postReq.KeepAlive = True

            postReq.CookieContainer = tempCookies

            postReq.ContentType = "application/x-www-form-urlencoded"

            postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"

            postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)

            Dim postreqreader As New StreamReader(postresponse.GetResponseStream())

            Dim thepage1 As String = postreqreader.ReadToEnd

            thepage1 = thepage1.Replace("active", "private")

            Dim list As String = Regex.Unescape(thepage1)

            Application.DoEvents()

        Next

RE: سؤال في المصفوفه - ابراهيم ايبو - 31-05-20

السلام عليكم
اخي بالنسبة للمصفوفة كونها فارغة يجب عند تعريفها ان نعين طولها بكول عناصر الليست بوكس ثم اسناد القيم لها من الليست
او على الاقل يجب ان يكون طول المصفوفة اكبر من عدد عناصر الليست بوكس ولكن الاول افضل تفاديا للاخطاء
وان اردت عرض عناصر المصفوفة بعد اسناد القيم لها اكتب التالي

كود :

For Each y As String In SevenDay

            MsgBox(y)

        Next

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

RE: سؤال في المصفوفه - اليوم السابع - 31-05-20

(31-05-20, 03:05 AM)ابراهيم ايبو كتب : السلام عليكم
اخي بالنسبة للمصفوفة كونها فارغة يجب عند تعريفها ان نعين طولها بكول عناصر الليست بوكس ثم اسناد القيم لها من الليست
او على الاقل يجب ان يكون طول المصفوفة اكبر من عدد عناصر الليست بوكس ولكن الاول افضل تفاديا للاخطاء
وان اردت عرض عناصر المصفوفة بعد اسناد القيم لها اكتب التالي

كود :

For Each y As String In SevenDay MsgBox(y) Next
اخي بالنسبة للويب والانترنت ليس لي فيه نصيب حتى هذه اللحطة
اتمنى من الاخوة مساعدتك في الريكوست

تمام يا كبير كده فهمت ربنا ما يحرمنا منك ابدااا يا قائد

(31-05-20, 03:05 AM)ابراهيم ايبو كتب : السلام عليكم
اخي بالنسبة للمصفوفة كونها فارغة يجب عند تعريفها ان نعين طولها بكول عناصر الليست بوكس ثم اسناد القيم لها من الليست
او على الاقل يجب ان يكون طول المصفوفة اكبر من عدد عناصر الليست بوكس ولكن الاول افضل تفاديا للاخطاء
وان اردت عرض عناصر المصفوفة بعد اسناد القيم لها اكتب التالي

كود :

For Each y As String In SevenDay MsgBox(y) Next
اخي بالنسبة للويب والانترنت ليس لي فيه نصيب حتى هذه اللحطة
اتمنى من الاخوة مساعدتك في الريكوست

طيب يا كبير اخر سؤال معلش لو عاوز عند الانتهاء من الفور يظهر رساله يعني لما الفور يخلص خالص يكتب رساله تم الانتهاء كيف ذلك

RE: سؤال في المصفوفه - ابراهيم ايبو - 31-05-20

السلام عليكم اخي الكريم
سنغير طريقة العرض الى جملة فور عادية ثم نتحقق من ان الرقم (i) اصبح بطول المصفوفة
وهذا يعني لم يبق عناصر للعرض عندها ستعرض الرسالة بانتهاء عرض العناصر

كود :

For i As Integer = 0 To SevenDay.Length - 1

            MsgBox(SevenDay(i))

            If i = SevenDay.Length - 1 Then

                MsgBox("تم الانتهاء")

            End If

        Next

RE: سؤال في المصفوفه - اليوم السابع - 31-05-20

(31-05-20, 03:29 AM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
سنغير طريقة العرض الى جملة فور عادية ثم نتحقق من ان الرقم (i) اصبح بطول المصفوفة
وهذا يعني لم يبق عناصر للعرض عندها ستعرض الرسالة بانتهاء عرض العناصر

كود :

For i As Integer = 0 To SevenDay.Length - 1 MsgBox(SevenDay(i)) If i = SevenDay.Length - 1 Then MsgBox("تم الانتهاء") End If Next

بجد انا مش عارف اشكرك ازاي انت يا قائد مش بس بتساعد بالكود انت بتشرح كمان وده اكتر من المساعده

RE: سؤال في المصفوفه - ابراهيم ايبو - 31-05-20

الحمد لله والشكر لله

معا سنشكر الله العلي القدير الذي يعلمني ويسخرني لخدمة اخوتي في المنتدى

شكرا لك ايضا