27-10-14, 10:02 PM
(آخر تعديل لهذه المشاركة : 27-10-14, 10:15 PM {2} بواسطة silverlord.)
السلام عليكم ورحمة الله وبركاته
اخواني اخواتي عندي استفسار بخصوص عمل loop سواء كان عن طريق For او For Each او بقية الدوال التكرارية
انا قاعد اتعلم عليها واحاول اتقنها وافهمها اكثر واكثر واتعمق فيها والهدف من هذا الموضوع تعليمي بالدرجة الاولى
عموما انا عملت تطبيق بسيط والهدف من التطبيق هو تجربة الجمل التكرارية مثل هذا
طبعا الكود هذا وظيفته: يقوم بأرسال الجمل التي تكتبها داخل صندوق 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 حتى افهمها أكثر لأن هذا هو هدفي الحقيقي من كتابة الموضوع
على كل حال ان متبديء ولم اكمل حتى اسبوعين في برمجة الفيجوال بيسك والكود اللي فوق هو محاولة مني واعتذر على الإطاله
وشكراً لكم
اخواني اخواتي عندي استفسار بخصوص عمل 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
ويقوم بإرسالها الى محرك البحث قوقل فقط لكن عندي مشكلة واستفسار
بالنسبة للمشكلة عندما اضع مثلا 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 حتى افهمها أكثر لأن هذا هو هدفي الحقيقي من كتابة الموضوع
على كل حال ان متبديء ولم اكمل حتى اسبوعين في برمجة الفيجوال بيسك والكود اللي فوق هو محاولة مني واعتذر على الإطاله
وشكراً لكم