تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أول مشروع لي بلغة Delphi
#11
(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;
الرد
تم الشكر بواسطة: سعود
#12
عرفت الخطا هو موضوع الفاصلة المنقوطة تكون في الاخير ولما يكون بعدها اشياء تكون فاصلة عادية

إقتباس :استبدل ; التي قبلها بفاصلة عادية لأنها ستنظم ضمن المجموعة التي قبلها.
نعم بدأت اتفهم هذه اللغةSmile
الرد
تم الشكر بواسطة: wared , wared
#13
جيد جدا ، بدأتم تفهمون اللغة واساليبها .
موفقين
الرد
تم الشكر بواسطة: wared , سعود , asemshahen5
#14
(21-06-19, 10:44 PM)viv كتب : جيد جدا ، بدأتم تفهمون اللغة واساليبها .
موفقين

(لست مبرمج Delhpi)

الفضل بعد الله يعود لك أستاذاي viv و أستاذي أبوبكر سويدان
الرد
تم الشكر بواسطة: سعود , asemshahen5
#15
ياجماعة الخير
الاحظ ان جملة الشرط If ليست مضبوطة بنهاية  كنت واقع بخطا كبير وتمكنت من معرفة الخطا وذلك بالتزامي باستخدام Begin ---end هذي هي اللتي تضبط مدى جواب  الشرط (وفق مافهمته)

بعد توفيق الله وتيسيره ثم عونكم وتفاعلكم تقدمت للامام بفهم العديد من اساسيات البرمجة.
احدث محاولة مرفقة.


الملفات المرفقة
.zip   MyCalc.zip (الحجم : 37.56 ك ب / التحميلات : 5)
الرد
تم الشكر بواسطة: wared , wared , asemshahen5
#16
(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 لأن القسمة والضرب مقدمة على الجمع والطرح
الرد
تم الشكر بواسطة: سعود , asemshahen5
#17
إقتباس :بقية مسألة: لو تم وضع أكثر من عملية في المرة الواحدة مثل

[2] [+] [6] [/] [2] [=] >>>>> ?
هذي ما سويتها بالفي بيSmile
لو اسويها بالدلفي راح اناقش فيها رسالة دكتوراةSmile
يمكن فيها اجراءات جاهزة ....لا اعلم.
الرد
تم الشكر بواسطة: asemshahen5 , wared , wared
#18
(21-06-19, 11:35 PM)سعود كتب :
إقتباس :بقية مسألة: لو تم وضع أكثر من عملية في المرة الواحدة مثل

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


(لست مبرمج Delphi)

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

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

أما رسالة الدكتوراة فأنت أستاذي سعود لن تصعب عليك.
الرد
تم الشكر بواسطة: سعود , asemshahen5
#19
أخيرا بيدخل سعود للديلفي سيمتلئ المنتدى بمشاريع سعود وأبو همام
سأرفع علم بلادي فوق الجبال ولو اخر عمل في حياتي
-------------------------------------------------------------
تحيا الجمهورية اليمنية
تحيا الجمهورية اليمنية 
تحيا الجمهورية اليمنية
------------------------------------------------------------
شكر خاص لمعلمي الفاضلين
asemshahen5
إبراهيم إيبو
سعود
 Viv
الترتيب لايهم
-----------------------------------------------------------
بعض إسهاماتي
برنامج تشغيل القرآن الكريم
المدخل إلى الفجوال بيسك

الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع لعبة الافعى viv 0 150 07-08-19, 06:51 PM
آخر رد: viv
  Delphi Windows Calculator viv 4 212 07-07-19, 12:38 AM
آخر رد: viv

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم