فكرة آلة حاسبة من تصميمي - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213) +--- قسم : قسم أمثلة ومشاريع Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=216) +--- الموضوع : فكرة آلة حاسبة من تصميمي (/showthread.php?tid=30194) |
فكرة آلة حاسبة من تصميمي - viv - 07-07-19 اردت ان اجرب برمجة ألة حاسبة حيث انني لم ابرمجها من قبل الاخ ابراهيم اشار الى الة حاسبة فيها 150 سطر برمجي رفعتها من موقع اجنبي وقال ان الفيجوال دوت نت برمجها في 58 سطر برمجي وانا شعرت ان هذا العدد مبالغ فيه سواء كان في الدلفي او حتى الدوت نت . وهذا الفضول قادني الى رؤية ما يحدث بصراحة نظرا لضيق الوقت لم اتمكن من مراجعة الكود بالبرنامج الذي رفعناه من موقع اجنبي ولكن اليكم الطريقة العفوية التي وجدت نفسي اتخذها لبرمجة المشروع [attachment=21975] في الحدث كليك للازرار كود : edit1.Text := edit1.Text + (sender as TButton).Caption; في حدث التنفيذ كود : F2:=StrToFloat(edit1.Text); في حدث المهمات كود : F1:=StrToFloat(edit1.Text); في حدث التصفير كود : F1:=0;F2:=0;edit1.Text:=''; بالنهاية كانت تعمل بشكل جيد وبحوالي عشرة سطور فقط وطبعا هنا لا دخل للدلفي بالاختصار يمكن فعل نفس الشئ في الفيجوالبيسك 6 او الدوت نت الاسلوب احيانا يختصر الكثير من البرمجة ارجوا ان تستفيدوا من هذا [attachment=21974] RE: فكرة آلة حاسبة من تصميمي - sendbad100 - 07-07-19 السلام عليكم
الله يبارك فيك ويجعل كل ما تقدمه في ميزان حسناتك
يبدو انك وضعت المثال على عجل حيث لم تجرب الجمع.
بالنسبة لكود الجمع وضعته مختلف عن باقي العمليات حيث 5+5 = 55
كود : if w = 1 then edit1.Text := FloatToStr(F1) + FloatToStr(F2) ; نجعله مثل باقي العمليات. PHP كود : if w = 1 then edit1.Text := FloatToStr(F1 + F2) ; شكرا لك
RE: فكرة آلة حاسبة من تصميمي - viv - 07-07-19 إقتباس :يبدو انك وضعت المثال على عجل حيث لم تجرب الجمع. فعلاً هذا ما حصل ، شكرا على التصحيح RE: فكرة آلة حاسبة من تصميمي - ابراهيم ايبو - 07-07-19 السلام عليكم ورحمة الله وبركاته
هكذا الامور تمام وهي اقرب ماتكون الى Vb اذا اضفنا كود للباك سباس وعدم تكرار الفاصلة
واذا لم نحسب سطور Sub و end Sub تكون الامور متوازنة بل الغلبة للدلفي
وهذا ماكنت اتوقعه من الدلفي
دمت بخير
RE: فكرة آلة حاسبة من تصميمي - viv - 12-07-19 إقتباس :اذا اضفنا كود للباك سباس وعدم تكرار الفاصلة نسيت ان اقول ان هناك مكون اسمه TextNember ومع ادوات احيانا يكون اسمه NumberOnly او يأتي باسماء اخرى مختلفة كنت اريد ان استخدمه تم تراجعت عن ذلك حيث باستخدامه لا تحتاج الى معالجة الرقم المدخل ، ولن تحتاج الى معالجة تكرار الفاصلة . هناك ايضا ActionList لها وظائف مختلفة مع قواعد البيانات تقوم بالاضافة والتعديل والحذف بدون كود برمجي وانما بربطها بالازرار مثلا عن طريق الخاصية Action ومع النصوص تقوم بمهام النسخ واللصق والحذف والقطع والبحث وامور اخرى وهي مختلفة ومتنوعة بحسب المكونات المبرمجة التي تقوم بثبيتها وبحسب نوع البيانات الذي تتعامل معه اذا تذكرون رفعت مثال حذف واضافة وتعديل وقلت بدون كود استخدمت فيه وقتها هذه الـ Action RE: فكرة آلة حاسبة من تصميمي - ابراهيم ايبو - 12-07-19 السلام عليكم اخي ابو همام
تعجبني فيك ميزة مراجعة اعمالك ومنشوراتك
وتحديثها واضافة معلومات ولمسات جديدة تزيد في اغناء ماقدمته
احييك واحيي فيك هذه الروح العالية من الاهتمام
تقبل تحياتي وجزاك الله خيرا
+1
RE: فكرة آلة حاسبة من تصميمي - viv - 12-07-19 إقتباس :السلام عليكم اخي ابو همام وعليكم السلام ورحمة الله أخ ابراهيم انا امر على المواضيع لعل هناك من سأل سؤال او استفسر عن شئ ما . ذكرتني بفكرة كتاب اللكتروني كنت افكر من وقت قريب في انشاءه قابل للتعديل والحذف والاضافة وليس مجرد كتاب Pdf جامد تكون له كلمة سر مع مجموعة من الاشخاص في العالم العربي ينقحونه او مفتوح للجميع حتى يتحول الى كتاب ضخم يحوي كل الفصول والاقسام والمواضيع ويشرحها بدقة فكرة انه يتنقح هي في امكانية الاضافة والتعديل خطوة بخطوة فلو اردت ان تصنع كتابا ضخما من الصفر مرة واحدة لن تستطيع تحتاج الى فريق ولمدة من الزمن العمل جاري فيه واستخدمت مكونات جيدة تعرض الصور وتنسق النص ومشكلتها لا تدعم اللغة العربية اخر مرة خاطبت الشركة فقالوا لاي الاصدارة القادمة سوف ندعمها وظهرت الاصدارة ولم يدعموها ولا زلت ابحث عن بدائل لها . |