الة حاسبة بسيطة

[bsm12]

السلام عليكم

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

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


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

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

[merouane]

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

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

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

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 -

سأتوقف هنا

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

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

تحياتي :)