[asemshahen5]

افتح الفورم ببرنامج Note++ او Note Pad و انسخ الكود الموجود و ضعه في مثال جديد و جربه هذا اسهل اسرع من ان تنصب فيجوال استديو .

---

الجدول الاول اسمه : d
الجدول الثاني اسمه : d2

صندوق نص اسمه TextBox1
زر اسمه : Button1
ليبل اسمه : Lbl
--------------------------------------
أعمدة الجدول الأول :
1- الاسم : tname - العنوان : Name
2- الاسم : tprise - العنوان : Price
---------------------------------------
أعمدة الجدول الثاني :
1- الاسم : DataGridViewTextBoxColumn1 - العنوان : Name
2- الاسم : DataGridViewTextBoxColumn2 - العنوان : Price
---------------------------------------
الكود الموجود :

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        d.Rows.Add("book", 2)
        d.Rows.Add("plane", 30)
        d.Rows.Add("pc", 60)
        d.Rows.Add("bike", 44)
        d.Rows.Add("car", 18)
        Randomize()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim selv As Integer = Val(TextBox1.Text)
        For r As Integer = 0 To 100
            lbl.Text = r
            '  On Error Resume Next'
            Dim i1 As Integer = Int(Rnd() * d.Rows.Count)
            Dim i2 As Integer = Int(Rnd() * d.Rows.Count)
            If i1 < 0 Then i1 = 0
            If i2 < 0 Then i2 = 0
            ''  MsgBox(i1 & vbNewLine & i2)
            Dim rowv1 As Integer = Val(d.Rows(i1).Cells(1).Value)
            Dim rowv2 As Integer = Val(d.Rows(i2).Cells(1).Value)

            If (rowv1 + rowv2) = selv Then
                d2.Rows.Add(d.Rows(i1).Cells(0).Value, d.Rows(i1).Cells(1).Value)
                d2.Rows.Add(d.Rows(i2).Cells(0).Value, d.Rows(i2).Cells(1).Value)

                Exit For
                Exit Sub
            End If
        Next
    End Sub