[AbdoDabak]

السلام عليكم

ممكن كود لفتح ملف عشوائي من مجلد يتم تحديد مساره

واذا تم اغلاق الملف يتم اختيار ملف ثاني عشوائيا

من دون تكرار الملف مرة ثانية

وهكذا الى ان تنتهي الملفات الموجودة في المجلد

[elgokr]

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

مرحباً اخى AbdoDabak

يمكن ذلك ولكن حتى اقوم بالمساعدة ووضع لك كود

لكيفية اتمام الامر اتمنى فضلاً وليس امراً توضيح سبب الكود

اولاً حتى اضع الكود المناسب طبقاً لاحتياجك له
ثانياً للتاكد بان الهدف من الكود امراً هادفاً

تحياتى لك

وتمنياتى لك التوفيق

[AbdoDabak]

بدي اصمم برنامج تعليم لغة

مجلد فيه الكلمات على شكل ملف نصي

فمثال ليكن تعليم اللغة الانكليزية

المجلد رح يكون اسمو English

"D:\Learning\English"

ليكن في المجلد 5 كلمات

Car.txt

Cat.txt

Book.txt

English.txt

Road.txt

في البرنامج موجود 3 من TextBox

الاول لاسم الملف من المجلد عشوائيا

والمستخدم لازم يكتب الترجمة في TextBox2

Textbox3 رح يقرا الملف النصي اللي

في الملف النصي رح تكون ترجمة الكلمة

يعني اذا اختار البرنامج الملف النصي Cat

TextBox1 رح يكون فيه Cat

ورح يقرا الملف النصيCat.txt in textbox3

والمستخدم رح يكتب الترجمة في TextBox2

فاذا تطابقت TextBox2 & TextBox3

يغلق الملف ويقوم باختيار ملف اخر عشوائيا

حتى تنتهي الكلمات الخمس

بدون تكرار

متل نمط سؤال وجواب ترجمة

مشكور اخي ال elgokr

تحياتي لك

[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

[AbdoDabak]

شكرا لك اخي 3boody لكن اعتقد ان في الكود خطا او اني لم استخدمه بالشكل الصحيح
لان البرنامج دائما يعطي msgbox اجابة خاطئة

[3boody]

اخي السبب لازم تكون الاجابة مطابقة بالحروف 100%
لكن اذا اردت حتى لو تكونه مختلفة مثل قطه وقطة الاختلاف بالهاء تحتاج اكواد اكثر

[AbdoDabak]

اخي الكود لا يعمل ابدا
يعمل اذا كانت الحروف انكليزية فقط
اذا كانت عربية متل قطة
يظهر دائما رسالة اجابة خاطئة

[3boody]

(13-10-19, 02:04 AM)AbdoDabak كتب : شكرا لك اخي 3boody لكن اعتقد ان في الكود خطا او اني لم استخدمه بالشكل الصحيح
لان البرنامج دائما يعطي msgbox اجابة خاطئة

تفضل اخي ضفتلك الملف النصي التجريبي بس غير المسار بالمشروع الى مسار الملف النصي الي ضفته

[AbdoDabak]

شكرا لك اخي اشتغل

[elgokr]

(13-10-19, 02:04 AM)AbdoDabak كتب : شكرا لك اخي 3boody لكن اعتقد ان في الكود خطا او اني لم استخدمه بالشكل الصحيح
لان البرنامج دائما يعطي msgbox اجابة خاطئة

اضافة لما قدمه اخى الفاضل 3boody

كان كل المشكلة لديك ان الناتج يعطى خطاء كون الملف لم يحفظ باللغة العربية

وكان البرنامج يري الاحرف بالرموز ولحل المشكلة هو فتح الملف من خلال Notepad

واعادة حفظ الملف من جديد والتاكد من اعدادت الخيارات التالية

بجانب زر الحفظ توجد كلمة Encoding اجعل قيمتها ANSI

واذا لم تحل المشكلة اعد حفظ الملف من جديد وفى هذه المرة اجهل Encoding  قيمتها UTF-8

وستجد ان المشكلة تم حلها بامر الله

تحياتى لك واخى الكريم لمساهمته فى الموضوع

وتمنياتى لكم التوفيق الدائم