[silverlord]

السلام عليكم ورحمة الله وبركاته
اخواني اخواتي عندي استفسار بخصوص عمل 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 حتى افهمها أكثر لأن هذا هو هدفي الحقيقي من كتابة الموضوع

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

وشكراً لكم