+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب كود توليد ارقام انا احددها (/showthread.php?tid=7314)
طلب كود توليد ارقام انا احددها - nablion - 10-12-12
اريد كود عند الضغط على الزر يختار احد الارقام الي انا احددها مثلا 9999
ولما اضغط مره اخرى على الزر يخرج رقم اخر مثلا 6666
وهكذا
المهم الارقام انا احددها
ولما اضغط مره اخرى على الزر يخرج رقم اخر مثلا 6666
وهكذا
المهم الارقام انا احددها
طلب كود توليد ارقام انا احددها - السندبااد - 10-12-12
[COLOR="#0000FF"]السلام عليكم ورحمة الله وبركاته
تفضل الكود :
في المثال السابق وضعت لك خمسة أرقام إذا وضعت أنت أكثر مثلاً سبعة أرقام
عدل ما يلي :
و
بالتوفيق أخي الكريم[/COLOR]
تفضل الكود :
PHP كود :
Dim TName(4) As String
Dim s As Integer
TName(0) = "9999"
TName(1) = "6666"
TName(2) = "5555"
TName(3) = "4444"
TName(4) = "3333"
Randomize
s = Int(Rnd * 5)
Text1.Text = TName(s)
في المثال السابق وضعت لك خمسة أرقام إذا وضعت أنت أكثر مثلاً سبعة أرقام
عدل ما يلي :
PHP كود :
Dim TName(7) As String
PHP كود :
s = Int(Rnd * 8)
بالتوفيق أخي الكريم[/COLOR]
طلب كود توليد ارقام انا احددها - nablion - 10-12-12
ما شاء الله عليك اخي السندباد
نعم هذا ما كنت ابحث عنه
بارك الله فيك
RE: طلب كود توليد ارقام انا احددها - الحزين اليماني - 14-09-23
اخي السندباد واذا اردة هذا الارقام تكون متسلسله من الواحد مثلا وحتى العشرين بشرط تتولد بشكل يومي وكل يوم يبداء الرقم من الواحد بحيث لا تتكرر باليوم الواحد