تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] Random
#1
السلام عليكم
ممكن كود لفتح ملف عشوائي من مجلد يتم تحديد مساره
واذا تم اغلاق الملف يتم اختيار ملف ثاني عشوائيا
من دون تكرار الملف مرة ثانية
وهكذا الى ان تنتهي الملفات الموجودة في المجلد
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
مرحباً اخى AbdoDabak

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: AbdoDabak
#3
بدي اصمم برنامج تعليم لغة
مجلد فيه الكلمات على شكل ملف نصي
فمثال ليكن تعليم اللغة الانكليزية
المجلد رح يكون اسمو 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
تحياتي لك
الرد
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

قمت بعمل كود يوضحلك فكرة عن مشروعك لكن الكود يحتوي الفكرة الي شفتها افضل لان بحالتك لازم تخلي مئات الملفات وهالشي صعب لذلك عملتلك الكلمات كلها بملف واحد
يعني ماعليك سوى ان تقوم بأنشاء ملف 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 , asemshahen5
#5
شكرا لك اخي 3boody لكن اعتقد ان في الكود خطا او اني لم استخدمه بالشكل الصحيح
لان البرنامج دائما يعطي msgbox اجابة خاطئة
الرد
تم الشكر بواسطة:
#6
اخي السبب لازم تكون الاجابة مطابقة بالحروف 100%
لكن اذا اردت حتى لو تكونه مختلفة مثل قطه وقطة الاختلاف بالهاء تحتاج اكواد اكثر
الرد
تم الشكر بواسطة:
#7
اخي الكود لا يعمل ابدا
يعمل اذا كانت الحروف انكليزية فقط
اذا كانت عربية متل قطة
يظهر دائما رسالة اجابة خاطئة
الرد
تم الشكر بواسطة:
#8
(13-10-19, 02:04 AM)AbdoDabak كتب : شكرا لك اخي 3boody لكن اعتقد ان في الكود خطا او اني لم استخدمه بالشكل الصحيح
لان البرنامج دائما يعطي msgbox اجابة خاطئة

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


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

اضافة لما قدمه اخى الفاضل 3boody
كان كل المشكلة لديك ان الناتج يعطى خطاء كون الملف لم يحفظ باللغة العربية
وكان البرنامج يري الاحرف بالرموز ولحل المشكلة هو فتح الملف من خلال Notepad
واعادة حفظ الملف من جديد والتاكد من اعدادت الخيارات التالية

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

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

تحياتى لك واخى الكريم لمساهمته فى الموضوع
وتمنياتى لكم التوفيق الدائم
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: AbdoDabak


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] Random string Mohamed20 2 288 10-04-19, 03:28 PM
آخر رد: Mohamed20
  [مثال] كيفيه عمل Random Text للفورم YousefOkasha 5 572 21-06-18, 02:32 PM
آخر رد: YousefOkasha
  Random من listbox Mohamed20 9 1,055 01-02-17, 01:18 AM
آخر رد: Mohamed20
  طلب تعديل على كود توليد Random مبرمج أوتار 4 3,143 19-04-13, 02:33 PM
آخر رد: مبرمج أوتار

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم