+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : برنامج القرعة الاختيار العشوائي (/showthread.php?tid=11980)
الصفحات:
1
2
برنامج القرعة الاختيار العشوائي - SOFIANE09 - 17-06-2022
Tirage.rar (الحجم : 104.69 ك ب / التحميلات : 29)
السلام عليكم اخواني ممكن مساعدة في برنامج القرعة او الاختيار العشوائي وفق للبرنامج المرفق
RE: برنامج القرعة الاختيار العشوائي - SOFIANE09 - 19-06-2022
ممكن الرد حول موضوعي اخواني الكرام
RE: برنامج القرعة الاختيار العشوائي - Ndagor - 19-06-2022
لانتاج عدد عشوائي ضمن مجال محدد يمكنك استعمال Randomize Random
ولكن انت ماذا تريد بعد ذلك ,,,هل تريد اختيال عشوائي لاسم او مجموعة اسماء ام تريد خلط الجدول
سوال غير واضح
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
N:integer;
begin
Randomize();
N:= Random(ADOTable1.RecordCount)+1;
ADOTable1.RecNo:=N;
end;RE: برنامج القرعة الاختيار العشوائي - SOFIANE09 - 19-06-2022
السلام اخي الكريم مشكور على المداخلة
اود من خلال البرنامج الذي ارفقته ضمن سؤالي ان اجري عملية الخلط من اجل استخراج اسم معين بعدها و يتم حذفه مباشرة من الجدول الخاص بالعينة حتي لا يظهر في عملة الخلط الموالية
تجدر الاشارة ان انويه ان عملية بدء الخلط تكون بامر من المستخدم و توقيف عملية الخلط تكون من المستخدم
نموذج مرفق
RE: برنامج القرعة الاختيار العشوائي - Ndagor - 19-06-2022
على كل حال مازال السؤال مبهم ماذا تقصد بالاسم المعين و كيف يتم تعيينه او اختياره .. او هذا الاختيار عشوائي ..
سوف اجيبك على حسب مافهمت
اضف الى البرنامج Timer و اضف له الكود الذي في الاعلى و حدد Interval : 300 و Enabled : False و في زر بدا الاختبار العشوائي ضع Timer1.Enabled : =True و في زر توقيف ضع Timer1.Enabled : =False
سوف تر المؤشر على يمين BDGrid يتحرك عشوائيا حتي يتم توقيف العملية ..بالنسبة لعملية الحذف يمكنك استعمال ADOTable1.Delete (تاكد من الكتابة) لحذف السطر الذي توقف عنده المؤشر ...-هذا الحذف نهائي من قاعدة البيانات ولايمكن استرجاع الاسم-
RE: برنامج القرعة الاختيار العشوائي - SOFIANE09 - 20-06-2022
(19-06-2022, 10:55 PM)Ndagor كتب : على كل حال مازال السؤال مبهم ماذا تقصد بالاسم المعين و كيف يتم تعيينه او اختياره .. او هذا الاختيار عشوائي ..
سوف اجيبك على حسب مافهمت
اضف الى البرنامج Timer و اضف له الكود الذي في الاعلى و حدد Interval : 300 و Enabled : False و في زر بدا الاختبار العشوائي ضع Timer1.Enabled : =True و في زر توقيف ضع Timer1.Enabled : =False
سوف تر المؤشر على يمين BDGrid يتحرك عشوائيا حتي يتم توقيف العملية ..بالنسبة لعملية الحذف يمكنك استعمال ADOTable1.Delete (تاكد من الكتابة) لحذف السطر الذي توقف عنده المؤشر ...-هذا الحذف نهائي من قاعدة البيانات ولايمكن استرجاع الاسم-
السلام عليكم اخي الكريم و مشكور على الاهتمام اولا اود شكرك على المعلومات التي افدتني بها ،اما بالنسبة لسؤالي اود ان يمر المؤشر على جميع التسجيلات واحد تلوى الاخر ليس عشوائيا مثلا يمر على التسجيل الاول ثم الذي بعده الى اخره ، و بعد توقيف عملية الخلط من المستخدم البرنامج يعطيني الاسم ثم يضلله . كي لا يمرعليه المؤثر في عملية الخلط الموالية و تفاديا لعدم ظهوره مرة اخرى وتكراره وشكرا
RE: برنامج القرعة الاختيار العشوائي - Ndagor - 20-06-2022
هناك شي ينبغي تنبيه التنبيه اليه في ملفك و الربط الثابث لقاعدة البيانات الذي لايسمح لها بالعمل الا في حاسوبك
C:\Users\sofiane\Desktop\Tirage\Base de données3.mdb
...هذا خطايقع فيه المبتدؤون ..لان عنوان قاعدة ثابت .. عندما تنتهي من و ضع المكونات و ربط المكونات بقاعدة البيانات قم تعطيل ADOConnection و قم بتفعيلها عند انطلاق البرنامج انظر في الكود FormCreate في الملف بافتراض ان قاعدة البيانات لها مكانين اكثر شيوع الاول بجانب البرنامج exe و الثاني مع ملفات المشروع اثناء البرمجة....
على كل حال ترك العداد يدور او اطالة عملية الخلط لا يجعل البرنامج اكثر دقة فهذه العملية يمكن اختصارها في Random
انظر الملف المرفق...
RE: برنامج القرعة الاختيار العشوائي - Mr.DOS - 22-06-2022
السلام عليكم
إقتباس :لسلام عليكم اخي الكريم و مشكور على الاهتمام اولا اود شكرك على المعلومات التي افدتني بها ،اما بالنسبة لسؤالي اود ان يمر المؤشر على جميع التسجيلات واحد تلوى الاخر ليس عشوائيا مثلا يمر على التسجيل الاول ثم الذي بعده الى اخره ، و بعد توقيف عملية الخلط من المستخدم البرنامج يعطيني الاسم ثم يضلله . كي لا يمرعليه المؤثر في عملية الخلط الموالية و تفاديا لعدم ظهوره مرة اخرى وتكراره وشكرا
1 - عليك بتحويل الجدول الى مصفوفة وبدء العمل عليها
2 - عملية المرور لا تكون سجل بسجل (من المفروض عشوائيا) : كي لا تسمح بمستعمل البرنامج اختيار جزء ما من القائمة
3 - بعد مرور ثواني يمكن للمستخدم البرنامج ايقافه (ايقاف داله random) : ليختار المؤشر سجل معين
4 - حذف السجل من المصفوفة وليس من الجدول : لكي لا يدخل في نطاق الدالة random مرة اخرى
5 - وتستمر العملية
6 - مشاركة الاخ Ndagor اتمنى ان تستفذ منها
7 - شاهد المرفق
.
RE: برنامج القرعة الاختيار العشوائي - SOFIANE09 - 22-06-2022
(22-06-2022, 01:12 AM)Mr.DOS كتب : السلام عليكممشكور اخي الكريم على هذا المرور الطيب و المفيد رفقة الاخ Ndagor والذي كان فيه الكثير من المعلومات التي سوف استفيد منها و كذا باقي المبرمجين للمرة الثانية شكرا اخواني على هذا الفاعل المفيد و الطيب
إقتباس :لسلام عليكم اخي الكريم و مشكور على الاهتمام اولا اود شكرك على المعلومات التي افدتني بها ،اما بالنسبة لسؤالي اود ان يمر المؤشر على جميع التسجيلات واحد تلوى الاخر ليس عشوائيا مثلا يمر على التسجيل الاول ثم الذي بعده الى اخره ، و بعد توقيف عملية الخلط من المستخدم البرنامج يعطيني الاسم ثم يضلله . كي لا يمرعليه المؤثر في عملية الخلط الموالية و تفاديا لعدم ظهوره مرة اخرى وتكراره وشكرا
1 - عليك بتحويل الجدول الى مصفوفة وبدء العمل عليها
2 - عملية المرور لا تكون سجل بسجل (من المفروض عشوائيا) : كي لا تسمح بمستعمل البرنامج اختيار جزء ما من القائمة
3 - بعد مرور ثواني يمكن للمستخدم البرنامج ايقافه (ايقاف داله random) : ليختار المؤشر سجل معين
4 - حذف السجل من المصفوفة وليس من الجدول : لكي لا يدخل في نطاق الدالة random مرة اخرى
5 - وتستمر العملية
6 - مشاركة الاخ Ndagor اتمنى ان تستفذ منها
7 - شاهد المرفق
.
(22-06-2022, 01:12 AM)Mr.DOS كتب : السلام عليكمممكن موافاتي بالملف الكامل بالبرنامج الذي ارفقته من اجل اجراء تعديل عليه
إقتباس :لسلام عليكم اخي الكريم و مشكور على الاهتمام اولا اود شكرك على المعلومات التي افدتني بها ،اما بالنسبة لسؤالي اود ان يمر المؤشر على جميع التسجيلات واحد تلوى الاخر ليس عشوائيا مثلا يمر على التسجيل الاول ثم الذي بعده الى اخره ، و بعد توقيف عملية الخلط من المستخدم البرنامج يعطيني الاسم ثم يضلله . كي لا يمرعليه المؤثر في عملية الخلط الموالية و تفاديا لعدم ظهوره مرة اخرى وتكراره وشكرا
1 - عليك بتحويل الجدول الى مصفوفة وبدء العمل عليها
2 - عملية المرور لا تكون سجل بسجل (من المفروض عشوائيا) : كي لا تسمح بمستعمل البرنامج اختيار جزء ما من القائمة
3 - بعد مرور ثواني يمكن للمستخدم البرنامج ايقافه (ايقاف داله random) : ليختار المؤشر سجل معين
4 - حذف السجل من المصفوفة وليس من الجدول : لكي لا يدخل في نطاق الدالة random مرة اخرى
5 - وتستمر العملية
6 - مشاركة الاخ Ndagor اتمنى ان تستفذ منها
7 - شاهد المرفق
.
RE: برنامج القرعة الاختيار العشوائي - Mr.DOS - 22-06-2022
السلام عليكم
معذرة نسيت ان ارفق ملفات المشروع