الاداة label4 : تمسح ما هو مكتوب أمام الخاصية تكست
الاداة button1 : تغير الخاصية تكست +
الاداة button2 : تغيرها الى -
الاداة button3 : الى*
الاداة button4 : الى /
الاداة button5 الى جديد
الاداة button6 الى خروج
ثانيا كتابة الكود
اضغط مرتين متتاليتين على الأداة button1 للدخول الي نافذة البرمجة وقم بكتابة الكود الاتي
dim first,second,result as decimal
first= textbox1.text
second=textbox2.text
result=first+second
label4.text=result
وبعدين داخل الاداة button2 هتكتب الكود الاتي
dim first,second,result as decimal
first= textbox1.text
second=textbox2.text
result=first-second
label4.text=result
وهتكتب داخل الاداة button3 الكود الاتي
dim first,second,result as decimal
first= textbox1.text
second=textbox2.text
result=first*second
label4.text=result
وتكتب داخل الاداة button4 الكود الاتي
dim first,second,result as decimal
first= textbox1.text
second=textbox2.text
if second=0 then
msgbox("العدد الثاني صفر ")
else
result=first/second
label4.text=result
end if
__________________
أ/ فاطمة شريف
معلم أول حاسب آلي
|