تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فكرة آلة حاسبة من تصميمي
#1
اردت ان اجرب برمجة ألة حاسبة حيث انني لم ابرمجها من قبل
الاخ ابراهيم اشار الى الة حاسبة فيها 150 سطر برمجي رفعتها من موقع اجنبي 
وقال ان الفيجوال دوت نت برمجها في 58 سطر برمجي

وانا شعرت ان هذا العدد مبالغ فيه سواء كان في الدلفي او حتى الدوت نت .
وهذا الفضول قادني الى رؤية ما يحدث

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


   

في الحدث كليك للازرار

كود :
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 او الدوت نت

الاسلوب احيانا يختصر الكثير من البرمجة
ارجوا ان تستفيدوا من هذا


.rar   calc.rar (الحجم : 115.65 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5 , sendbad100
#2
السلام عليكم

الله يبارك  فيك ويجعل كل ما تقدمه في ميزان حسناتك 

يبدو انك وضعت المثال على عجل حيث لم تجرب الجمع.

بالنسبة لكود الجمع  وضعته مختلف عن باقي العمليات  حيث  5+5 = 55
كود :
if w = 1 then  edit1.Text := FloatToStr(F1) + FloatToStr(F2)  ;

 نجعله مثل باقي العمليات.


PHP كود :
if 1 then  edit1.Text := FloatToStr(F1 F2) ; 

 

شكرا لك
الرد
تم الشكر بواسطة: viv , ابراهيم ايبو
#3
إقتباس :يبدو انك وضعت المثال على عجل حيث لم تجرب الجمع.

فعلاً هذا ما حصل ، شكرا على التصحيح
الرد
تم الشكر بواسطة: sendbad100 , ابراهيم ايبو
#4
السلام عليكم ورحمة الله وبركاته
هكذا الامور تمام  وهي اقرب ماتكون الى Vb  اذا اضفنا كود للباك سباس وعدم تكرار الفاصلة
واذا لم نحسب سطور Sub و end Sub تكون الامور متوازنة بل الغلبة للدلفي
وهذا ماكنت اتوقعه من الدلفي
دمت بخير
الرد
تم الشكر بواسطة: viv , viv , sendbad100 , asemshahen5
#5
إقتباس :اذا اضفنا كود للباك سباس وعدم تكرار الفاصلة


نسيت ان اقول ان هناك مكون اسمه TextNember ومع ادوات احيانا يكون اسمه NumberOnly او يأتي باسماء اخرى مختلفة
كنت اريد ان استخدمه تم تراجعت عن ذلك
حيث باستخدامه لا تحتاج الى معالجة الرقم المدخل ، ولن تحتاج الى معالجة تكرار الفاصلة .
هناك ايضا ActionList لها وظائف مختلفة
مع قواعد البيانات تقوم بالاضافة والتعديل والحذف بدون كود برمجي وانما بربطها بالازرار مثلا عن طريق الخاصية Action 
ومع النصوص تقوم بمهام النسخ واللصق والحذف والقطع والبحث وامور اخرى
وهي مختلفة ومتنوعة بحسب المكونات المبرمجة التي تقوم بثبيتها وبحسب نوع البيانات الذي تتعامل معه
اذا تذكرون رفعت مثال حذف واضافة وتعديل وقلت بدون كود استخدمت فيه وقتها هذه الـ Action
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
السلام عليكم اخي ابو همام
تعجبني فيك ميزة مراجعة اعمالك ومنشوراتك 
وتحديثها واضافة معلومات ولمسات جديدة تزيد في اغناء ماقدمته
احييك واحيي فيك هذه الروح العالية من الاهتمام
تقبل تحياتي وجزاك الله خيرا
+1
الرد
تم الشكر بواسطة: viv , viv
#7
إقتباس :السلام عليكم اخي ابو همام
تعجبني فيك ميزة مراجعة اعمالك ومنشوراتك 
وتحديثها واضافة معلومات ولمسات جديدة


وعليكم السلام ورحمة الله أخ ابراهيم
انا امر على المواضيع لعل هناك من سأل سؤال او استفسر عن شئ ما .
ذكرتني بفكرة كتاب اللكتروني كنت افكر من وقت قريب في انشاءه قابل للتعديل والحذف والاضافة وليس مجرد كتاب Pdf جامد
تكون له كلمة سر مع مجموعة من الاشخاص في العالم العربي ينقحونه
او مفتوح للجميع حتى يتحول الى كتاب ضخم يحوي كل الفصول والاقسام والمواضيع ويشرحها بدقة
فكرة انه يتنقح هي في امكانية الاضافة والتعديل خطوة بخطوة فلو اردت ان تصنع كتابا ضخما من الصفر مرة واحدة لن تستطيع تحتاج الى فريق ولمدة من الزمن
العمل جاري فيه
واستخدمت مكونات جيدة تعرض الصور وتنسق النص ومشكلتها لا تدعم اللغة العربية
اخر مرة خاطبت الشركة فقالوا لاي الاصدارة القادمة سوف ندعمها
وظهرت الاصدارة ولم يدعموها
ولا زلت ابحث عن بدائل لها .
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فكرة تغير محتوى الادوات او الحقول viv 2 60 07-07-19, 02:13 PM
آخر رد: viv
  فكرة انشاء عداد متصاعد viv 2 36 07-07-19, 10:37 AM
آخر رد: viv
  فكرة من تصميمي لعرض نوافذ بمكان واحد viv 0 37 07-07-19, 01:31 AM
آخر رد: viv
  فكرة اظهار نموذج بالتدريج viv 0 39 07-07-19, 01:26 AM
آخر رد: viv
  فكرة لانشاء ظل للكتابة viv 0 32 07-07-19, 01:03 AM
آخر رد: viv
  هذه فكرة اخرى لازارار وتبديل بين النوافذ viv 0 30 07-07-19, 12:57 AM
آخر رد: viv
  فكرة شريط جانبي viv 0 31 07-07-19, 12:51 AM
آخر رد: viv
  فكرة ادوات من تصميمي متنوعة ستفيدكم viv 0 33 07-07-19, 12:48 AM
آخر رد: viv

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم