الة حاسبة بسيطة - نسخة قابلة للطباعة

الة حاسبة بسيطة - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : الة حاسبة بسيطة (/showthread.php?tid=196)

الة حاسبة بسيطة - bsm12 - 13-05-2008

السلام عليكم

الة حاسبة بسيطة بدأتها من الصفر

انا مبتدئ بالدالفي

****ا التقييم و النصح

ملاحظة : البرنامج + الكود سورس في المرفقات.

الة حاسبة بسيطة - merouane - 14-05-2008

و عليكم السلام

الملاحظة الأولى هي أنك لم تطلع على الدرس آلة حاسبة بسيطة بالدلفي في قسم الدروس

جميع السطور التالية

كود :
procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton12.caption ;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton5.caption ;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton6.caption ;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton7.caption ;
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton11.caption ;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton10.caption ;
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton9.caption ;
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton13.caption ;
end;

procedure TForm1.SpeedButton14Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton14.caption ;
end;

procedure TForm1.SpeedButton18Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton18.caption ;
end;

procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton15.caption ;
end;

بكل بساطة

كود :
Edit1.Text := Edit1.Text + (Sender as TSpeedButton).Caption

بالنسبة للـفاصلة، لقد كتبت

كود :
procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton15.caption ;
end;

الأصح (حسب ما يتعامل معه النظام) و لابد أن تكتب مرة واحدة للرقم (هذه لقد نسيتها أنا أيضا)

كود :
Edit1.Text := Edit1.Text + DecimalSeparator;

بعد عملية الجمع لا بد من مسح الأرقام قبل الكتابة (هذه لقد نسيتها أنا أيضا)

إذا قمنا بالضغط على أحد الأرقام ثم ضغطنا على النتيجة تطهر رسالة خطأ .. من الأفضل الإنطلاق من الصفر بالنسبة للعدد - في برنامجك S -

سأتوقف هنا

ملاحظة اخيرة لو استعملت الدرس وقمت بالتصحيح عليه لأفدنتا (خصوصا كاتب هذه الأسطر) و وفرت وقتك

آمل أنني لم أثقل

تحياتي Smile

Smile