|
الة حاسبة صغيرة
|
05-12-2008, 08:42 PM
السلام عليكم اخوتي اول موضوع لي في المنتدى وان شاء الله مايكون الاخير
برمجت الة حاسبة بسيطة ان شاء الله تعجبكم انا جديد في استخدام الدلفي لدى الكود كله كان بماتعلمته من الباسكال تقريبا :d
06-12-2008, 10:04 AM
و عليكم السلام و رحمة الله
بعض الملاحظات على السريع : - يجب على اداتك ان تقبل الا الأرقام. - عن عمل C الذي يعمل Clear لا يجب ان يخرج من الــ Edit، اضف اليه SetFocus - تطويرها لكي تعمل مع لوحة المفاتيح تكون اسرع و افضل. بالتوفيق ان شاء الله
06-12-2008, 12:26 PM
Free_M كتب :السلام عليكم و رحمة الله : حبذا أخي لو أرفقت السورس ، لكي نتمكن من المساعـدة في تصحيح الأخطاء ، أو نستفيد إذا كانت هناك أفكار مستخدمة جديدة ، و لا ننسا أن الموقع تعليمي ، و ليس لتحميل البرامج ، و إلا فهناك آلات حاسبة احترافية تفي لكل غرض. إلى جانب ملاحظات الأخ المشرف STRELiTZIA : الفاصلة : لا تعمل الفاصلة إلا التي هي متواجدة فوق (يمين) مسطرة المسافات ، المقترنة بالتاء مربوطة و علامة الإستفهام. أما النقطة بقسم الآلة الحاسبة للوحة المفاتيح ، أو الزر ببرنامجك ، لا تعمل. في الحدث OnKeyPress للــ : Edit كود : if key in ['.' , ','] then
begin
key := DecimalSeparator;
end;كود : if not (Key in [#8, '0'..'9', DecimalSeparator]) then Key := #0;المهم نشجع كل محاولات الأحباء و أرشدك (لأن أساتذتنا لم يتركو لنا شيئا لقوله) إلى الرابط: http://www.delphi4arab.net/forum/showthread.php?tid=45
06-12-2008, 02:33 PM
وعليكم السلام
اثلجتم صدري بنصائحكم اخوتي والله اخي السورس نسيته فقط وان شاء الله راه ادرجه صح كما ذكرتم فيها اخطاء لاني قلت اني استعملت اكواد الباسكال بنسبة 90 % {مبتدئ في استخدام الدلفي}وان شاء الله راح استخدم الطرق الجديدة التي افادنا بها الاخ مروان اخ STRELiTZIA : لم افهم قصدك هنا
عن عمل C الذي يعمل Clear لا يجب ان يخرج من الــ Edit، اضف اليه SetFocus وشكرا لكم
06-12-2008, 07:36 PM
إقتباس :اخ STRELiTZIA : لم افهم قصدك هناعند عمل clear لــ Edit فان الــ Cursor يخرج منها و لا نستطيع الكتابة ثانية الا بعد النقر في الــ Edit مرة اخرى، عمل SetFocus لــ Edit يحل المشكل او كتابة صفر يكون افضل... إقتباس :مبتدئ في استخدام الدلفيمرحبا بك بيننا و ان شاء الله تفيد و تستفيد بالتوفيق ان شاء الله
11-12-2008, 09:15 PM
الف شكر استاذ وصلت الفكرة
راح اعيد برمجتها بهذه الافكار الجديدة وان شاء الله اوفق والجميع كذلك
12-12-2008, 12:30 AM
free_m كتب : و أنا أيضا أشكر الأستاذ نيابة عنك فهو دوما بالعون ، و أشجعك: محاولة جيدة ، لقد تخلصت من مشكلة c ، بقيت بعض الملاحظات الطفيفة التي أسلفتها في مشاركتي ، إضافة إلى ملاحظة أخرى ، أرجع عرضها إلى حين تخلصك مما طرح . بالتوفيق .سلام . |
|
|
