كود الراندوم

button.rar

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

بعتذر اخي الكريم

والله زلة من الشيطان اني نسيت اكتب السلام

وبشكرك على الكود

بس عندي طلب تاني وهو

Dim generator As New Random

Dim randomValue As Integer

randomValue = generator.Next(0, 10)

TextBox1.Text = randomValue

هذا الكود كل ما اكبس على بوتون بعطيني في التكست رقم ما بين الصفر والعشرة وطبعا هذا الكود بال vb.net

انا بدي هذا الكود باستخدام ال

vb.6

لو سمحت

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

وينك

ما تفضلت به للتوليد العشوائي والدالة ذاتها غير موجودة بالفيجوال بيسك 6

وضح ما تفكر به وإن شاء الله سنساعدك

لأن هنالك أكثر من طريقة ولكن وضح طلبك أولاً

كل عام وانت بخير

بس انا بدي ايالك كيف ممكن اخلي بوتون او اي اداة تتحرك بشكل عشوائي

Private Sub Timer1_Timer()

Command1.Left = Int(Rnd * 9000)

Command1.Top = Int(Rnd * 9000)

End Sub

هاي الطريقة بس مش فاهمها

رمضانكم مبارك

الكود الذي ذكرته سهل وتم استخدام الدالة Rnd التي تعطي رقماً عشوئياً

انظر هذا الموضوع ستج الكثير مما تريده

/index.ph...ن+يعشقون+الجمال

كل عام وانت بالف خير ورمضان مبارك

:wub:

اشكرك اخي