07-07-19, 12:14 PM
اردت ان اجرب برمجة ألة حاسبة حيث انني لم ابرمجها من قبل
الاخ ابراهيم اشار الى الة حاسبة فيها 150 سطر برمجي رفعتها من موقع اجنبي
وقال ان الفيجوال دوت نت برمجها في 58 سطر برمجي
وانا شعرت ان هذا العدد مبالغ فيه سواء كان في الدلفي او حتى الدوت نت .
وهذا الفضول قادني الى رؤية ما يحدث
بصراحة نظرا لضيق الوقت لم اتمكن من مراجعة الكود بالبرنامج الذي رفعناه من موقع اجنبي
ولكن اليكم الطريقة العفوية التي وجدت نفسي اتخذها لبرمجة المشروع
في الحدث كليك للازرار
في حدث التنفيذ
في حدث المهمات
في حدث التصفير
بالنهاية كانت تعمل بشكل جيد وبحوالي عشرة سطور فقط
وطبعا هنا لا دخل للدلفي بالاختصار يمكن فعل نفس الشئ في الفيجوالبيسك 6 او الدوت نت
الاسلوب احيانا يختصر الكثير من البرمجة
ارجوا ان تستفيدوا من هذا
calc.rar (الحجم : 115.65 ك ب / التحميلات : 30)
الاخ ابراهيم اشار الى الة حاسبة فيها 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 او الدوت نت
الاسلوب احيانا يختصر الكثير من البرمجة
ارجوا ان تستفيدوا من هذا
calc.rar (الحجم : 115.65 ك ب / التحميلات : 30)