فروم تخصصی - پشتیبانی CPSD - مقالات و مثال های آموزشی مرتبط با Trial Keeper Professional

آموزش نكات فني قفل گذاري مبتني بر Trial Keeper Professional بخش دوم

Sun, 14 Aug 2011 22:27:20 +0430

ضمن سلام

در ادامه مبحث قبلي ميخوام به روشي اشاره كنم كه علاوه بر كاهش زمان كاري به نوعي به عنوان يك پيچيدگي درجه سه هم جهت جلوگيري از شكسته شدن قفل به کار بیاد .

يك كركر معمولاً مترصد اجراي يك رويداد ميمونه تا اون رو بتونه دور بزنه . ميتونيد به روش زير زمان انتظار اون رو اندكي به تعويق بندازيد .

روال چك شدن تابع Initialize رو به صورت رندوم انجام بديد . در اين حالت قصد داريم فراخواني اين روال رو نه به صورت مستمر ، بلكه به صورت اتفاقي انجام بديم . در اين روش حتي اين امكان ميتونه به وجود بياد كه عمليات چك كردن رو در داخل يك رويداد تكرار پذير نيز به انجام برسونيد .
بيايد با همديگه به ساختار دستور رندوم نگاهي بندازيم

دستور رندوم و يا همون Rnd مقداري عددي از نوع Single رو برميگردونه و در هر بار اجرا ، اين عدد متفاوت از دفعه قبل خواهد بود .

هميشه دقت كنيد اين تابع رو به همراه دستور Randomize به كار ببريد , تا پراكندگي عددي در هر بار فراخواني به وجود بياد . به مثال زير دقت كنيد :

کد: 

Randomize

Int ( Rnd * 100 + 1)

دستور فوق اقدام به برگرداندن عددي بين 1 تا 100 ميكنه .
خب اجازه بديد اون رو در داخل رويداد يك دكمه قرارش بديم تا در حالتي كه عدد برگشتي زوج بود برنامه اقدام به نمايش يك پيغام مزاحم كنه :

کد: 

Private Sub cmdSampleButton_Click ()

Randomize

If Int ( Rnd * 100 + 1 ) Mod 2 = 0 Then MsgBox "Sample Nag Message"

End Sub

حالا همون مثال بالا در خصوص تابع Initialize هم قابل استفاده هستش

کد: 

Private Sub cmdSampleButton_Click()

Randomize

If Int ( Rnd * 100 + 1 ) Mod 2 = 0 Then Initialize ( … )

End Sub

در مثال فوق هم تابع Initialize به صورت اتفاقي فراخواني ميشه . شما نمي تونيد قبل از اجراي دستور ، از فراخواني تابع Initialize مطمئن باشيد چرا كه فراخواني اون رو به دست يك رويداد اتفاقي سپرديد .

با 100 بار كليك بر روي دكمه فوق ، دستور Initialize بين 0 تا 100 بار ميتونه اجرا بشه .

در همين جا مجدداً اشاره اي به يك توصيه عمومي دارم :

فاصله فيزيكي كدها در داخل اكسس از همديگه زياد باشه

روالهاي كنترلي رو در فاصله اي دور از همديگه قرار بديد ، اينجوري رديابي كدها از طريق اديتورهاي متني موجود به سختي امكان پذيره . در پاسخ به اين سئوال كه چه جوري بايد اين كار رو انجام بديد ادامه مطلب رو مطالعه بفرماييد :

يكي از كارهاي خيلي مؤثري كه ميتونيد انجام بديد ، انجام بخشي از عمليات در داخل توابع هستش .

اجازه بديد روال نحوه برگردوندن يك عدد اتفاقي رو در داخل يك تابع با همديگه ببينيم ، در داخل يك ماژول اقدام به معرفي يك تابع با عنوان SeedRandomA كنيد :

کد: 

Function SeedRandomA() As Integer

Randomize

SeedRandomA = Int(Rnd * 100 + 1 )

End Function

اين تابع دقيقاً همون كار رو انجام ميده , حالا بيايد نگاهي به نحوه استفاده از اون بندازيم .

در داخل رويداد کلیک دكمه ، دستورات با به كار گيري اين تابع به صورت زير تغيير پيدا ميكنه :

کد: 

Private Sub cmdSampleButton_Click()

If SeedRandomA Mod 2 = 0 Then Initialize ( … )

End Sub

هنوز هم جا براي بهينه سازي وجود داره ، اجازه بديد تغيير آخر رو هم اعمال كنيم و تابع رو به صورت زير تغيير بديم ، قبل از اون توجه شما رو به توضيح زير جلب ميكنم :

دستور If SeedRandomA Mod 2 = 0 Then عملاً داره بررسي ميكنه كه اگر شرط صحيح باشه ( عدد زوج باشه ) آنگاه دستور مورد نظر رو به انجام برسونه .

ما قصد داريم همين عمليات رو هم در داخل تابع و به دور از چشم كركر انجام بديم . ( منظورم فاصله فيزيكي بيشتر كد كنترلي هستش )

