[3boody]

السلام عليكم ورحمة الله وبركاته

قمت بعمل كود يوضحلك فكرة عن مشروعك لكن الكود يحتوي الفكرة الي شفتها افضل لان بحالتك لازم تخلي مئات الملفات وهالشي صعب لذلك عملتلك الكلمات كلها بملف واحد
يعني ماعليك سوى ان تقوم بأنشاء ملف txt في مسار معين وتكتب في داخل الملف النصي(ركز على هاي لان حسب الكود)

cat=قطة
car=سيارة

الكلمة الاولى قبل المساواه هي التي تظهر بالسؤال والتي بعد المساواة هوا جوابها وتفصل بين كل سؤال وجواب (بسطر جديد)
الكلمة راح تكون عشوائية وبدون تكرار ويمكنك وضع الاف الكلمات والاجوبة وتقدر تعدل حسب ماتحب بالكود

ضع 2 button
1 text box
1 listbox
الزر الاول لاظهار السؤال والثاني للتحقق من الاجابة
واكتب الكود التالي

كود :

Public Class Form1
   Dim txt As String = IO.File.ReadAllText("المسار للملف النصي")
   Dim n As Integer = 0
   Dim rand As New Random
   Dim lst As New ListBox
   Dim r As Integer
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim num As Integer = txt.Split(vbNewLine).Count
       Do Until lst.Items.Count = num
           r = rand.Next(0, num)
           If Not lst.Items.Contains(r) Then
               lst.Items.Add(r)
           End If
       Loop
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If n > txt.Split(vbNewLine).Count - 1 Then Return
       Dim st As String = txt.Split(vbNewLine)(lst.Items(n))
       ListBox1.Items.Add(st.Split("=")(0))
       n += 1
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim st As String = txt.Split(vbNewLine)(lst.Items(n - 1))
       If TextBox1.Text = st.Split("=")(1) Then
           MsgBox("الاجابة صحيحة")
       Else
           MsgBox("الاجابة خاطئة")
       End If
   End Sub
End Class