ملخص البرنامج : سنقوم ببرمجة برنامج يقوم بعمل الآتي :
- تحديد عدد الأحرف أو الأرقام في أداة 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
2016-01-22, 11:20 am
