السلام عليكم ورحمه الله وبركاته نفسى اعمل اله حاسبه وتكون اكوادها صح
بجد انا فشلت بنتى فى الأعداديه وانا بذاكر لها الكمبيوتر وبحب الفيجول جدا
وبنشتغل العملى بتاع كتاب الوزاره الأكواد كلها اخطاء يادوب نعمل الديزاين
و نتوقف ارجو مساعدتى انا استفدت منكم جدا فى المذكرات والأسئله
بجد كل ال فى المنتدى جزاهم الله خيرا على مجهزدهم الرائع
يا ريت لو حد عنده اله حاسبه اكوادها بسيطه
وشكرا لكم جميعا

حساعدك حاضر انا معايا الاكواد الصح

أنا معاك ان الاكواد اللى في الكتاب كلها غلط دة انا نفسي تعبت لحد ما وصلت لحل وبنفسي والتوفيق من الله عز وجل انا حساعدك حاضر
الله في عون العبد مادام العبد في عون اخيه
Mister Amr
Teacher Computer

تصميم آلة حاسبة بيسطة
أولا لتصميم أي مشروع يجب اتباع الاتي
1- تصميم واجهة البرنامج
2- كتابة الكود
3- تشغيل المشروع
أولا تصميم الواجهة
الوقتي هنرسم على الفورم 2 textbox و 4 label و 6 button
وبعد كده رتب هذه الادوات على الفورم ومن خلال صندوق الخصائص قم بتنسيق هذه الادوات من حيث نوع الخط وحجم الخط ولون الخلفية وهكذا وتغيير الخاصية text له هتصبح كالأتي
الاداة label1 : تغير لها الخاصية تكست إلى ( العدد الأول )
الاداة label1 : تغير لها الخاصية تكست إلى ( العدد الأول )
الاداة label3 : تغير لها الخاصية تكست إلى ( الناتج )

الاداة 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

تصميم المشروع السابق لعمل الة حاسبة بسيطة