بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله تعالى و بركاته درس
اليوم طويل و هو عن كيفية " برمجة برنامج لمعرفة قوة كلمة السر " لذلك لن أطيل و سأبدأ مباشرة
ملخص البرنامج : سنقوم ببرمجة برنامج يقوم
بعمل الآتي :
-
تحديد عدد الأحرف أو الأرقام في أداة edit1
-
استخدام الجملة الشرطية للسماح أو لرفض كلمة
السر
-
السماح بإظهار زر المرور إذا كانت كلمة السر
قوية
1-
ابدأ مشروع جديد في الدلفي و أضف المكونات
التالية إلى الفورم الأول وغير خصائصها كما يلي :
المكون
|
الخاصية
|
تصبح
|
Button1
|
Caption
|
تحقق
|
Edit1
|
Text
|
كلمة السر
|
Passwordchar
|
*
|
|
ProgressBar1
|
Max
|
50
|
Min
|
0
|
|
Button2
|
Caption
|
دخول
|
Visible
|
False
|
|
Edit2
|
Text
|
|
Visible
|
False
|
2-
قم بكتابة الأمر التالي في حدث الضغط على
الزر button1
Var
s :string;
Begin
s:=edit1.text;
Edit2.text:=IntToStr(length(s));
|
3-
سنقوم الآن بشرح موجز للمرحلة الأولى :
الأداة
|
شرح موجز
|
Button1
|
هذه الأداة هي
الزر الأول الذي يتحقق من عدد الأحرف في كلمة السر
|
Edit1
|
نكتب فيها كلمة
السر و نجعل الأحرف تظهر بشكل نجوم
|
ProgressBar1
|
هذه الأداة
لإعطائك نسبة معينة لقوة كلمة السر حيث قمنا بتحديد 50 حرف كالحد الأقصى لجعل الأداة في الوضع المكتمل
|
Button2
|
هذه الأداة لا
للذهاب إلى الفورم الثاني و هي لا تظهر إلى إذا تحقق الشرط الذي سنضعه
|
Edit2
|
هذه الأداة تكون
مخفية و هي لكتابة عدد الأحرف في الجملة
|
4-
سنقوم الآن بشرح موجز للمرحة الثانية :
s
|
هو السلسلة
المطلوب حسابها
|
IntToStr
|
لتحويل المتغير
إلى قيمة نصية قابلة للقراءة
|
length
|
هذه هي الدالة
التي تقوم بحساب عدد الأحرف أو الأرقام داخل الأداة edit1
|
5-
قم بإضافة الكود التالي إلى الكود السابق
if edit2.Text <'6' then ProgressBar1.Position:=10;
if
edit2.Text >'14' then ProgressBar1.Position:=50;
|
6-
سنقوم بشرح المرحلة السابقة : الكود الأول
معناه : إذا كان النص الموجود في الأداة edit2 أقل من 6 إذا تتغير قيمة أداة progressBar إلى 10 و الكود الثاني يختلف في الإشارة فقط
7-
قم بإضافة الكود التالي
إلى سابقه :
If ProgressBar1.Position:=50
then button2.visible:=true;
|
8-
يقوم هذا الكود بإظهار الزر المخفي button2 في حال تحقق الشرط و هو أن تكون قيمة الأداة ProgressBar1 هي 50
ليست هناك تعليقات