السلام عليكم ورحمة الله
جبت لك طريقة صنع آلة حاسبة ^^
شرح مصور (( مني شرحي شخصياً )^^ ))
نفتح الفيجوال بيسك 6 ثم مشروع جديد
ونظيف الأدوات كما في الصورة التالية
نختار زر الناقص لندخل الكود كما في الصورة التالية
ثم نكتب الكود التالي كما في الصورة
شرح للكود السابق
كود:
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
نقول في الكود السابق ان التكست رقم 3 يساوي تكست رقم 1 ناااقص التكست رقم 2
أعتقد أنه بدون شرح مفهوم
بعد كذا نقوم بكتابة نفس الكود لزر الجمع ونقوم بتغيير إشارة الناقص إلى إشارة جمع كما في الصوؤة
نكرر العملية السابقة مع الأزرار الباقية كما في الصورة
في الصورة السابقة نظيف سطر أومر وهو
On Error Resume Next
وضيفة هذا السطر هي أنه يقول في حال حدوث أي خطأ في عملية القسمة تجاهلة
مثلا جربي أن لا تضعي هذا السطر بالقسمة وبعد الإنتهاء من كتابة جميع الأوامر المطلوبة بدون كتابة هذا السطر وقومي بتشغيل البرنامج واقسمي 0 تقسيم 0 راح تظهر رسالة تفيد بخطأ أنه لا يستطيع القسمة 0 تقسيم 0 ثم يغلق البرنامج لذالك وضعت هذا السطر كي يتخطا الأخطأ في عملية القسمة ولا يظهر شيء
نشغل البرنامج كما في الصورة التالية
ننظر لنتيجة البرنامج كما في الصورة التالية
الحين البرنامج جاهز وبدون تقدرون تغيرين تصميم البنامج لليعجبك
للمعلومية :
* = ×
/ = ÷
وانتهينا من برنامج الحاسبة الحمد لله ^^ إن شاء الله كل شيء واضح وأي إستفسار أنا حاظر ^^
Bye Bye
