المشاركات : 28
المواضيع 8
:
: 0
الإنتساب : Feb 2008
السلام عليكم
الة حاسبة بسيطة بدأتها من الصفر
انا مبتدئ بالدالفي
****ا التقييم و النصح
ملاحظة : البرنامج + الكود سورس في المرفقات.
المشاركات : 334
المواضيع 83
:
: 17
الإنتساب : Feb 2008
14-05-2008, 04:23 PM
(آخر تعديل لهذه المشاركة: 14-05-2008, 05:17 PM بواسطة 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 -
سأتوقف هنا
ملاحظة اخيرة لو استعملت الدرس وقمت بالتصحيح عليه لأفدنتا (خصوصا كاتب هذه الأسطر) و وفرت وقتك
آمل أنني لم أثقل
تحياتي 
