تكتب برامج الكمبيوتر لتسهيل حياة الإنسان، وإسناد بعض المهام إلى آلة كالحاسوب. ولعل من بين المهام الروتينية هي القيام بعمليات حسابية أو كتابة عبارات توجه المستعمل وتخبره بما يحدث أوسيحدث أو ما يجب القيام به .
إذا كنت تريد البدأ في تعلم لغة برمجة وتبحث عن طريقة للبدأ في كتابة الأوامر وتنفيذها، إليك طريقة لتصميم برنامج يكتب العبارة "مرحبا" باستعمال المنصة Delphi 10.2 وهي منصة مدمجة تستعمل لغة البرمجة البسكال ومصطلحاته.
إذا كنت لا تملك نسخة من هذا البرنامج يمكنك الحصول على نسخة مجانية على هذا الرابط : تحميل Delphi Starter Edition
بعد تحميل هذه المنصة وتثبيتها يمكن أن نبدأ في البرمجة من خلال اتباع المراحل التالية :
1- قم بتشغيل المنصة بالنقر على الزر أبدأ لويندوز ثم اختيار Delphi 10.2 من قائمة البرامج ,
2- في الإطار الرئيسي (في الشكل التالي) نختار إنشاء تطبيق جديد ثم على الإطار الظاهر ننقر على الخيار "Console Application"
3- نبدأ بكتابة البرنامج ، ونفرض أن هذا البرنامج يقوم بحساب مجموع عددين 5 و 6 فنكتب الأمر
writeln('5+6=',5+6)
تحت العبارة Try كما في الشكل :
4- ننفذ البرنامج بالنقر على ألأمر تنفيذ في شريط الأذوات أو باستعمال المفتاح F9 في لوحة المفاتيح,ثم نلاحظ النتيجة :
5- الآن بدلا من أن يقوم البرنامج بإجراء عملية حسابية ، يعرض العبارة " مرحبا" وللحصول على هذه النتيجة نقوم بالتعديلات الموضحة في هذا الكود :
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, VCL.Dialogs;
begin
try
showmessage('مرحبـــــــا');
readln;
{ TODO -oUser -cConsole Main : Insérer du code ici }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.;
ننفذ البرنامج بالضغط على المفتاح F9
استعمال العناصر المرئية
:التطبيقًات الحديثًة نادرًا ما تبدو مثل برنامج الكونسول القديم هذا ،
ولكن عادة ما تكون مصنوعة من العناصر المرئية (المشار إليها باسم عناصر التحكم "كونترولز") المعروضة على نوافذ "فورمز".
يستعمل الدلفي نوعين من مكتبات عناصر التحكم وهما مكتبة العناصر المرئية "VCL" الخاصة بسطح مكتب أجهزة الحاسوب ، والمكتبة "FireMonkey" أو "FMX" والخاصة بأجهزة الحاسوب والأجهزة المحمولة في نفس الوقت.
والشكل التالي يوضح تطبيق على الأجهزة المحمولة لعرض فورم تحتوي على زر وحيد :
بالضغط المزدوج على الزر نحصل على الكود التالي :
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
يمكن كتابة الكود بين العبارتين begin و end هذا الكود ينفذه التطبيق عند الضغط على الزر "Button1"كما يلي :
procedure TForm1.Button1Click(Sender: TObject);
var
strMessage: string;
begin
strMessage := 'مرحبا ، كيف حالكم';
ShowMessage (strMessage);
end;
تنفيذ هذا البرنامج يعطينا الشكل التالي :
على جهاز الهاتف يمكن أن نحصل على الشكل التالي :
