nacer_alger قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 سلام عليكم عندي نموذج للموظفين كل الحقول جعلتها غير نشطة وانشاة زر سميته (تعديل) عند النقر عليه يتم تنشيط الحقول اوكي اريد عند الضغط على هذا الزر يطلب مني ادخل رقم سري لكي يعمل اي اريد اضافة رقم سري لكي تنشط الحقول
jjafferr قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 وعليكم السلام أخي ناصر انا كتبت هذا الموضوع سابقا في منتدى الفريق العربي للبرمجة ايش رايك في كلمة سر متغيرة يعني مافي داعي تخاف احد يشوفها ، لأنها تتغير دائماً كل دقيقة استعمل هذا الكود مثلاً: 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 وهكذا جعفر 2
bakoraus قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 بارك الله فيك كيف نحول الوقت لارقام ؟ و كيف نحول ايام الاسبوع الي ارقام ؟ ما هي الخطوات
jjafferr قام بنشر أبريل 10, 2015 قام بنشر أبريل 10, 2015 حاليا اترك ايام الاسبوع جانب الكود يعطيك كلمة السر حسب الوقت ، وفيه مثال كذلك جعفر
nacer_alger قام بنشر أبريل 11, 2015 الكاتب قام بنشر أبريل 11, 2015 شكرا استاذ جعفر عل هذا الشرح بارك الله فبك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.