منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
بعد ازن اخونا المبرجمين احتاج كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : بعد ازن اخونا المبرجمين احتاج كود (/showthread.php?tid=35390)

بعد ازن اخونا المبرجمين احتاج كود - محمد ايمن - 28-06-20

السلام عليكم ورحمت الله وبركاتواه
بعد ازنكم كن محتاج كود اضغط علي زر يزهر في تيكست بوكس او ليست بوكس اسماء ان اضعها في الكود ولكن تكوان الاسماء عشواءيه
وشكران لمساعدتك


RE: بعد ازن اخونا المبرجمين احتاج كود - WaeLx - 28-06-20

(28-06-20, 01:06 PM)محمد ايمن كتب :
السلام عليكم ورحمت الله وبركاتواه
بعد ازنكم كن محتاج كود اضغط علي زر يزهر في تيكست بوكس او ليست بوكس اسماء ان اضعها في الكود ولكن تكوان الاسماء عشواءيه
وشكران لمساعدتك

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

كود :
Dim n As Integer = ListBox1.Items.Count - 1
       Dim r As Integer = CInt(Int((n * Rnd()) + 1))
       TextBox1.text = ListBox1.Items(r)


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

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

تستطيع استبدال الليست بوكس في الكود بمصفوفة أو جريدفيو او بجدول بقاعدة البيانات او بأي شئ على حسب مكان الاسماء العشوائية لديك

RE: بعد ازن اخونا المبرجمين احتاج كود - محمد ايمن - 28-06-20

(28-06-20, 03:01 PM)WaeLx كتب :
(28-06-20, 01:06 PM)محمد ايمن كتب :
السلام عليكم ورحمت الله وبركاتواه
بعد ازنكم كن محتاج كود اضغط علي زر يزهر في تيكست بوكس او ليست بوكس اسماء ان اضعها في الكود ولكن تكوان الاسماء عشواءيه
وشكران لمساعدتك

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

كود :
Dim n As Integer = ListBox1.Items.Count - 1
       Dim r As Integer = CInt(Int((n * Rnd()) + 1))
       TextBox1.text = ListBox1.Items(r)


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

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

تستطيع استبدال الليست بوكس في الكود بمصفوفة أو جريدفيو او بجدول بقاعدة البيانات او بأي شئ على حسب مكان الاسماء العشوائية لديك

شكران لحضرتك

RE: بعد ازن اخونا المبرجمين احتاج كود - WaeLx - 29-06-20

(28-06-20, 11:57 PM)محمد ايمن كتب :
(28-06-20, 03:01 PM)WaeLx كتب :
(28-06-20, 01:06 PM)محمد ايمن كتب :
السلام عليكم ورحمت الله وبركاتواه
بعد ازنكم كن محتاج كود اضغط علي زر يزهر في تيكست بوكس او ليست بوكس اسماء ان اضعها في الكود ولكن تكوان الاسماء عشواءيه
وشكران لمساعدتك

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

كود :
Dim n As Integer = ListBox1.Items.Count - 1
       Dim r As Integer = CInt(Int((n * Rnd()) + 1))
       TextBox1.text = ListBox1.Items(r)


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

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

تستطيع استبدال الليست بوكس في الكود بمصفوفة أو جريدفيو او بجدول بقاعدة البيانات او بأي شئ على حسب مكان الاسماء العشوائية لديك

شكران لحضرتك


الشكر لله أخي

بالتوفيق