[aaljaseem]

انا ليس لدي الخبرة الكافية فمعلوماتي بسيطة عن الفيجوال بيسك ولذلك لجأت اليكم عسى أن تساعدوني 
المطلوب برنامج كالتالي
1- مربع بحث عن كلمة باللغة الهولندية ومحرك البحث هو "www.mijnwoordenboek.nl" وهذا الموقع يعرض معاني محتملة باللغة الانجليزية فالمطلوب عرض تلك الصفحة كما        هي بالاضافة لترجمة المعاني المتعددة     اللتي بالانجليزية الى العربية .
2- بحث جوجل صور لكلمة البحث
3- البحث في ويكيبيديا بالهولندية عن كلمة البحث و إذا امكن تحويل الصفحة اوتوماتيكيا إلى العربية

هذه الثلاثة عناصر يجب ان تعرض في صفحة واحدة في البرنامج 

هل هناك من يستطيع مساعدتي؟

[سعود]

اخي الكريم ابدا بمشروعك وقم برفعه للاطلاع عليه والتحمس على اكماله وتعديله ورفعه مرة اخرى ...هذا افضل .

[aaljaseem]

(29-10-15, 07:28 AM)سعود كتب : اخي الكريم ابدا بمشروعك وقم برفعه للاطلاع عليه والتحمس على اكماله وتعديله ورفعه مرة اخرى ...هذا افضل .

اخي الكريم انا تعلمت بالسابق على visual basic 6  والادوات التي تلزمني لا توجد فيه فبأي اصدار من الفيجوال بيسك تنصحني ام هنالك برنام اخر اسهل من حيث الواجهة التفاعلية والاوامر البرمجية

جزاك الله عني كل خير

[aaljaseem]

(29-10-15, 07:28 AM)سعود كتب : اخي الكريم ابدا بمشروعك وقم برفعه للاطلاع عليه والتحمس على اكماله وتعديله ورفعه مرة اخرى ...هذا افضل .

السلام عليكم ورحمة الله
أخي الكريم لقد قمت بانشاء الشكل المبدئي للبرنامج . والآن النقطة الاهم هي أمر البحث الذي يجب ان يبحث في الاربعة متصفحات بذات الوقت
اشكر لك اهتمامك بالمساعدة واسأل الله لك كل الخير والتوفيق
ستجد البرنامج في المرفقات

السلام عليكم

[hamada558]

تأكد من المرفق عزيزي

---

شايف العالم هون كله 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