منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : شرح عملية التفعيل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم.من فضلكم اخواني هذا ملف قمت بنسخة من مشروع للاخ الكاتب بقسم المشاريع
كيف بارك الله فيكم اقوم بالتفعيل حاولت و حاولت ولم افعم كيف اقوم بالتفعيل بهاي الطريقة بارك الله فيكم
متابع ....
فكرة في كود تفعيل (غير المثال المطروح)
اولا : جلب رقم Processor  وليكن ( hh100k )
ثانيا : تحويل سريال Processor الى ارقام فقط ليسهل التعامل معه وليكن بعد التحويل ( 123456789 )
ثالثا : اختيار عملية حسابية معقدة على الارقام في ثانيًا 
مثلا ( الرقم الظاهر مضروب * 3 مقسوم / 9 )(41152263) وذلك حتى يصعب على الشخص تخمينها 

رايعا : اصبح معنا رقمين ( 123456789 ) وده الى حيظهر عند المستخدم و (41152263)  وده هيكون مخفي عن المستخدم
عندما يعطيك المستخدم رقم الى ظاهر امامه حتقوم انت بضربه في 3 ثم قسمته على 9  
ثم تعطي له ليكتبه في خانة التسجيل وبعد كده البرنامج هيقوم بمقارنة الرقم المخفي بالذي اخذه منك 
متساوين اذا يسجل او لا



كود جلب سريال Processor
PHP كود :
       Dim MOS_PR As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
 
       Dim mo_PR As ManagementObject
        For Each mo_PR In MOS_PR
.Get()
 
           (TextBox1.Text Str2Int(mo_PR("ProcessorId").ToString
        Next 



كود التحويل 
PHP كود :
   Public Function Str2Int(ByVal InStrng As Object) As String
        Dim StrLn 
As Integer
        Dim Cntr 
As Integer
        Dim NewStr 
As String
        Str2Int 
""
 
       StrLn Len(InStrng)
 
       If StrLn 0 Then Exit Function
 
       NewStr ""
 
       For Cntr 1 To StrLn
            Select 
Case Mid(InStrngCntr1)
 
               Case "0" To "z"
 
                   NewStr NewStr Asc(Mid(InStrngCntr1))
 
           End Select
        Next Cntr
        Str2Int 
NewStr
    End 
Function 
و الله يا اخي محمود صالح نظري شرحك منطقي جدا لكن حيث انا مبتديء صدقني لم اعرف كيف اطبق ما ذكرته.رجاء و كثر الف خيرك لو تمكنت من كتابته بملفي لاتمكن من دراسته.بارك الله فيك
[b]جزاك الله خيرا اخ محمود صالح[/b]
ياريت حضرتك تتكرم وتعمل مثال بسيط لهذا الكود 
وجزاك الله عنا خير اجزاء
صورة
[attachment=17564]
و الله رائع اخ محمود صالح عمل مفهوم و رائع
اخي محمود اكون جد ممنون لحضرتك لو تساعدني عاى تكملة الملف
كيف مثلا احدد الارقام بتاكست 2 بتاع تسجيل النسخة مثلا دائما يطلعو فقط 20 رقم .يعني نكبر عملية اضرب عشان اضمن النتيجة دائما 20 .و بعدين اوزع ال20 رقم على التاكسات كل 4 ارقام في تكست  زي طريقة تفعيل الالترا ايزو كمثال.بارك الله فيك
بطريقة دي 
اولا : كل تكست حياخد 3 ارقام فقط لتصبح مجموع التكست 15 رقم 
ثانيا : انت وبتحط المعادلة الحسابية لابد ان تكون بناتج كبير لا يقل الناتج عن 15 رقم مثلا تضرب الرقم *3*9*11*5 
ثالثا : كود التفعيل حيكون اول 15 رقم من الناتج حتى لو كان 50 رقم
السّلام عليكم و رحمة الله و بركاته
باسم الله .. ما شاء الله .. تبارك الله أخي الكريم الغالي " محمود صالح "
هذا فعلاً إبداع منك .. بسيط و مميّز و الأهم .. بعد تجربته .. أنّه .. فعّال
تحياتي
ماشاء الله 

فعلا  مبدع استاذ / محمد صالح 

تحياتى
الصفحات : 1 2