کد: 

Function SeedRandomB() As Boolean

Randomize

SeedRandomB = Int(Rnd * 100 + 1) Mod 2

End Function

به نوع مقدار برگشتي از تابع SeedRandomB دقت كنيد و تفاوت اون رو با حالت قبلي ببينيد . خروجي اين تابع بررسي ميكنه كه عدد مورد نظر زوج هست و يا نه ( تابع قبلی فقط عدد رو برميگردوند )
در نهايت تغييرات رو با هم در داخل روال انتساب داده شده به دكمه اعمال ميكنيم :

کد: 

Private Sub cmdSampleButton_Click()

If SeedRandomB Then Initialize ( … )

End Sub

دقت كنيد كه كد چقدر كوتاهتر و مرتب تر شد .

مزيت اين كار توي چيه ؟!

فهم الگوريتم به كار رفته و اعمال تغيير در داخل اون دشوار تر از حالت قبلي هستش ، كركر نياز داره كه به دنبال تابع SeedRandomB بگرده و عمليات داخلي اون رو ملاحظه كنه .
شما امكان فراخواني توابع رو در جاي جاي برنامه داريد و اين همون معناي يك بار بنويس و چندين بار استفاده كن هستش .
در صورتي كه نيازي به تغيير داشته باشيد ، شما فقط نياز داريد كه روال داخل تابع رو تغيير بديد و رفلكس اين تغيير رو در تمامي جاهاي ديگه كه از اون تابع استفاده به عمل اومده ، به صورت يكجا ببينيد . ( با ذكر يك تبصره )

استفاده از توابع گامي در جهت يك برنامه نويسي پويا به حساب مياد .

با اعمال اين تغييرات گامي ديگه به سمت طراحي برنامه اي با ديواره دفاعي مستحكمتر برداريد .
در جلسه بعدي اين مبحث ، اشاره اي به رجيستري و نحوه كار با اون خواهم داشت .

البته قصد باز كردن اون مبحث رو به صورت كامل ندارم چرا كه استفاده كارآمد از اين قابليت در مباحث قفل گذاري ، نيارمند تكنيكهايي خاص هستش كه متاسفانه امكان آموزش اونها در اين سطح وجود نداره .

استفاده موثر از اين امكان در قفل گذاري نيازمند تكنيكهايي هستش كه يادگيري اونها براي شما دوستان زمان زيادي رو طلب ميكنه . كليه اون تكنيكها در داخل Trial Keeper Professional گنجونده شده و بر همين اساس از كنار اون مطلب با ديدي نه چندان عمقي عبور ميكنيم .

در سرفصلهاي بعدي وارد مباحث عمقي تر قفل گذاري به كمك Trial Keeper Professional ميشيم . اين اكتيو ايكس بسياري از قابليتهاي حرفه اي رو در داخل خودش به صورت بالقوه حمل ميكنه كه سعي ميكنيم در اين سلسله مطالب اونها رو به صورت حرفه اي تر و كاملتر آموزش بديم و اجرا كنيم .

توضيح و يادآوري چندين باره : تكنيك شكستن قفل در داخل Access متفاوت از فايلهاي اجرايي هستش ، بر همين اساس دوستاني كه با نحوه شكستن قفلهاي فايلهاي اجرايي آشنايي دارن شايد تناقضهايي رو با اصول موجود در اون نوع قفل شكني ها مشاهده كنند . برخي مطالب به صورت مشترك در داخل فايلهاي اجرايي نيز ميتونه مد نظر قرار بگيره ، ولي در حال حاضر قصد ايجاد مرزي مشخص رو در اون رابطه ندارم .
خب اميدوارم اين مطلب هم مورد توجه شما قرار گرفته باشه . تا فرصتي ديگه خدا نگهدار .

آموزش نكات فني قفل گذاري مبتني بر Trial Keeper Professional بخش اول

Sat, 09 Jul 2011 22:46:02 +0430

با سلام

در این جلسه قصد دارم مقداری در خصوص فراخوانی تابع Initialize موجود در داخل Trial Keeper Professional توضیحاتی رو ارائه کنم .

در پروسه كنترل بايد دقت كنيد كه حتماً روال كنترلی رو به صورت چندين باره در داخل خود برنامه هم تكرار كنيد ، تا در صورت غير فعال شدن هر يك از نقاط كنترلي در محلهايي ديگه بتونيد بر روي عملكرد قفل صحه گذاري كنيد .

تكرار چندين باره عمليات فراخواني قفل ميتونه تا حدودي بر روي سرعت اجراي خود برنامه تاثير گذار باشه ، نكات زير ميتونه به شما در كاهش اين زمان كمك كنه .

در داخل Trial Keeper Professional اگه دقت كرده باشيد وضعيت جاري قفل از طريق كدي كه از تابع Initialize بازگردانده ميشه قابل تشخيصه .

به طور مثال كد شماره 1 نشان دهنده عدم پايان دوره آزمايشي و كد شماره 10 نشاندهنده فعال بودن و يا همان ثبت بودن برنامه ميباشد .

