السلام عليكم ورحمة الله وبركاته
اريد ممن يعرف كود لخلط الاسماء عشوئيا وله جزيل الشكر
اريد كود لخلط الاسماء عشوئيا
مغلق
بسم الله الرحمن الرحيم ...
ليست هناك أي مشكلة ... قم بوضع رمز لكل اسم بالشكل وهذا يعتمد على طريقة ادخال الأسماء ... ثم قم باستخدام كود اختيار رقم عشوائي واظهر الاسم الذي له نفس الرقم ...
Option Explicit Dim RanNo() As Long Dim i, j, tmp Private Sub RandomizeNumbers(ByVal iFrom As Integer, ByVal iTo As Integer) ReDim RanNo(iFrom To iTo) For i = iFrom To iTo RanNo(i) = i Next i Randomize (Timer) For i = iFrom To iTo j = CInt((iTo - iFrom) * Rnd + iFrom) tmp = RanNo(i) RanNo(i) = RanNo(j) RanNo(j) = tmp Next i End Sub Private Sub Command1_Click() 'هنا نختار مجال الأرقام العشوائية RandomizeNumbers 0, 100 'في هذا المتغير سوف يخزن رقم الإسم . AA = RanNo(i) 'هنا ضع أمراً باظهار الإسم صاحب الرقم الموجود في AA . End Sub
اشكرك اخي فتى الفيجوال على الرد
انا مبتدىء في الفيجوال
انا اعمل برنامج للمسابقات واريد منك مساعدتي اذا امكن
والبرنامج عباره عن:
تدخل جميع اسماء المشتركين
وتضغط على امر وتشاهد الاسماء تختلط امامك
وتظغط على امر فيقف الخلط على اسما ما ويظهر امامك
وانا اكون شاكرلك مجهودك معي
ارجو مساعدتي
سأحاول أن اضيف لك مثال قريباً إن شاء الله
هذا هو المثال
بسم الله الرحمن الرحيم .
أخي الكريم ستجد جميع التعديلات التي اضفتها في البرنامج - حسبما فهمت - بالشكل التالي
'========================================================= شرح العملية Form4.Show 1 '=========================================================
الأشياء التي قمت بتغييرها :
اضفت شاشة جديدة لحذف المشاركين
اضفت بعض الأوامر في الفورم الأول
في الفورم الثالث موضوع الطباعة موضوع شائك وسوف اضيف لك بعض الروابط التي ناقشت هذا الموضوع ويمكنك استخدام الطريقة التي تريدها
بالنسبة للفورم الثاني حاولت أن احل لك المشلكة ولكني لم استطع أن أفهم ماذا تريد بالضبط من كودك ... لذا اشرح لي ماذا تريد وسوف اضيف لك الكود على البرنامج مباشرة
والله الموفق ...
اولا:
انا ما ادري كيف اشكرك على تجاوبك معي
ثانيا في الفورم الثاني عندما ينتهي الخلط يظهر لي اسم من الاسماء اريد ان اطبع الاسم الذي ظهر فقط .
في الفورم الثالث اريد تنسيق لجدول الاسماء وأمر لطباعة جميع الاسماء
ما ادري هل تستطيع وضع رقم للكل اسم بحيث : اذا اردت البحث بالاسم يخلط لي الاسماء واذا اخترت الرقم يخلط الارقام
واشكرك جزيل الشكر وارجو اني لم اثقل عليك.
ارجو ان تتحملني
ارجو وضع فورم جديد لأسم المتسابق:
تسجيل متسابق جديد
....................................................
حفظ إلغاء الحفظ
لان الام ر تسجيل متسابق جديد لا يعمل بشكل مضبوط.
وانا شاكر لك
اشكرك اخي العزيز لمساعدتي.
في الفورم الثاني اتركه قبل التعديلات الاخيرة اجعله كما هو
ولكن
اذا خلط البرنامج الاسماء يقف عند اسم (ما) اريد طباعة الاسم الذي اختاره البرنامج فقط في امر ( طباعة الاسم الفائز) ارجو انك فهمت ما اريد
وفي الفورم الثالث اريد الجدول مساحة الخانة كبيرة وحجم الخط 14 ووضع
وكيف اجعل البرنامج يعمل بامتداد exe
وانا شاكر لك واتعبتك معي شكرا - شكرا - شكرا
ولقد استفدت الكثير
وفقك الله.
سأبدأ بالسؤال الأخير وهو كيفية عمل البرنامج exe ... يمكنك ذلك من خلال قائمة File الخيار Make project exe احفظ الملف في المكان الذي تريده .
ولكن لكي يعمل البرنامج على أي جهاز فستحتاج إلى استخدام أحد برامج عمل التنصيب وأسهلها هو البرنامج المرفق مع الفيجوال بيسك تحت اسم Package & Dyploment Wizerd .
نعود الآن إلى البرنامج ، وتحديداً لسؤالك الثاني .
لكي تغير في اعدادت خط الجدول يمكنك عمل ذلك بصورة طبيعية جداً كأنك تتعامل مع أي أداة ، ولمزيد من الخيارات اضغط على Custem وتنقل بين علامات التبويب واختر تنسيق الجدول الذي تريد .
بالنسبة للسؤال الأول وهو حول الفورم الثاني فاعذرني لأن الأمور مختلطة علي قليلاً ... أنت تريد - حسبما فهمت - أن يخلط الأسماء ويطبع لك الاسم المختار ، وهذا ما قمت بعمله في الرد السابق ، ولم أعمل نفس الطريقة مع الكود الذي كتبته أنت لأنه كان ( ملخبطاً ) ولم أستطع استيعاب خطوات عمل البرنامج في هذه الحالة ، لذا قمت بمسحها واضافة كود جديد حتى يعمل ، وإذا كنت تريد أي شرح في الكود الجديد فاخبرني وأنا حاضر ، وإلا أخبرني ما الذي تريده بالضبط إذا لم أكن قد فهمت قصدك .
والله الموفق ...
اشكرك على ما قدمته لي
والله ما قصرت معي الله يعطيك العافية
عيد سعيد
وكل عام وانت بخير
, وانا اشكرك مع الهارون ياأخ فني الفجوال على جهودك وتواضعك وارجو ان ينفع الله بك اخوانك المسلمين
تم تعديل هذه المشاركة بواسطة abosaad54 في 23 أكتوبر 2005 في 02:22
سبحان الله وبحمده عدد خلقه وزنة عرشه ومداد كلماته
هذا الموضوع مغلق.