[nablion]

اريد كود عند الضغط على الزر يختار احد الارقام الي انا احددها مثلا 9999
ولما اضغط مره اخرى على الزر يخرج رقم اخر مثلا 6666
وهكذا

المهم الارقام انا احددها

[السندبااد]

[COLOR="#0000FF"]السلام عليكم ورحمة الله وبركاته
تفضل الكود :

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]

ما شاء الله عليك اخي السندباد

نعم هذا ما كنت ابحث عنه
بارك الله فيك

[الحزين اليماني]

اخي السندباد واذا اردة هذا الارقام تكون متسلسله من الواحد مثلا وحتى العشرين بشرط تتولد بشكل يومي وكل يوم يبداء الرقم من الواحد بحيث لا تتكرر باليوم الواحد