یه چیزی تو مایه این ...

[Vig]

سلام

اگه لطف کنید عکس رو بیبینید

متوجه میشد عدد اول رو وارد و بعد عدد دوم پس به radio b.... علانت ها ی جمع و تفریق و سپس کلید مساوی رو فشار بده و نتیجه داخل کادر پایین

[lord_viper]

منضورتون مشخص نیست
ایا تو وشتنش مشکل دارین؟

[Vig]

آره توی نوشتنش مشکل دارم می خوام یکی از دوستان لطف کنه و بنویسه و من بیام از رو ی اون یه چیزی یاد بگیرم

ممنون میشم اگه کمکی از دستت بر میاد دریغ نکنی

با تشکر

[lord_viper]

شما شروع کن هر جا مشکل داشتی اینجا مطرح کن مطمئن باش جوابتو میگیری
البته اساسی ترین مشکلی که همه با این ماشین حساب دارن نوشتن اعداد پشت سر هم تو edit هست که اونم به این صورت در میاد
این کد برای دکمه 1 و 2 میباشد که شما میتونین اینو برای همه دکمه ها تکرار کنین

کد:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=edit1.text+'2';
end;

[Vig]

راستی برای جمع کردن هر دو edit 1 , edit 2 باید چی کار کنم

[lord_viper]

مقدار edit1 و edit2 هر کدوم رو به یه متغییر از نوع integer نصبت بدین و با هم جمع کنین اگه مقدار edit رو aو مقدار edit2 رو b و مقدار جمع ایندو رو c در نظر بگیریم جواب به این شکل هست
a+b=c;

[Vig]

فکر نمی کردم توی این فرم دو روز بی پاسخ بمونم
برای هر کدوم از اعداد این نوشتم

کد:

Edit1.Text:=Edit1.Text+'1';

ممنون میشم در این مورد روی برنامه تغییرات لازم رو انجام بدید

مقدار edit1 و edit2 هر کدوم رو به یه متغییر از نوع integer نصبت بدین و با هم جمع کنین اگه مقدار edit رو aو مقدار edit2 رو b و مقدار جمع ایندو رو c در نظر بگیریم جواب به این شکل هست
a+b=c;

توی جمع ضرب تفریق تقسیم لطفا کمک

[lord_viper]

برای تبدیل مقدار نوشته شده در یک edit به عدد از تابع تبدیل استفاده میکنیم که 2 تاشو میگم خدمتتون
inttostr برای تبدیل مقدار عددی به رشته
strtoint برای تبدیل مقدار رشته به عدد
مثال

کد:

var
a:integer;
begin
a:=strtoint(edit1.text);
end;

با این کار رشته عددی نوشته شده در edit1 تبدیل به عدد شده و در متغییر a قرار میگیرد برای جمع و ضرب و... شما باید اول رشته عددی دریافتی از edit رو تبدیل به عدد کنینی تا بتونینی عملیات ریاضی رو روش انجام بدین و در اخر عدد رو تبدیل به رشته کرده و در edit3 نشون میدین

کد:

begin
edit3.text:=inttostr(a);
end;

[Vig]

کد:

var
a,b:integer;

begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);


edit3.text:=inttostr(a)+inttostr(b

);

مياد محتواي هر دوي edit رو باهم جمع مي كنه

من مي خوام مقدار دو edit رو با هم جمع كنه

لطفا تغييرات رو روي برنامه انجام بديد با تشكر

---

کد:

var
a,b:integer;

begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);


edit3.text:=inttostr(a)+inttostr(b);

مياد محتواي هر دوي edit رو باهم جمع مي كنه

من مي خوام مقدار دو edit رو با هم جمع كنه

لطفا تغييرات رو روي برنامه انجام بديد با تشكر

[lord_viper]

شما باید کد رو به این صورت بنویسین

کد:

var
a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
edit3.text:=inttostr(a+b);
end;

موفق باشید

[Vig]

قبل از جواب دادن شما به جواب رسیدم دیگه وقت نکردم بیام پستم رو ویرایش کنم

راستی می خواستم بیبینم اگه بخوام از STRTOINTDF

اگه اشتباه نکنم و درست نوشته باشم چه طور استفاده کنم

ممنون میشم توضیح کوتاهی بدید

به زودی اون ماشین حساب رو با توضیحات کامل میزارم اینجا و با اجازتون توضیح کوتاهی هم خوام داد

آرزوی موفقیت