الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

امر Rund

مغلق
بدأه walled_aall@hot في 26 يناير 2005 · 21 رد · 1,710 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عند كتابته يختار رقم عشوئي ثابت كل مره اريد تغير .. عند الضغط كل مره علي المفتاح او عند فتح البرنامج يتغير ويكون الرقم العشوائي محصور بين رقم 1000

;)

www.acrowing.com

اول موقع عربي لرياضة التجديف

#2

السلام عليكم

أمر Rnd و لا ليس Rund

هو اختصار ل Random أى عشوائى

هذا الامر ينتج لك أرقام عشوائية غالبه 99% تكون عشرية

فمثلا لو عايز تحصل على رقم صحيح مكون من عددين

msgbox fix(rnd*100)

حيث فائدة fix الحصول على مطلق العدد بدون ارقام عشرية

ولكن تقصد ايه بـ

ويكون الرقم العشوائي محصور بين رقم 1000 ؟؟؟؟؟؟؟؟

:D

AlexCard.gif

Business Card

Ahmad Fathy Ahmad

Computer and Systems Department

Faculty of Engineering, Alexandria University

Cellular: +2 010 1461154

E-mail: midoalx@hotmail.com

ICQ: 148481391

#3

مثال مرفق للشرح اللى كتبته ;)

rnd.zip

AlexCard.gif

Business Card

Ahmad Fathy Ahmad

Computer and Systems Department

Faculty of Engineering, Alexandria University

Cellular: +2 010 1461154

E-mail: midoalx@hotmail.com

ICQ: 148481391

#4

المثال جميل ولكن ينقصه كيفية عمل ارقام عشوائيه دون تكرار قيمه

يعنى مثلا عمل ارقام عشوائيه من 1 الى 10 دون تكرار ظهور رقم مرتين

#5

السلام عليكم ورحمة الله وبركاتة

أخى الفاضل فى تلك الحالة سوف تقوم بحفظ جميع الأرقام المتولدة سابقا وليكن مثلا فى أداة LISTBOX وعندما يتولد رقم جديد يتم أختبار هل هو موجود بالليست بوكس ام لا

موجود إذا ولد غيرة غير موجود إذا أحفظة

وهكذا

(لاتنسى تغيير الإمتداد إلى RAR)

rnd.vbp

{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1

#6

بارك الله فيك اصبت الهدف

#7

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

أخي العزيز :: أحمد فتحي ::

كان شرحك جميلاً ولكني أعتقد أن السائل كان يريد غير ذلك ، سأقول لك ما فهمته من السؤال :

عندما تستخدم الكود التالي الذي ذكرته في مشاركتك السابقة :

msgbox fix(rnd*100)

أول عدد سيظهر لك على سبيل المثال الرقم 70 ثم عندما تقوم بتجربة الكود مرة أخرى في وقت آخر أول عدد سيظهر لك الرقم 70 مرة أخرى .

الحل هنا هو استخدام الدالة Randomize ، فيكون الكود السابق بعد التعديل :

Randomize 
msgbox fix(rnd*100)

أرجو أن أكون قد وفقت في معرفة قصد السائل

وتقبلوا تحياتي :: المبرمج أحمد ::

سبحان الله وبحمده ... سبحان الله العظيم

#8

جزاك الله خيراً يا باشا و شكرا للافادة ;)

AlexCard.gif

Business Card

Ahmad Fathy Ahmad

Computer and Systems Department

Faculty of Engineering, Alexandria University

Cellular: +2 010 1461154

E-mail: midoalx@hotmail.com

ICQ: 148481391

#9

أضافة جيده وفى محلها مشكور والله فعلا كان هذا ما ينقص الكود

#10

فعلا هذا ما كنت اريده

اشكركككك ;) :D

www.acrowing.com

اول موقع عربي لرياضة التجديف

#11

استخدمت الكود وجميل جدا ولكن يتبقى مشكلة

كل ما استخدم البرنامج يبدأ فى الأرقام العشوائيه من رقم 0 ويتنهى عندى 100 فكيف أجعل البرنامج يبدأ الأرقام العشوائيه مثلا من عند 50 وليس الصفر

انا استطعت أغير مكان 100 بــ text ولكن كيف أغير بدايه الاقام العشوائيه الى نقطه معينه بخلاف الصفر

#12

السلم عليكم ورحمة الله وبركاتة

أخى الفاضل إختبر النتيجة إذا كانت أقل من 50 قم بإضافة خمسين على الناتج أما إذا كان أكثر فهو المطلوب

أذا إحتجت مثال لذلك أخبرنى

