منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
فكرة آلة حاسبة من تصميمي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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);
 if w = 1 then  edit1.Text := FloatToStr(F1) + FloatToStr(F2)  ;
 if w = 2 then  edit1.Text := FloatToStr(F1 - F2)  ;
 if w = 3 then  edit1.Text := FloatToStr(F1 * F2)  ;
 if w = 4 then  edit1.Text := FloatToStr(F1 / F2)  ;

في حدث المهمات

كود :
F1:=StrToFloat(edit1.Text);
edit1.Text:='';
w:= (sender as TButton).Tag;

في حدث التصفير

كود :
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 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 جامد
تكون له كلمة سر مع مجموعة من الاشخاص في العالم العربي ينقحونه
او مفتوح للجميع حتى يتحول الى كتاب ضخم يحوي كل الفصول والاقسام والمواضيع ويشرحها بدقة
فكرة انه يتنقح هي في امكانية الاضافة والتعديل خطوة بخطوة فلو اردت ان تصنع كتابا ضخما من الصفر مرة واحدة لن تستطيع تحتاج الى فريق ولمدة من الزمن
العمل جاري فيه
واستخدمت مكونات جيدة تعرض الصور وتنسق النص ومشكلتها لا تدعم اللغة العربية
اخر مرة خاطبت الشركة فقالوا لاي الاصدارة القادمة سوف ندعمها
وظهرت الاصدارة ولم يدعموها
ولا زلت ابحث عن بدائل لها .