طريقة عمل الhistory في الالة الحاسبة

لو ممكن تنزل الكود للاله الحاسبه .... بنتعلم فى الفيجوال بيسك وياريت نعرفو فى اسرع وقت

وان شاء الله تلقى البرد ليك

السلام عليكم

سهلة جداً

إعمل لابلين (إثنان من Label) فوق و لابل تحت

الابل ألي في فوق إسمهم : label2 و label1

الابل ألي تحت إسمها : label3

غير الخط, (يعني ألي في فوق هي ألي أصغر وألي في التحت هي ألي أكبر)

الحين راح تضع أزرار أوكي من واحد لتسعة

أكتب في كل زر (من واحد لتسعة مع تغيير الرقم إلى المطلوب):

اقتباس

label1.caption = 1

نعمل في زر + مثلا الكود التالي(غير رمز '+' حسب المطلوب):

اقتباس

label2.caption = "+"

label3.caption = label1.caption

label1.caption =  ""

أوكي الحين كويس أوي

الآن في زر = نكتب الكود التالي:

اقتباس

dim a,b as integer

a=label3.caption

b=label1.caption

if label2.caption ="+" then

label3.caption = a+b

label2.caption = ""

label1.caption = ""

elseif label2.caption="-" then

label3.caption = a-b

label2.caption = ""

label1.caption = ""

elseif label2.caption="*" then

label3.caption = a*b

label2.caption = ""

label1.caption = ""

elseif label2.caption="/" then

label3.caption = a/b

label2.caption = ""

label1.caption = ""

else

label3.caption = "Error"

label2.caption = ""

label1.caption = ""

end if

أي خطأ في الكود أو مشكل راسلني وأنا تحت أمرك