منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : أول مشروع لي بلغة Delphi
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
(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;
عرفت الخطا هو موضوع الفاصلة المنقوطة تكون في الاخير ولما يكون بعدها اشياء تكون فاصلة عادية

إقتباس :استبدل ; التي قبلها بفاصلة عادية لأنها ستنظم ضمن المجموعة التي قبلها.
نعم بدأت اتفهم هذه اللغةSmile
جيد جدا ، بدأتم تفهمون اللغة واساليبها .
موفقين
(21-06-19, 10:44 PM)viv كتب : [ -> ]جيد جدا ، بدأتم تفهمون اللغة واساليبها .
موفقين

(لست مبرمج Delhpi)

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

بعد توفيق الله وتيسيره ثم عونكم وتفاعلكم تقدمت للامام بفهم العديد من اساسيات البرمجة.
احدث محاولة مرفقة.
(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 لأن القسمة والضرب مقدمة على الجمع والطرح
إقتباس :بقية مسألة: لو تم وضع أكثر من عملية في المرة الواحدة مثل

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

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


(لست مبرمج Delphi)

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

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

أما رسالة الدكتوراة فأنت أستاذي سعود لن تصعب عليك.
أخيرا بيدخل سعود للديلفي سيمتلئ المنتدى بمشاريع سعود وأبو همام
متألق يا سعود كعادتك سباق للتعلم
أرجوا ان تكون أنت وجميع الاخوة هنا بخير
الصفحات : 1 2 3