ماشین حساب پیشرفته

[.:KeihanCPU:.]

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



16390

[HHAASSAANNII]

سلام میشه یه برنامه هم برای ماشین حساب ساده که چهار عمل اصلی را انجام میده بنویسید اگه لطف کنید ممنون میشم

[.:KeihanCPU:.]

اگر a=عدد اول و b=عدد دوم باشه
پس

a-b=val(a)-b

a+b=val(a)+b
a*b=a*b
a/b=a/b

[samsam_gol_rooz]

سلام میشه یه ماشین حسابی که تقدم عملیات رو در نظر بگیره رو هم بنویسید (ممنون)

[bagherpour.arash]

اين هم يك ماشين حساب اگه سورسش رو مي خواين به آدرس bagherpour.arash@gmail.comايميل بزنيد

[.:KeihanCPU:.]

اگه سورسش رو مي خواين به آدرس bagherpour.arash@gmail.com (bagherpour.arash@gmail.com)ايميل بزنيد


دوست عزیز با تشکر از ماشین حساب
ولی این سایت برای یادگیریه و اگه توجه کنی طوری طراحی شده که در کمترین زمان ممکن به جواب سوال میرسی
اینکه من اگه سورس ماشین حساب رو میخوام باید یک ایمیل بزنم وقتمو میگیره
پس لطفا سورس رو قرار بدید

[.:KeihanCPU:.]

اینم یه ماشین حساب که شما رو با نوشتن ماشین حسابهای پیشرفته تر آشنا میکنه
19003

[amirbidokhti]

من هم یک ماشین حساب پیشرفته نوشته ام .
هرکس می خواد بیاد وبلاگ Prop.blogfa.com نظر بده .تا بزارمش تو وبلاگ

[Malakootee]

سلام میشه یه برنامه هم برای ماشین حساب ساده که چهار عمل اصلی را انجام میده بنویسید اگه لطف کنید ممنون میشم

سلام
یه ماشین حساب خودم نوشتم.
این کدایی که میزارم واستون مربوط به چهار عمل اصلیش هست. اگه مشکلی بود بگین در خدمتم. :لبخندساده:




procedure TWinForm.Button17_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:='';
TextBox2.Text:='';
result:=0.0;
num:=0.0;
Saeed:=0;
check:=0;
end;

procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:='';
TextBox2.Text:='';
result:=0.00; num:=0.00; check:=0; Saeed:=0;
end;

procedure TWinForm.Button12_Click(sender: System.Object; e: System.EventArgs);
begin
if check=0 then
begin
TextBox1.Text:=TextBox1.text+'.';
check:=1;
end
else beep;
end;

procedure TWinForm.MenuItem5_Click(sender: System.Object; e: System.EventArgs);
begin
MessageBox.Show('Programmer: Saeed Malakootee - Year: 2008 - Iran', 'About this program');
end;

procedure TWinForm.Button16_Click(sender: System.Object; e: System.EventArgs);
begin
check:=0;
key:='/';
TextBox2.Text:=TextBox2.Text+textbox1.text+key;
num := strtofloat(textbox1.Text);
result:=num;
TextBox1.Text:='';
num:=0;
end;

procedure TWinForm.Button15_Click(sender: System.Object; e: System.EventArgs);
begin
check:=0;
key:='*';
TextBox2.Text:=TextBox2.Text+textbox1.text+key;
num := strtofloat(TextBox1.Text);
result:=num;
TextBox1.Text:='';
end;

procedure TWinForm.Button14_Click(sender: System.Object; e: System.EventArgs);
begin
check:=0;
key:='-';
TextBox2.Text:=TextBox2.Text+textbox1.text+key;
num := strtofloat(TextBox1.Text);
result:=num;
Textbox1.Text:='';
end;

procedure TWinForm.Button13_Click(sender: System.Object; e: System.EventArgs);
begin
check:=0;
key:='+';
TextBox2.Text:=TextBox2.Text+textbox1.text+key;
num := strtofloat(textbox1.Text);
result:=result+num;
TextBox1.Text:='';
end;

procedure TWinForm.Button9_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'9';
end;

procedure TWinForm.Button8_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'8';
end;

procedure TWinForm.Button7_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'7';
end;

procedure TWinForm.Button6_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'6';
end;

procedure TWinForm.Button5_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'5';
end;

procedure TWinForm.Button4_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'4';
end;

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'1';
end;

procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'2';
end;

procedure TWinForm.Button3_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'3';
end;

procedure TWinForm.Button10_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:=TextBox1.text+'0';
end;

procedure TWinForm.Button11_Click1(sender: System.Object; e: System.EventArgs);
begin
check:=0;
if key='+' then
begin
num := strtofloat(TextBox1.Text);
result:=result+num;
TextBox1.Text:=floattostr(result);
result:=0.0;
end;
if key='-' then
begin
num := strtofloat(TextBox1.Text);
result:=result-num;
TextBox1.Text:=floattostr(result);
result:=0.0;
end;
if key='*' then
begin
num := strtofloat(TextBox1.Text);
result:=result*num;
TextBox1.Text:=floattostr(result);
result:=0.0;
end;
if key='/' then
begin
num := strtofloat(TextBox1.Text);
if num>0 then
begin
result:=result/num;
TextBox1.Text:=floattostr(result);
result:=0.0;
end
else
Textbox1.Text:='error';
end;
end;


end.

[akbar_syberia]

لطفا سورس يه ماشين حساب ساده مثل ماشين حساب ويندوز رو بذارين ممنون !

[Malakootee]

لطفا سورس يه ماشين حساب ساده مثل ماشين حساب ويندوز رو بذارين ممنون !


:متعجب: ماشین حساب ساده؟!!!! مثل ویندوز!!
اون خودش یکی از پیشرفته ترین و مهندسی ترین ماشین حسابهاست

[agha vahid]

سلام میشه یه برنامه هم برای ماشین حساب ساده که چهار عمل اصلی را انجام میده بنویسید اگه لطف کنید ممنون میشم
زحمت کشیدی ادیسون

[saeedsaadi]

اینم یه ماشین حساب که شما رو با نوشتن ماشین حسابهای پیشرفته تر آشنا میکنه
19003

با سلام ، اگر امکان داره سورس برنامه و همراه با آموزشش هم بزارید ممنون می شم:خجالت:
:بوس: خیلی خیلی ضروری هستش :افسرده:

[saeedsaadi]

اگه می شه یکی کمک کنه ::ناراحت:

[saeedsaadi]

یعنی تو این سایت به این بزرگی :عصبانی++:هیچ کس نیست به ما کمک کنه !
همیشه گفتن ، کس نخارد پشت من جوز ناخونه انگوشته من ! :چشمک::متفکر: