أريد عمل برنامج بحيث أني أدخل أسماء لدي في أي شي (سواء comp box أو List box) و يكون مخفي
ويكون هناك زر button بحيث أني في كل مرة أضغط على الزر يظهر لي أحد الأسماء بطريقة عشوائية فكيف يمكن عمل ذلك
؟؟
كيفية إظهار أسماء بطريقة عشوائية
مغلق
ستقوم بتوليد رقم عشوائي مجاله يساوي
الـ INDEX الخاص بالعناصر الموجودة في COMBOBOX مثلا
ثم تحدد العنصر عن طريق الرقم العشوائي المولد
الذي يساوي رقم عنصر من العناصر الموجودة عندك..
مشكور أخوي
استخدمت هذا الكود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Randomize()
Dim num As Integer
num = Int(Rnd() * 10)
Me.Label2.Text = Me.ListBox1.Items.Item(num)
End Sub
لكن المشكلة أنه يظهر فقط من 0-9
أنا أريد من 0-26
هل يمكن ذلك؟
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Randomize()
Dim num As Integer
num = Int(Rnd(26) * 10)
Me.Label2.Text = Me.ListBox1.Items.Item(num)
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); Make it run, make it right, make it fast, make it small
normalize your data and don't make it look like excel sheet
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
مشكورين لكن ماضبط معي
num = Int(Rnd(26) * 10)
أنا أعلم أن :
Rnd() وظيفتها إعطاء أرقام عشوائية من 0.0 إلى 0.9 لذا نضربها بـ 10
فما معنى Rnd(26) * 10؟
وشكراً
Me.ListBox1.Items.Add(CInt(Int((26 * Rnd()) + 0)))
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); Make it run, make it right, make it fast, make it small
normalize your data and don't make it look like excel sheet
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
معليش أخوي توضح الأمر اللي كتبته وين مفروض ينكتب ... هذا يضيف للـ list box طيب وش فايدة +0
أخي العزيز:
Dim OBIN As Object OBIN = Int(Rnd() * 26) TextBox1.Text = ListBox1.Items.Item(OBIN)
في الكود السابق:
نعرف المتغير الذي نريد القيمة العشوائية فيه
ثم نسند قيمة من اللست إلى صندوق النص حسب القيمة العشوائية المولدة..
تم تعديل هذه المشاركة بواسطة SalehRam في 17 أكتوبر 2006 في 05:51
ممكن أخوي أفهم ليش ضربت بـ 26
Rnd يولد أرقام عشوائية من 0.0إلى 0.9 طيب إذا ضربتها 26 !!!!
لأني أضفت Timer لكن ألاحظ انه كأنه يوقف شوي
عشان تفهم قصدي هذا البرنامج بالمرفقات
طيب أخوي ليش ضربت بـ 26
Rnd تظهر أرقام عشوائية من 0.0 إلى 0.9
وضعت الكود الذي ذكرت لكن يقف قليلاً لأني وضعت Timer
هذا البرنامج بالمرفقات
اخوي
OBIN = Int(Rnd() * 26)
26 اخر عدد سيتم البحث من خلاله
تكمله على ما تفضل فيه الاخ صالح
واذا تبغاه يبدا من عدد معين
OBIN = Int(5 +Rnd() * 26)
ال 5 الحد الادنى
ال 26 الحد الاعلى
تظهر أرقام عشوائية من 0.0 إلى 0.9
تظهر ارقام عشوائيه صحيح بس بعد الفاصله بمعادله معينه داخل الميثود وفيه احتمال إظهار نفس القيمه
وعندك الحل انك تنادي Randomize() وهي بتقوم بالباقي
وشكرا للاخوان
أولا نحن نضرب 26 حتى نحدد مجال القيمة العشوائية
فالعدد المضروب بـ RND هو الذي سيحدد مجال القيمة المولدة
ثانيا بالمسبة للكود صحيح و لا مشكلة فيه
و التوقف الذي تلاحظه في التايمر هو بسببب تكرار القيمة العشوائية
فمثلا يأخذ الرقم 5 ثم بعده مباشرة يأخذ 5 مرة أخرى..
هذا الموضوع مغلق.