انا ليس لدي الخبرة الكافية فمعلوماتي بسيطة عن الفيجوال بيسك ولذلك لجأت اليكم عسى أن تساعدوني
المطلوب برنامج كالتالي
1- مربع بحث عن كلمة باللغة الهولندية ومحرك البحث هو "www.mijnwoordenboek.nl" وهذا الموقع يعرض معاني محتملة باللغة الانجليزية فالمطلوب عرض تلك الصفحة كما هي بالاضافة لترجمة المعاني المتعددة اللتي بالانجليزية الى العربية .
2- بحث جوجل صور لكلمة البحث
3- البحث في ويكيبيديا بالهولندية عن كلمة البحث و إذا امكن تحويل الصفحة اوتوماتيكيا إلى العربية
هذه الثلاثة عناصر يجب ان تعرض في صفحة واحدة في البرنامج
هل هناك من يستطيع مساعدتي؟
اخي الكريم ابدا بمشروعك وقم برفعه للاطلاع عليه والتحمس على اكماله وتعديله ورفعه مرة اخرى ...هذا افضل .
(29-10-15, 07:28 AM)سعود كتب : [ -> ]اخي الكريم ابدا بمشروعك وقم برفعه للاطلاع عليه والتحمس على اكماله وتعديله ورفعه مرة اخرى ...هذا افضل .
اخي الكريم انا تعلمت بالسابق على visual basic 6 والادوات التي تلزمني لا توجد فيه فبأي اصدار من الفيجوال بيسك تنصحني ام هنالك برنام اخر اسهل من حيث الواجهة التفاعلية والاوامر البرمجية
جزاك الله عني كل خير
(29-10-15, 07:28 AM)سعود كتب : [ -> ]اخي الكريم ابدا بمشروعك وقم برفعه للاطلاع عليه والتحمس على اكماله وتعديله ورفعه مرة اخرى ...هذا افضل .
السلام عليكم ورحمة الله
أخي الكريم لقد قمت بانشاء الشكل المبدئي للبرنامج . والآن النقطة الاهم هي أمر البحث الذي يجب ان يبحث في الاربعة متصفحات بذات الوقت
اشكر لك اهتمامك بالمساعدة واسأل الله لك كل الخير والتوفيق
ستجد البرنامج في المرفقات
السلام عليكم
تأكد من المرفق عزيزي
شايف العالم هون كله VB
اعمل مشروع جديد وضع فيه واحد textBox واتنين comboBox وواحد button وواحد listBox وجرب هاد الكود
كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.AddRange(New String() {"NL", "EN", "DE", "FR", "ES"})
ComboBox2.Items.AddRange(New String() {"NL", "EN", "DE", "FR", "ES"})
ComboBox1.SelectedIndex = 0
ComboBox2.SelectedIndex = 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Using client As New Net.WebClient
Dim parms As New Specialized.NameValueCollection
parms.Add("src", ComboBox1.Text)
parms.Add("des", ComboBox2.Text)
parms.Add("woord", TextBox1.Text.Trim)
Dim responsebytes = client.UploadValues("http://www.mijnwoordenboek.nl/", "POST", parms)
Dim responsestring = System.Text.Encoding.UTF8.GetString(responsebytes)
ListBox1.Items.Clear()
Dim s1() As String = Split(responsestring, "<div class=aaa>")
If s1.Count > 1 Then
Dim url As String = "http://www.mijnwoordenboek.nl/vertaal/" & ComboBox1.Text & "/" & ComboBox2.Text & "/"
Dim s2() As String = Split(s1(2), url)
For i = 1 To s2.Count - 1
ListBox1.Items.Add(Split(s2(i), Chr(34))(0))
Next
End If
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class