منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] توليد سيريال (ارقام) - نسخة قابلة للطباعة

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



توليد سيريال (ارقام) - سعود - 30-10-15

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


ليس جديد ولكن  لعل احد الزوار تفيده هذه الفكرة كفكرة ليس غيرها
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 



RE: توليد سيريال (ارقام) - adel27 - 06-11-15

طيب كيف أحدد أن هذا السريال لمدة سنه


RE: توليد سيريال (ارقام) - Aban Salah - 25-01-16

عن طريق قاعدة بيانات بها جدول يحوي كل سيريال مع تاريخ انتهاء صلاحيته،
وعند توليد سيريال اضفه للجدول مع تاريخ انتهاء بعد سنة من الآن


RE: توليد سيريال (ارقام) - الماجيك مسعد - 26-01-16

اسف ان ردى خارج الموضوع

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

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

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

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

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

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

http://vb4arb.com/vb/thread-5488.html


RE: توليد سيريال (ارقام) - rinawi - 01-02-16

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

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

اشتقت و الله لمشاركاتك انت و الأخ أبو ايهاب و الأخ رامي