سؤال ,, RND والمتغيرات

استخدمت هذا الكود لكن في المسج بوكس لكن :(

msgbox "Q" & "(" & Int(RND * 3) & ")"

بسم الله

ايه ده ؟ ؟ ؟ ! ! ! كاتب موضوع علشان يتحذف

:wacko: :wacko:

Amir Imam كتب:

بسم الله

ايه ده ؟ ؟ ؟ ! ! ! كاتب موضوع علشان يتحذف

:wacko: :wacko:

randomize
msgbox  q( Int(Rnd * 3))

شكراً على الرد ..

ما فهمت قصدي ،،

* يوجد عدة متغيرات اسماؤها (***)Q حيث *** عبارة عن أرقام ,, أي أسماء المتغيرات هي :

يحتوي كل متغير من Q على نص (String)

أريد أن يتم إظهار نص إحدى من المتغيرات بشكل عشوائي

كيف ذلك ؟

بسم الله

ده كود على قد ما فهمتك ... ضوف كده ينفع معاك ولا لأ

بس هحط كل سطر لوحدة لان خاصية الاكواد مش شغاله عندي مش عارف ليه

انت ابقى حط الكود كله على بعضة

Dim Q(30) As String

Private Sub Command1_Click()

Randomize

For i = 0 To 3

Q(i) = "Amir " & i

MsgBox Q(Rnd * i)

Next

End Sub

أيضاً لم تفهم ما أقصده !!

وضت الشرح في الصورة .. أرجو أن تكون قد فهمت

بسم الله

جرب كده الكود اللي في المرفقات ... ان شاء الله ينفع

ولو غلط قوللي علشان اشوف طريقة تانية

Q.rar

لكن بغيت يطلع مسج بوكس واحد !!!

بسم الله

بسيطة ... بعد دالة MsgBox حط Exit For ;)

لكن لضمان ظهور نتائج صحيحة خلي

For I = 4 To 10

يعني بدل الصفر باربعة

الكود السابق الذي طرحته يقوم بما تريد لكن بدل رقم 3 يمكنك وضع عدد الصفوف

نفس الكود مع تعديلات بسيطة

dim q(3) as string 
 q(0)="welcom"
 q(1)="-----"
 q(2)="-----"
 q(3)="-----"

 randomize
MsgBox q(Int(Rnd(Timer) * 3))

فاهم ،، بس مو هذا الي بغيته ...

يعني مثلاً لو كان عندي واحد تيكست و ثلاث كوماند

الطريقة : كتابة اسم الكوماند في التيكست ومن ثم اضغط على كوماند3 وعند الضغط على كوماند3 يخفي الكوماند المكتبوب في التيكست

الهدف من ذلك : طبعا اسم الكوماند الي في التيكست بكون "Command1" أي بالـ " "

هذا مثال على ما طلبته .. (هذا الكود خاطئ لكن اريد مثله صحيح)

شكرا الكود شغال