+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكله فى العمليات الحسابيه (/showthread.php?tid=8795)
الصفحات:
1
2
مشكله فى العمليات الحسابيه - esam2015 - 10-08-2017
عندى مشكله فى العمليات الحسابيه
كيف يمكن طرح خليتين واظهار ناتج الطرح فى تيكست مع العلم بان الناتج يوجد به كسور مثل 105.25
RE: مشكله فى العمليات الحسابيه - مبرمج حر - 10-08-2017
السلام عليكم
ما هو الكود الذي استخدمته ؟
ارفق محاولتك حنى يمكن مساعدتك والتعديل عليها
RE: مشكله فى العمليات الحسابيه - esam2015 - 10-08-2017
اولا شكرا على سرعه الرد وهذا هو الكود
كود :
EDIT3.TEXT:=FLOATTOSTR(strtofloat(EDIT1.TEXT)+strtofloat(EDIT2.TEXT));RE: مشكله فى العمليات الحسابيه - أبو معاذ - 10-08-2017
1- المثال الذي أوردته مثال الجمع و ليس الطرح كما ذكرت في أول مشاركتك.
2- ما هي رسالة الخطأ التي تظهر في برنامجك؟
RE: مشكله فى العمليات الحسابيه - esam2015 - 10-08-2017
انا احاول اتعامل مع العمليات الحسابيه عموما
لانى احاول عمل برنامج لحساب الفواتير وبالتالى يوجد بها كتير من العمليات الحسابيه
فمثلا احاول وضع قيمه فى تيكست وبعد ذلك حساب الضريبه ويعد ذلك حساب اجمالى الفانوره
RE: مشكله فى العمليات الحسابيه - أبو معاذ - 10-08-2017
(10-08-2017, 02:58 PM)esam2015 كتب : انا احاول اتعامل مع العمليات الحسابيه عموما
لانى احاول عمل برنامج لحساب الفواتير وبالتالى يوجد بها كتير من العمليات الحسابيه
فمثلا احاول وضع قيمه فى تيكست وبعد ذلك حساب الضريبه ويعد ذلك حساب اجمالى الفانوره
طيب ،
1- لم تجب على السؤال الثاني ،
أين هي رسالة الخطأ التي تظهر لك عند تنفيذ برنامجك؟
2- هل تستعمل قواعد بياناتذ؟ إذا كان نعم ، فما هو نوعها؟
RE: مشكله فى العمليات الحسابيه - esam2015 - 10-08-2017
انا احاول ضرب
total forfait * taux
RE: مشكله فى العمليات الحسابيه - مبرمج حر - 10-08-2017
استخدم متغيرات للحساب
كود :
Var
A,B,C : Currency;
begin
A := StrToFloat(Edit1.Text);
B := StrToFloat(Edit2.Text);
C:= A - B ;
Edit3.Text := FloatToStr(c);
end;RE: مشكله فى العمليات الحسابيه - esam2015 - 10-08-2017
سامحنى على كثره السؤال
انا جربت البرنامج بس لما تضع فى التكست قيمه عشريه لا يقبل ويعطى خطا كما بالصوره
RE: مشكله فى العمليات الحسابيه - مبرمج حر - 10-08-2017
كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
DecimalSeparator := '.';
end;