إشترك

إشترك

برمجة برنامج لمعرفة قوة كلمة السر


  بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله تعالى و بركاته درس اليوم طويل و هو عن كيفية " برمجة برنامج لمعرفة قوة كلمة السر "  لذلك لن أطيل و سأبدأ مباشرة
ملخص البرنامج : سنقوم ببرمجة برنامج يقوم بعمل الآتي :
-         تحديد عدد الأحرف أو الأرقام في أداة 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



و السلام عليكم و رحمة الله تعالى و بركاته
الاشتراك في: الرسائل (Atom)
جميع الحقوق محفوظة لــ تعلم دلفي بالعربية 2015 ©