تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] توليد سيريال (ارقام)
#1
السلام عليكم ورحمة الله وبركاته


ليس جديد ولكن  لعل احد الزوار تفيده هذه الفكرة كفكرة ليس غيرها
PHP كود :
Public Class Form1
    Dim lst 
As New List(Of String)
 
   Dim a As Integer
    Dim s 
As Integer
    Dim d 
As Integer
    Dim f 
As Integer
    Dim g 
As Integer
    Dim h 
As Integer

    Private Sub gen
()
 
       Randomize()
 
       a Rnd() * 99999
        s 
Rnd() * 99999
        d 
Rnd() * 99999
        f 
Rnd() * 99999
        g 
Rnd() * 99999
        h 
Rnd() * 99999
        Randomize
()
 
   End Sub

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        Randomize
()
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
be
:
 
       Randomize()
 
       TextBox1.Clear()
 
       gen()
 
       Dim all As String "-" "-" "-" "-" "-" h
        If lst
.Contains(allThen GoTo be
        TextBox1
.Text all
        lst
.Add(all)
 
       Randomize()
 
   End Sub
End 
Class 
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
#2
طيب كيف أحدد أن هذا السريال لمدة سنه
الرد }}}}
تم الشكر بواسطة: الماجيك مسعد , الماجيك مسعد
#3
عن طريق قاعدة بيانات بها جدول يحوي كل سيريال مع تاريخ انتهاء صلاحيته،
وعند توليد سيريال اضفه للجدول مع تاريخ انتهاء بعد سنة من الآن
الرد }}}}
تم الشكر بواسطة: الماجيك مسعد
#4
اسف ان ردى خارج الموضوع

ولكن لا اجد اى طريقة للتواصل معك

ارجو اعادة رفع الصور والمرفقات

او رفع الامثلة على اى مركز رفع

لان عند التحميل يحولنى لمقطع فيديو على اليوتيوب

عجبنى الموضوع واريد فهمه

موضوعك يا استاذ سعود

http://vb4arb.com/vb/thread-5488.html
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم و رحمة الله و بركاته

مشكوووووور أخ سعود

اشتقت و الله لمشاركاتك انت و الأخ أبو ايهاب و الأخ رامي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود لكتابة اربع ارقام او حروف فى التكيست فقط ثم الانتقال للتكيست التالى walkady 4 740 17-04-16, 11:48 PM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم