17-06-2022, 07:54 PM
الصفحات : 1 2
19-06-2022, 05:24 PM
ممكن الرد حول موضوعي اخواني الكرام
19-06-2022, 05:37 PM
لانتاج عدد عشوائي ضمن مجال محدد يمكنك استعمال Randomize Random
ولكن انت ماذا تريد بعد ذلك ,,,هل تريد اختيال عشوائي لاسم او مجموعة اسماء ام تريد خلط الجدول
سوال غير واضح
ولكن انت ماذا تريد بعد ذلك ,,,هل تريد اختيال عشوائي لاسم او مجموعة اسماء ام تريد خلط الجدول
سوال غير واضح
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
N:integer;
begin
Randomize();
N:= Random(ADOTable1.RecordCount)+1;
ADOTable1.RecNo:=N;
end;19-06-2022, 07:18 PM
السلام اخي الكريم مشكور على المداخلة
اود من خلال البرنامج الذي ارفقته ضمن سؤالي ان اجري عملية الخلط من اجل استخراج اسم معين بعدها و يتم حذفه مباشرة من الجدول الخاص بالعينة حتي لا يظهر في عملة الخلط الموالية
تجدر الاشارة ان انويه ان عملية بدء الخلط تكون بامر من المستخدم و توقيف عملية الخلط تكون من المستخدم
نموذج مرفق
اود من خلال البرنامج الذي ارفقته ضمن سؤالي ان اجري عملية الخلط من اجل استخراج اسم معين بعدها و يتم حذفه مباشرة من الجدول الخاص بالعينة حتي لا يظهر في عملة الخلط الموالية
تجدر الاشارة ان انويه ان عملية بدء الخلط تكون بامر من المستخدم و توقيف عملية الخلط تكون من المستخدم
نموذج مرفق
19-06-2022, 10:55 PM
على كل حال مازال السؤال مبهم ماذا تقصد بالاسم المعين و كيف يتم تعيينه او اختياره .. او هذا الاختيار عشوائي ..
سوف اجيبك على حسب مافهمت
اضف الى البرنامج Timer و اضف له الكود الذي في الاعلى و حدد Interval : 300 و Enabled : False و في زر بدا الاختبار العشوائي ضع Timer1.Enabled : =True و في زر توقيف ضع Timer1.Enabled : =False
سوف تر المؤشر على يمين BDGrid يتحرك عشوائيا حتي يتم توقيف العملية ..بالنسبة لعملية الحذف يمكنك استعمال ADOTable1.Delete (تاكد من الكتابة) لحذف السطر الذي توقف عنده المؤشر ...-هذا الحذف نهائي من قاعدة البيانات ولايمكن استرجاع الاسم-
سوف اجيبك على حسب مافهمت
اضف الى البرنامج Timer و اضف له الكود الذي في الاعلى و حدد Interval : 300 و Enabled : False و في زر بدا الاختبار العشوائي ضع Timer1.Enabled : =True و في زر توقيف ضع Timer1.Enabled : =False
سوف تر المؤشر على يمين BDGrid يتحرك عشوائيا حتي يتم توقيف العملية ..بالنسبة لعملية الحذف يمكنك استعمال ADOTable1.Delete (تاكد من الكتابة) لحذف السطر الذي توقف عنده المؤشر ...-هذا الحذف نهائي من قاعدة البيانات ولايمكن استرجاع الاسم-
20-06-2022, 06:54 AM
(19-06-2022, 10:55 PM)Ndagor كتب : [ -> ]على كل حال مازال السؤال مبهم ماذا تقصد بالاسم المعين و كيف يتم تعيينه او اختياره .. او هذا الاختيار عشوائي ..
سوف اجيبك على حسب مافهمت
اضف الى البرنامج Timer و اضف له الكود الذي في الاعلى و حدد Interval : 300 و Enabled : False و في زر بدا الاختبار العشوائي ضع Timer1.Enabled : =True و في زر توقيف ضع Timer1.Enabled : =False
سوف تر المؤشر على يمين BDGrid يتحرك عشوائيا حتي يتم توقيف العملية ..بالنسبة لعملية الحذف يمكنك استعمال ADOTable1.Delete (تاكد من الكتابة) لحذف السطر الذي توقف عنده المؤشر ...-هذا الحذف نهائي من قاعدة البيانات ولايمكن استرجاع الاسم-
السلام عليكم اخي الكريم و مشكور على الاهتمام اولا اود شكرك على المعلومات التي افدتني بها ،اما بالنسبة لسؤالي اود ان يمر المؤشر على جميع التسجيلات واحد تلوى الاخر ليس عشوائيا مثلا يمر على التسجيل الاول ثم الذي بعده الى اخره ، و بعد توقيف عملية الخلط من المستخدم البرنامج يعطيني الاسم ثم يضلله . كي لا يمرعليه المؤثر في عملية الخلط الموالية و تفاديا لعدم ظهوره مرة اخرى وتكراره وشكرا
20-06-2022, 02:28 PM
هناك شي ينبغي تنبيه التنبيه اليه في ملفك و الربط الثابث لقاعدة البيانات الذي لايسمح لها بالعمل الا في حاسوبك
C:\Users\sofiane\Desktop\Tirage\Base de données3.mdb
...هذا خطايقع فيه المبتدؤون ..لان عنوان قاعدة ثابت .. عندما تنتهي من و ضع المكونات و ربط المكونات بقاعدة البيانات قم تعطيل ADOConnection و قم بتفعيلها عند انطلاق البرنامج انظر في الكود FormCreate في الملف بافتراض ان قاعدة البيانات لها مكانين اكثر شيوع الاول بجانب البرنامج exe و الثاني مع ملفات المشروع اثناء البرمجة....
على كل حال ترك العداد يدور او اطالة عملية الخلط لا يجعل البرنامج اكثر دقة فهذه العملية يمكن اختصارها في Random
انظر الملف المرفق...
C:\Users\sofiane\Desktop\Tirage\Base de données3.mdb
...هذا خطايقع فيه المبتدؤون ..لان عنوان قاعدة ثابت .. عندما تنتهي من و ضع المكونات و ربط المكونات بقاعدة البيانات قم تعطيل ADOConnection و قم بتفعيلها عند انطلاق البرنامج انظر في الكود FormCreate في الملف بافتراض ان قاعدة البيانات لها مكانين اكثر شيوع الاول بجانب البرنامج exe و الثاني مع ملفات المشروع اثناء البرمجة....
على كل حال ترك العداد يدور او اطالة عملية الخلط لا يجعل البرنامج اكثر دقة فهذه العملية يمكن اختصارها في Random
انظر الملف المرفق...
22-06-2022, 01:12 AM
السلام عليكم
1 - عليك بتحويل الجدول الى مصفوفة وبدء العمل عليها
2 - عملية المرور لا تكون سجل بسجل (من المفروض عشوائيا) : كي لا تسمح بمستعمل البرنامج اختيار جزء ما من القائمة
3 - بعد مرور ثواني يمكن للمستخدم البرنامج ايقافه (ايقاف داله random) : ليختار المؤشر سجل معين
4 - حذف السجل من المصفوفة وليس من الجدول : لكي لا يدخل في نطاق الدالة random مرة اخرى
5 - وتستمر العملية
6 - مشاركة الاخ Ndagor اتمنى ان تستفذ منها
7 - شاهد المرفق
.
إقتباس :لسلام عليكم اخي الكريم و مشكور على الاهتمام اولا اود شكرك على المعلومات التي افدتني بها ،اما بالنسبة لسؤالي اود ان يمر المؤشر على جميع التسجيلات واحد تلوى الاخر ليس عشوائيا مثلا يمر على التسجيل الاول ثم الذي بعده الى اخره ، و بعد توقيف عملية الخلط من المستخدم البرنامج يعطيني الاسم ثم يضلله . كي لا يمرعليه المؤثر في عملية الخلط الموالية و تفاديا لعدم ظهوره مرة اخرى وتكراره وشكرا
1 - عليك بتحويل الجدول الى مصفوفة وبدء العمل عليها
2 - عملية المرور لا تكون سجل بسجل (من المفروض عشوائيا) : كي لا تسمح بمستعمل البرنامج اختيار جزء ما من القائمة
3 - بعد مرور ثواني يمكن للمستخدم البرنامج ايقافه (ايقاف داله random) : ليختار المؤشر سجل معين
4 - حذف السجل من المصفوفة وليس من الجدول : لكي لا يدخل في نطاق الدالة random مرة اخرى
5 - وتستمر العملية
6 - مشاركة الاخ Ndagor اتمنى ان تستفذ منها
7 - شاهد المرفق
.
22-06-2022, 07:48 AM
(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 - شاهد المرفق
.
22-06-2022, 11:29 PM
السلام عليكم
معذرة نسيت ان ارفق ملفات المشروع
معذرة نسيت ان ارفق ملفات المشروع
الصفحات : 1 2