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