إشترك

إشترك

التعامل مع العمليات الحسابية في دلفي



بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله تعالى و بركاته في درس اليوم سنتعلم كيف نتعامل مع العمليات الحسابية في دلفي حيث سنتطرق لها بالتفصيل و إنشاء الله إن ينال هذا الدرس إعجابكم و نبدأ على بركة الله  و لكن يجب إعطاء كل شيء قدر كبيرا من الأهمية :
الطريقة الأولى لانجاز العمليات الحسابية
1-    كيف تجرى العمليات الحسابية  لا بد أولا من توفر الأدوات التي سنقوم فيها بكتابة الأعداد التي سنقوم بكتابتها فلا بد أولا من توفر 3 أدوات edit   أو 2 فقط حيث يمكن استبدا الثالثة بأداة label  للنتيجة  يكون النص الموجود فيها 0   و 4 أدوات button  لكي تقوم بالحساب  و بعض المكونات الأخرى لتحسين الشكل و توضع البرنامج و هي 4 أداوت label  و بعدها سيصبح شكل الفورم هكذا :       

2-    أكتب الكود في كل زر حسب نوع العملية الحسابية و سأقوم بوضع الكود الخاص بعملية الجمع
Edit3.text:=floattostr(strtofloqt(edit1.text) + strtofloat(edit2.text));
و الآن سنشرح الكود بالتفصيل
الكود أو الأداة
الشرح
Edit3.text
في النص الموجود في هذه الأداة تظهر النتيجة كتابيا
FloatToStr
هذا السطر البرمجي معناه أن القيمة التي ستظهر في أداة النتيجة هي قيمة حرفية حيث أن وضيفة هذا السطر هو تحويل النتيجة من القيمة العددية من النوع flaot  إلى حرفية string  
StrToFloat
هو عكس الشرح السابق و هذا الكود من أجل تحويل القيمة النصية الموجودة في الأداة إلى قيمة عددية لكي يتم التعرف عليها و حسابها فلا يمكن حساب القيمة النصية
Edit1.text
النص الموجود في هذه الأداة هو العدد الأول
Edit2.text
النص الموجود في هذه الأداة هو العدد الثاني

الطريقة الثانية لإنجاز العمليات الحسابية
 الطريقة الثانية تقريبا هي نفس الطريقة و لكن الطريقة الثانية فيها بعض المميزات و سنشرحها و الآن قم بإضافة المكونات كما تبين الصورة التالية :

و بعدها قم بكتابة الكود التالي في حدث الضغط على الزر + و قبل ذلك قم بحذف begin  لكي لا تختلط الأمور
1
var
b,a : integer;
r : string;
begin
b:=strtoint(edit1.text);
a:=strtoint(edit2.text);
r:=inttostr(strtoint(edit1.Text) + strtoint(edit2.Text);)
label1.Caption:=r;
2
3
4
5
6
7
8

الآن سنقوم بشرح كل ما كتبناه واحدة بواحدة :
1)    يعني سنقوم بكتابة متغير و هو الذي يمكن أن يتغير أو يعدل عليه أثناء تنفيذ البرنامج
2)    قمنا بإضافة متغيرين   a  و  b  من نوع integer   إي عدد صحيح أو عدد تام
3)    قمنا بإضافة متغير r  من نوع string   أي قيمة حرفية يمكن قراءتها بواسطة الأدوات الموجودة في دلفي
4)    بداية السطر البرمجي
5)    قمنا بتعين قيمة للمتغير b   و هي العدد الموجود في الأداة edit1 
6)    نفس الشرح السابق
7)    قمنا بتحديد أن قيمة  r    الحرفية تساوي جمع القيمتين الرقميتين  و تحويلهما لقيمة حرفية قابلة للقراءة
8)    قمنا بتحديد الأداة التي تساوي قيمتها قيمة r  أي الأداة التي ستظهر لنا النتيجة
أما لم أراد أن يقوم ببرمجة آلة حاسبة دون اللجوء للأزرار الكثيرة فأقترح عليه هذا الموضوع من هذا الرابط
Learn-delphi-blog.blogspot.com/calc-whith-delphi

السلام عليكم و رحمة الله تعالى و بركاته

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


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