+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] Random (/showthread.php?tid=31714)
Random - AbdoDabak - 11-10-19
السلام عليكم
ممكن كود لفتح ملف عشوائي من مجلد يتم تحديد مساره
واذا تم اغلاق الملف يتم اختيار ملف ثاني عشوائيا
من دون تكرار الملف مرة ثانية
وهكذا الى ان تنتهي الملفات الموجودة في المجلد
RE: Random - elgokr - 12-10-19
وعليكم السلام ورحمة الله وبركاته
مرحباً اخى AbdoDabak
يمكن ذلك ولكن حتى اقوم بالمساعدة ووضع لك كود
لكيفية اتمام الامر اتمنى فضلاً وليس امراً توضيح سبب الكود
اولاً حتى اضع الكود المناسب طبقاً لاحتياجك له
ثانياً للتاكد بان الهدف من الكود امراً هادفاً
تحياتى لك
وتمنياتى لك التوفيق
RE: Random - AbdoDabak - 12-10-19
بدي اصمم برنامج تعليم لغة
مجلد فيه الكلمات على شكل ملف نصي
فمثال ليكن تعليم اللغة الانكليزية
المجلد رح يكون اسمو 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
تحياتي لك
RE: Random - 3boody - 13-10-19
السلام عليكم ورحمة الله وبركاته
قمت بعمل كود يوضحلك فكرة عن مشروعك لكن الكود يحتوي الفكرة الي شفتها افضل لان بحالتك لازم تخلي مئات الملفات وهالشي صعب لذلك عملتلك الكلمات كلها بملف واحد
يعني ماعليك سوى ان تقوم بأنشاء ملف 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 ClassRE: Random - AbdoDabak - 13-10-19
شكرا لك اخي 3boody لكن اعتقد ان في الكود خطا او اني لم استخدمه بالشكل الصحيح
لان البرنامج دائما يعطي msgbox اجابة خاطئة
RE: Random - 3boody - 13-10-19
اخي السبب لازم تكون الاجابة مطابقة بالحروف 100%
لكن اذا اردت حتى لو تكونه مختلفة مثل قطه وقطة الاختلاف بالهاء تحتاج اكواد اكثر
RE: Random - AbdoDabak - 13-10-19
اخي الكود لا يعمل ابدا
يعمل اذا كانت الحروف انكليزية فقط
اذا كانت عربية متل قطة
يظهر دائما رسالة اجابة خاطئة
RE: Random - 3boody - 13-10-19
(13-10-19, 02:04 AM)AbdoDabak كتب : شكرا لك اخي 3boody لكن اعتقد ان في الكود خطا او اني لم استخدمه بالشكل الصحيح
لان البرنامج دائما يعطي msgbox اجابة خاطئة
تفضل اخي ضفتلك الملف النصي التجريبي بس غير المسار بالمشروع الى مسار الملف النصي الي ضفته
RE: Random - AbdoDabak - 14-10-19
شكرا لك اخي اشتغل
RE: Random - elgokr - 15-10-19
(13-10-19, 02:04 AM)AbdoDabak كتب : شكرا لك اخي 3boody لكن اعتقد ان في الكود خطا او اني لم استخدمه بالشكل الصحيح
لان البرنامج دائما يعطي msgbox اجابة خاطئة
اضافة لما قدمه اخى الفاضل 3boody
كان كل المشكلة لديك ان الناتج يعطى خطاء كون الملف لم يحفظ باللغة العربية
وكان البرنامج يري الاحرف بالرموز ولحل المشكلة هو فتح الملف من خلال Notepad
واعادة حفظ الملف من جديد والتاكد من اعدادت الخيارات التالية
بجانب زر الحفظ توجد كلمة Encoding اجعل قيمتها ANSI
واذا لم تحل المشكلة اعد حفظ الملف من جديد وفى هذه المرة اجهل Encoding قيمتها UTF-8
وستجد ان المشكلة تم حلها بامر الله
تحياتى لك واخى الكريم لمساهمته فى الموضوع
وتمنياتى لكم التوفيق الدائم