شما ممكنه در نقاط مختلفي بخوايد اين تابع رو بارگذاري كنيد و با استفاده از مقدار برگشتي اون به وضعيت جاري پي ببريد . به طور مثال شما ممكنه اين كد رو در داخل روال انتساب داده شده به دكمه اي كه عمليات نمايش يك گزارش رو به انجام ميرسونه فراخواني كنيد . در صورتي كه اين گزارش در يك جلسه كاري به دفعات زيادي از سوي كاربر مورد استفاده قرار ميگيره ، فراخواني چندين باره قفل ميتونه تا حدودي براي كاربر ايجاد مزاحمت كنه ( با توجه به مكثهاي صورت پذيرفته تا زمان اجراي فرمان مورد نظر )

راه حل پيشنهادي رو در ادامه ذكر ميكنم تا سربار كاري رو به نحوي قابل توجه كاهش بديم :

همونطوري كه ميدونيد ميشه اقدام به تعريف يك متغير كرد تا اين متغير عمليات نگهداري يك نوع داده رو به عهده بگيره .

ما متغير رو به صورت زير تعريف ميكنم :

Dim XYZ As Byte

دقت كنيد كه نام XYZ اختياري بوده و شما هر نامي رو ميتونيد به اين متغير اختصاص بديد .

نوع اين متغير رو هم از نوع همون مقدار برگشتي از تابع Initialize قرار داديم يعني Byte .

در داخل فرمها و گزارشها ميتونيد اين قطعه كد رو در بالاترين بخش ماژول موجود در داخل هر يك از اونها كپي كنيد .

در اين حالت شما اين متغير رو به نحوي تعريف كرديد كه براي تمامي روالهاي موجود در داخل فرم و يا گزارش مورد نظر قابل دسترسي باشه .

حال با يك بار فراخواني تابع Initialize و انتساب اون به اين متغير ، در دفعات بعدي شما فقط نيار داريد كه مقدار موجود در داخل اين متغير رو مورد بررسي قرار بديد . به قطعه كد زير توجه كنيد :

کد: 

XYZ=Initialize( ….. )

قبلاً ممكن بود كه شما از خروجي تابع Initialize به صورت زير استفاده مي كرديد :

به طور مثال در داخل روال On Click يك دكمه ، دستور زير رو فراخواني كرديد :

کد: 

If Initialize(…..)<>10 Then

MsgBox "Sample Nag Message"

End if

در قطعه كد بالا قصد داريد كه كاربر در صورتي كه برنامه رو ثبت نكرده پيغامي مزاحم رو مشاهده كنه . اگه دقت كرده باشيد در اين حالت كاربر علاوه برمشاهده پيغام مزاحم با تاخيري در اجراي فرمان مورد نظرش هم مواجه ميشه .

كد بالا رو ميتونيد به صورت زير بنويسيد :

کد: 

If XYZ<>10 Then

MsgBox "Sample Nag Message"

End if

نتيجه در هر دو حالت هموني ميشه كه شما انتظار داريد ولي اين بار بدون تاخير ناشي از اجراي تابع Initialize

نكته : در حالت دوم شما نياز داريد كه حداقل يك بار تابع Initialize رو فراخواني كرده باشيد . اين روال ميتونه در داخل رويدار On Load فرم بوده باشه . در اين حالت مقدار برگشتي به XYZ انتساب داده ميشه و شما ميتونيد از اون مقدار به دفعات متوالي در نقاط مختلف استفاده به عمل بياريد ، بدون اينكه تاثيري بر روي كارايي برنامه داشته باشه .

خوشبختانه تابع Initialize به گونه اي طراحي شده كه حتي در صورت دور زدن روال كنترلي موجود در داخل برنامه شما ( فراخواني تابع ) كد برگشتي به گونه اي خواهد بود كه دال بر عدم ثبت بودن برنامه خواهد داشت و ليكن جهت حصول اطمينان بيشتر توجه شما رو به نكات زير جلب ميكنم :

تابع Initialize رو حداقل در دو رويداد متفاوت مورد بازخواني قرار بديد به طور مثال در دو رويداد On Load و On Activate . در انتخاب اين رويدادها به نكات زير توجه داشته باشيد :

رويداد مرتباً تكرار نشود ( مثل On Current )

در داخل رويدادهاي مورد نظر عملياتي ديگر نيز به انجام برسه تا در صورت حذف رويداد توسط كركر بخشي ديگر از برنامه نيز مختل بشه .

به طور مثال در داخل رويدار On Load علاوه بر فراخواني قفل عمليات انتساب Control Source رو هم به انجام برسونيد .

امكان فراخواني قفل در داخل رويدادهاي تكرار پذير نيز ميتونه ايده اي بسيار مناسب بوده باشه و ليكن جهت انجام اون نياز به انجام مرحله اي اضافه داريد تا در مجموع منجر به كاهش زمان سربار فراخواني تابع Initialize بشيد .

ادامه آموزش رو به جلسه بعد موكول ميكنم .

موفق باشيد