الة حاسبة صغيرة - نسخة قابلة للطباعة

الة حاسبة صغيرة - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : الة حاسبة صغيرة (/showthread.php?tid=294)

الة حاسبة صغيرة - Free_M - 05-12-2008

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

الة حاسبة صغيرة - STRELiTZIA - 06-12-2008

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

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

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

الة حاسبة صغيرة - nabilkeb - 06-12-2008

Free_M كتب :
[FONT=arial black]السلام عليكم اخوتي اول موضوع لي في المنتدى وان شاء الله مايكون الاخير
برمجت الة حاسبة بسيطة ان شاء الله تعجبكم انا جديد في استخدام الدلفي لدى الكود كله كان بماتعلمته من الباسكال تقريبا
: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.net/forum/showthread.php?tid=45

الة حاسبة صغيرة - Free_M - 06-12-2008

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

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

وشكرا لكم

الة حاسبة صغيرة - STRELiTZIA - 06-12-2008

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

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

إقتباس :مبتدئ في استخدام الدلفي

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

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

الة حاسبة صغيرة - Free_M - 11-12-2008

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

الة حاسبة صغيرة - nabilkeb - 12-12-2008

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

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

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

الة حاسبة صغيرة - AvimimuS - 27-12-2008

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