{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1

#13

مشكور يا خبيرنا على الرد

وانا اريد ان يكون بدايه ونهائيه الاقام العشوائيه تكون متغيرين استطيع التحكم فيهم اى وقت بتغيرهم

واذا كان من الممكن تزويدى بالمثال يبقى شكرا الله لك وعفى عنك

تم تعديل هذه المشاركة بواسطة mourad3d في 30 يناير 2005 في 17:47

#14

ارجوا مساعدتى

#15

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ،،،

أخي العزيز : آسف على التأخر في الرد

إذا كنن بحاجة إلى أرقام عشوائية في نطاق مختلف ، بين 25 و 75 مثلاً ، فقط اضرب الدالة Rnd بالفرق بين القيمتين وأضف على الناتج قيمة البدء .

مثلاً : إذا أردت رقمًا عشوائيًًا يقع بين 10 و 99 على سبيل المثال فإنك سوف تستخدم الكود Code التالي :

    Randomize
    MsgBox 10 + Round(Rnd * 89)

حيث أن العدد 88 هو الفرق بين القيمتين 99 و 10 وقيمة البدء هي العدد 10

ملاحظة : يمكنك استبدال الدالة Round بأي من الدالتين Fix أو Int حيث أنهم يقومون بنفس الوظيفة.

وتقبل تحياتي

أخوك : المبرمج أحمد

تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 3 فبراير 2005 في 18:37

سبحان الله وبحمده ... سبحان الله العظيم

#16

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

#17

أخواني الأعزاء

كل الأكواد التي كتبتموها تعطيك أرقام عشوائية محدودة بمدى معين :)

ولكن هل يوجد كود يولد لك passwords عشوائية بحيث أنها تحتوي أرقام وحروف أيضا

ويكون طول password محدد من قبل مثل 8خانات أو 16

وشكرا :)

تطبيق المعرفة قوة Applying the Knowledge is Power

#18

أخواني الأعزاء في المنتدى أرجو منكم الرد على سؤالي ...

لأن هذا السؤال أحد أسئلة الواجب في مادة security

وتأخير الرد من مبدعي المنتدى لمدة يوم كامل يعني أحد ثلاث أشياء(حسب فهمي :blink: )

إما أن السؤال بسيط وما يستاهل واحد يضيع وقته في الرد

أو أن السؤال صعب ويبغاله بحث في الكتب

أو أن المشاركة قدييييييييييييييمة مرة

شكرا

تطبيق المعرفة قوة Applying the Knowledge is Power

#19

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ..

أخي العزيز :: المهندس علاء ::

كنت أريد أن أجهز لك مثالاً لما قلته ولكنني لم أجد الوقت الكافي لذلك

وعندها بحثت عن المثال في الشبكة العنكبوتية فوجدت أحد المواقع ( وبالتحديد Planet Source Code ) موجودًا عليها نفس المثال الذي تريده

أتمنى أن يكون المثال كما أردته

ونأسف على التأخير

والسلام عليكم ورحمة الله وبركاته ...

[HM] Passw3228310312001.zip

سبحان الله وبحمده ... سبحان الله العظيم

#20

أخي العزيز :: المبرمج أحمد::

أشكرك على ردك

ولكني بعد أن حفظت الملف ، اكتشفت أن الجهاز الذي أعمل عليه لا يحتوي على الفيجول بيسك :angry:

ولكني سوف أطلع على البرنامج حينما أعود إلى البيت وأوافيك بالرد.

ولكن لأن الموضوع كان لا يحتمل التأخير - ولا فيها أبو مشعاب - فقد استغللت نهاية الأسبوع الماضي

وكتبت البرنامج بلغة السي - طبعا استخدمت الدالة rand() الموجودة في >stdlib.h<

وهو الآن جاهز تقريبا ، لكني أريد أن أضيف عليه بعض التحسينات النهائية مثل : تشفير password باستخدام مفتاح يختاره المستخدم ، وأيضا إمكانية إعادة فك الشفرة باستخدام نفس المفتاح.

وسوف أنزله في منتدى السي - مكانه المناسب - وسوف أضع له رابط في هذه المشاركة.

إلى اللقاء B)

تطبيق المعرفة قوة Applying the Knowledge is Power

#21

وفقك الله يا مهندس علاء وزادك علمًا

سبحان الله وبحمده ... سبحان الله العظيم

#22

أخي العزيز :: المبرمج أحمد::

جربت البرنامج وهو ممتاز جدا

ويحتاج إلى بعض الإضافات لتحقيق المطلوب

:rolleyes:

تطبيق المعرفة قوة Applying the Knowledge is Power

هذا الموضوع مغلق.

مواضيع مشابهة