منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أول مشروع لي بلغة Delphi - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم أمثلة ومشاريع Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=216)
+--- الموضوع : أول مشروع لي بلغة Delphi (/showthread.php?tid=29956)

الصفحات: 1 2 3

RE: أول مشروع لي بلغة Delphi - wared - 21-06-19

(21-06-19, 10:17 PM)سعود كتب :
(21-06-19, 09:40 PM)أبوبكر سويدان كتب :
(21-06-19, 09:14 PM)سعود كتب : انا استخدمت نوع نص للارقام بحيث يمكن عملية الضم لبعض في الشاشة الخاصة بالعرض ولا مشكلة الا بالعدد العشري.
ايضا اتمنى ان اجد كود للتحقق من هل label تحتوي نص معين او رمز مثل
if label1.text.contains("=") then....
مشكلة رسالة الخطا زالت بعد دوال التحويل.
بقي كود التحقق من ان الشاشة تحتوي على علامة = ام لا.


كود :
uses
 StrUtils;
..
   if ContainsText(Label1.Caption, '=') then


اذا الصورة واضحة فيه خط متعرج احمر ماهي المشكلة؟



إقتباس :[dcc32 Error] MyCalc.pas(8): E2029 Declaration expected but identifier 'StrUtils' found


(لست مبرمج Delphi)

استبدل ; التي قبلها بفاصلة عادية لأنها ستنظم ضمن المجموعة التي قبلها.

كود :
...
Vcl.ExtCtrls,StrUtils;


RE: أول مشروع لي بلغة Delphi - سعود - 21-06-19

عرفت الخطا هو موضوع الفاصلة المنقوطة تكون في الاخير ولما يكون بعدها اشياء تكون فاصلة عادية
إقتباس :استبدل ; التي قبلها بفاصلة عادية لأنها ستنظم ضمن المجموعة التي قبلها.
نعم بدأت اتفهم هذه اللغةSmile

RE: أول مشروع لي بلغة Delphi - viv - 21-06-19

جيد جدا ، بدأتم تفهمون اللغة واساليبها .
موفقين

RE: أول مشروع لي بلغة Delphi - wared - 21-06-19

(21-06-19, 10:44 PM)viv كتب : جيد جدا ، بدأتم تفهمون اللغة واساليبها .
موفقين

(لست مبرمج Delhpi)

الفضل بعد الله يعود لك أستاذاي viv و أستاذي أبوبكر سويدان

RE: أول مشروع لي بلغة Delphi - سعود - 21-06-19

ياجماعة الخير
الاحظ ان جملة الشرط If ليست مضبوطة بنهاية  كنت واقع بخطا كبير وتمكنت من معرفة الخطا وذلك بالتزامي باستخدام Begin ---end هذي هي اللتي تضبط مدى جواب  الشرط (وفق مافهمته)
بعد توفيق الله وتيسيره ثم عونكم وتفاعلكم تقدمت للامام بفهم العديد من اساسيات البرمجة.
احدث محاولة مرفقة.

RE: أول مشروع لي بلغة Delphi - wared - 21-06-19

(21-06-19, 11:07 PM)سعود كتب : ياجماعة الخير
الاحظ ان جملة الشرط If ليست مضبوطة بنهاية  كنت واقع بخطا كبير وتمكنت من معرفة الخطا وذلك بالتزامي باستخدام Begin ---end هذي هي اللتي تضبط مدى جواب  الشرط (وفق مافهمته)


(لست مبرمج Delphi)
(لست مبرمج VB.NET)
(لست مبرمج #C)

تبسيط

في VB.NET
حالة تنفيذ أمر واحد عند توافق الشرط
كود :
If condition Then action

حالة تنفيذ أكثر من أمر عند توافق الشرط
كود :
If condition Then
  action1
  action2
End if

في C#.NET
حالة تنفيذ أمر واحد عند توافق الشرط
كود :
if(condition) action;

حالة تنفيذ أكثر من أمر عند توافق الشرط
كود :
if(condition)
{
  action1;
  action2;
}

في Delphi
حالة تنفيذ أمر واحد عند توافق الشرط
كود :
if condition then
  action;

حالة تنفيذ أكثر من أمر عند توافق الشرط
كود :
if condition then
begin
  action1;
  action2;
end;
(21-06-19, 11:07 PM)سعود كتب : ياجماعة الخير
الاحظ ان جملة الشرط If ليست مضبوطة بنهاية  كنت واقع بخطا كبير وتمكنت من معرفة الخطا وذلك بالتزامي باستخدام Begin ---end هذي هي اللتي تضبط مدى جواب  الشرط (وفق مافهمته)
بعد توفيق الله وتيسيره ثم عونكم وتفاعلكم تقدمت للامام بفهم العديد من اساسيات البرمجة.
احدث محاولة مرفقة.

ما شاء الله أستاذي سعود

بقية مسألة: لو تم وضع أكثر من عملية في المرة الواحدة مثل
[2] [+] [6] [/] [2] [=] >>>>> ? يفترض الناتج 5 لأن القسمة والضرب مقدمة على الجمع والطرح

RE: أول مشروع لي بلغة Delphi - سعود - 21-06-19

إقتباس :بقية مسألة: لو تم وضع أكثر من عملية في المرة الواحدة مثل

[2] [+] [6] [/] [2] [=] >>>>> ?
هذي ما سويتها بالفي بيSmile
لو اسويها بالدلفي راح اناقش فيها رسالة دكتوراةSmile
يمكن فيها اجراءات جاهزة ....لا اعلم.

RE: أول مشروع لي بلغة Delphi - wared - 22-06-19

(21-06-19, 11:35 PM)سعود كتب :
إقتباس :بقية مسألة: لو تم وضع أكثر من عملية في المرة الواحدة مثل

[2] [+] [6] [/] [2] [=] >>>>> ?
هذي ما سويتها بالفي بيSmile
لو اسويها بالدلفي راح اناقش فيها رسالة دكتوراةSmile
يمكن فيها اجراءات جاهزة ....لا اعلم.


(لست مبرمج Delphi)

تحتاج لقراءة هذان الموضوعان:
التعريف بـ PostFix و PreFix و InFix ومجالات استخدامهم - الدرس الثالث
تقييم التعبيرات الجبرية (الحسابية) المكتوبة كسلسلة نصية - String

ستحتاج إلى استخدام Stack وهو في الديلفي TStack

أما رسالة الدكتوراة فأنت أستاذي سعود لن تصعب عليك.

RE: أول مشروع لي بلغة Delphi - أمجد وضاح - 14-12-19

أخيرا بيدخل سعود للديلفي سيمتلئ المنتدى بمشاريع سعود وأبو همام

RE: أول مشروع لي بلغة Delphi - None - 04-03-24

متألق يا سعود كعادتك سباق للتعلم
أرجوا ان تكون أنت وجميع الاخوة هنا بخير