الجمل التكرارية من يساعدنا على فهمها؟

الجمل التكرارية من يساعدنا على فهمها؟ - نسخة قابلة للطباعة

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

الجمل التكرارية من يساعدنا على فهمها؟ - silverlord - 27-10-14

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

كود :

Imports System.Net

Imports System.IO

Public Class Form1

    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

            Dim Keyword As String = RichTextBox1.Text

            Dim rep As String

            For Each Keywords In Keyword

                Dim req As HttpWebRequest = HttpWebRequest.Create("https://www.google.com.sa/search?q=" & Keywords & ")

                Dim res As HttpWebResponse = req.GetResponse

                Dim reader As Stream = res.GetResponseStream

                Dim readtoend As New StreamReader(reader)

                rep = readtoend.ReadToEnd()

            Next

        Catch ex As Exception

        End Try

    End Sub

End Class

طبعا الكود هذا وظيفته: يقوم بأرسال الجمل التي تكتبها داخل صندوق richtextbox
ويقوم بإرسالها الى محرك البحث قوقل فقط لكن عندي مشكلة واستفسار
بالنسبة للمشكلة عندما اضع مثلا 4 جمل تحت بعض في الصندوق
مثل
vb4arb tut
vb4arb C#
vb4arb Codes
يتم ارسال البيانات بشكل غريب جداً فيقوم بتقسيم الكلمة الى حرف حرف ويقوم بإرسالها مع العلم انها في صندوق richtextbox الجمل تحت بعض!
هكذا
https://www.google.com.sa/search?q=v
https://www.google.com.sa/search?q=b
https://www.google.com.sa/search?q=4
https://www.google.com.sa/search?q=a
https://www.google.com.sa/search?q=r
https://www.google.com.sa/search?q=b
كيف احل هذه المشكلة؟

وبالنسبة للاستفسار
اتمنى من يملك خبرة ان يضع لنا اكثر من طريقة لتنفيذ هذا الكود بالجمل التكرارية مثلا مرة ينفذ ارسال الجمل For, While,for each,Until حتى افهمها أكثر لأن هذا هو هدفي الحقيقي من كتابة الموضوع

على كل حال ان متبديء ولم اكمل حتى اسبوعين في برمجة الفيجوال بيسك والكود اللي فوق هو محاولة مني واعتذر على الإطاله

وشكراً لكم

RE: الجمل التكرارية من يساعدنا على فهمها؟ - سعود - 27-10-14

حل مشكلة التقسيم حرف حرف كالتالي:

كود :

for each keyword in keywords.split(vbnewline)

الاكواد

next

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

RE: الجمل التكرارية من يساعدنا على فهمها؟ - silverlord - 28-10-14

(27-10-14, 10:29 PM)سعود كتب : حل مشكلة التقسيم حرف حرف كالتالي:

كود :

for each keyword in keywords.split(vbnewline) الاكواد next

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

اخي سعود عندما وضعت

كود :

keywords.split(vbnewline)

اصبح البرنامج يرسل جميع الجمل الموجوده في richtextbox دفعة واحد

هكذا يكون شكل الرابط عند ارسال البيانات

كود :

https://www.google.com.sa/search?q=vb4arb tut vb4arb c vb4arb Codes

طبعا انا ابغاه ياخذ الجملة الموجودة في السطر الاول
ثم الجملة الموجودة في السطر الثاني وهكذا
مثال

كود :

https://www.google.com.sa/search?q=vb4arb tut

ثم

كود :

https://www.google.com.sa/search?q=vb4arb c

ثم

كود :

https://www.google.com.sa/search?q=vb4arb Codes

على كل حال اخي سعود شكراً لك

RE: الجمل التكرارية من يساعدنا على فهمها؟ - الوليد ☺ - 28-10-14

السلام عليكم ورحمة الله

جرب السطر

PHP كود :

For Each Keyword In RichTextBox1.Text.Split(vbLf) 

لأن RichTextBox1 نستخدم معها vbLf وليس vbNewLine مثل TextBox

RE: الجمل التكرارية من يساعدنا على فهمها؟ - silverlord - 28-10-14

الله يعطيك العافية اخوي سعود

بعد البحث في قوقل عن .split(vbnewline) ظهرت لي كثير من النتائج ووجدت الحل

كود :

For Each Keywords As String In Keyword.Split(vbLf)

شكرا لك

(28-10-14, 11:04 PM)الوليد ☺ كتب : السلام عليكم ورحمة الله

جرب السطر
For Each Keyword In RichTextBox1.Text.Split(vbLf)

لأن RichTextBox1 نستخدم معها vbLf وليس vbNewLine مثل TextBox

الظاهر كتبنا الرد مع بعض
شكرا لك اخي الوليد

RE: الجمل التكرارية من يساعدنا على فهمها؟ - الوليد ☺ - 28-10-14

السلام عليكم ورحمة الله

فيه طريقة أسهل

PHP كود :

Dim rep As String
For Each Keyword In RichTextBox1.Text.Split(vbLf)
    rep = New Net.WebClient().DownloadString("https://www.google.com.sa/search?q=" & Keyword)
Next 

RE: الجمل التكرارية من يساعدنا على فهمها؟ - silverlord - 30-10-14

(28-10-14, 11:29 PM)الوليد ☺ كتب : السلام عليكم ورحمة الله

فيه طريقة أسهل
Dim rep As String
For Each Keyword In RichTextBox1.Text.Split(vbLf)
rep = New Net.WebClient().DownloadString("https://www.google.com.sa/search?q=" & Keyword)
Next

الله يعطيك الف عافية اخوي الوليد طريقتك روعة جداً واختصرت الكود اللي فوق بسطر واحد

rep = New Net.WebClient().DownloadString("https://www.google.com.sa/search?q=" & Keyword)