الة حاسبة صغيرة

[Free_M]

السلام عليكم اخوتي اول موضوع لي في المنتدى وان شاء الله مايكون الاخير
برمجت الة حاسبة بسيطة ان شاء الله تعجبكم انا جديد في استخدام الدلفي لدى الكود كله كان بماتعلمته من الباسكال تقريبا
:d

[STRELiTZIA]

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

بعض الملاحظات على السريع :
- يجب على اداتك ان تقبل الا الأرقام.
- عن عمل C الذي يعمل Clear لا يجب ان يخرج من الــ Edit، اضف اليه SetFocus
- تطويرها لكي تعمل مع لوحة المفاتيح تكون اسرع و افضل.

بالتوفيق ان شاء الله

[nabilkeb]

السلام عليكم اخوتي اول موضوع لي في المنتدى وان شاء الله مايكون الاخير
برمجت الة حاسبة بسيطة ان شاء الله تعجبكم انا جديد في استخدام الدلفي لدى الكود كله كان بماتعلمته من الباسكال تقريبا
:d


السلام عليكم و رحمة الله :
حبذا أخي لو أرفقت السورس ، لكي نتمكن من المساعـدة في تصحيح الأخطاء ، أو نستفيد إذا كانت هناك أفكار مستخدمة جديدة ، و لا ننسا أن الموقع تعليمي ، و ليس لتحميل البرامج ، و إلا فهناك آلات حاسبة احترافية تفي لكل غرض.

إلى جانب ملاحظات الأخ المشرف STRELiTZIA : الفاصلة : لا تعمل الفاصلة إلا التي هي متواجدة فوق (يمين) مسطرة المسافات ، المقترنة بالتاء مربوطة و علامة الإستفهام. أما النقطة بقسم الآلة الحاسبة للوحة المفاتيح ، أو الزر ببرنامجك ، لا تعمل. في الحدث OnKeyPress للــ : Edit

if key in ['.' , ','] then
begin
key := DecimalSeparator;
end; اجبار Edt على قبول الأرقام و الفاصلة و المسح فقط:

if not (Key in [#8, '0'..'9', DecimalSeparator]) then Key := #0;

المهم نشجع كل محاولات الأحباء و أرشدك (لأن أساتذتنا لم يتركو لنا شيئا لقوله) إلى الرابط:
http://www.delphi4arab.com/forum/showthread.php?t=45

[Free_M]

وعليكم السلام
اثلجتم صدري بنصائحكم اخوتي والله
اخي السورس نسيته فقط وان شاء الله راه ادرجه
صح كما ذكرتم فيها اخطاء لاني قلت اني استعملت اكواد الباسكال بنسبة 90 % {مبتدئ في استخدام الدلفي}وان شاء الله راح استخدم الطرق الجديدة التي افادنا بها الاخ مروان

اخ STRELiTZIA : لم افهم قصدك هنا
عن عمل C الذي يعمل Clear لا يجب ان يخرج من الــ Edit، اضف اليه SetFocus

وشكرا لكم :)

[STRELiTZIA]

اخ STRELiTZIA : لم افهم قصدك هنا
عن عمل C الذي يعمل Clear لا يجب ان يخرج من الــ Edit، اضف اليه

عند عمل clear لــ Edit فان الــ Cursor يخرج منها و لا نستطيع الكتابة ثانية الا بعد النقر في الــ Edit مرة اخرى، عمل SetFocus لــ Edit يحل المشكل او كتابة صفر يكون افضل...


مبتدئ في استخدام الدلفي

مرحبا بك بيننا و ان شاء الله تفيد و تستفيد :)

بالتوفيق ان شاء الله

[Free_M]

الف شكر استاذ وصلت الفكرة
راح اعيد برمجتها بهذه الافكار الجديدة وان شاء الله اوفق والجميع كذلك

[nabilkeb]

الف شكر استاذ وصلت الفكرة
راح اعيد برمجتها بهذه الافكار الجديدة وان شاء الله اوفق والجميع كذلك




و أنا أيضا أشكر الأستاذ نيابة عنك فهو دوما بالعون ، و أشجعك: محاولة جيدة ، لقد تخلصت من مشكلة c ، بقيت بعض الملاحظات الطفيفة التي أسلفتها في مشاركتي ، إضافة إلى ملاحظة أخرى ، أرجع عرضها إلى حين تخلصك مما طرح .

بالتوفيق .سلام .

[AvimimuS]

.السلام عليكم
اخي الكريم اظن انه يمكنك الاستفادةمن السورس التالي للالة الحاسبة العلمية
هي رائعة اتمني ان تلقي نظرة علي السورس فانك حنما ستستفيد منه
وشكرا