اضافة رقم سري لزر امر

[nacer_alger]

سلام عليكم
عندي نموذج للموظفين كل الحقول جعلتها غير نشطة وانشاة زر سميته  (تعديل)  عند النقر  عليه يتم تنشيط الحقول اوكي
اريد عند الضغط على هذا الزر يطلب مني ادخل رقم سري لكي يعمل اي اريد اضافة رقم سري لكي تنشط الحقول

[jjafferr]

وعليكم السلام أخي ناصر 

 

انا كتبت هذا الموضوع سابقا في منتدى الفريق العربي للبرمجة 

 

ايش رايك في كلمة سر متغيرة 

يعني مافي داعي تخاف احد يشوفها ، لأنها تتغير دائماً كل دقيقة 

 

استعمل هذا الكود مثلاً:

p1 = InputBox("insert Password", Format(Now(), "dddd dd-mm-yyyy hh:mm:ss am/pm"))
    p2 = Format(Hour(Now()) + Minute(Now()), "0000")' & "," & Format(Day(Now()) + Month(Now()), "0000")
    'MsgBox Format(Now(), "dddd dd-mm-yyyy hh:mm:ss am/pm") & vbCrLf & _
           Format(Hour(Now()) + Minute(Now()), "0000") & "," & Format(Day(Now()) + Month(Now()), "0000")
           
    If p1 = p2 Then
        MsgBox "OK"
    Else
        MsgBox "NG"
    End If

كلمة السر هي:

تجمع الساعة في الوقت الحالي (الساعة نظام 24 ساعة) + الدقيقة ،

والجواب يكون بصيغة 4 ارقام ،

مثلا الساعة الآن 5 العصر و26 دقيقة ،

اولا نحول الساعة الى نظام 24 ساعة: 5+12 = 17

17 + 26 = 43

اذاً كلمة السر هي 0043

 

وطبعا تقدر انك تغير الكود مثلا:

تحول ايام الاسبوع الى ارقام مثلا:

السبت = 1

الاحد = 2

الاثنين = 3

الثلاثاء = 4

الاربعاء = 5

الخميس = 6

الجمعة = 7

 

فاذا كنا يوم الجمعة ، ونفس الوقت السابق ، فتقدر ان تكون كلمة سرك 70043 ،

او 7 + 0043 = 0050

وهكذا 

 

 

جعفر

[bakoraus]

بارك الله فيك 

 

كيف نحول الوقت لارقام ؟

و كيف نحول ايام الاسبوع الي ارقام ؟

 

ما هي الخطوات

[jjafferr]

حاليا اترك ايام الاسبوع جانب 

 

الكود يعطيك كلمة السر حسب الوقت ، وفيه مثال كذلك 

 

 

جعفر

[nacer_alger]

شكرا استاذ جعفر عل هذا  الشرح

بارك الله فبك

[nacer_alger]

شكرا لك حفظك الله