مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها

[أبو ربيع]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته..

أقدم لكم مشروع إنشاء آلة حاسبة بسيطة بالفيجوال بيسك..

افتح مشروع جديد على الفيجوال وأضف الأدوات الموجودة في الصورة..



- (3) أدوات من نوع (Text) << اجعلها فارغة من أي نص..
- (5) أدوات من نوع (Command) << رتبها كما في الصورة من اليسار لليمين.. وسجل عليها البيانات الموجودة بالصورة..

# حتى يكتمل المشروع بصورة منظمة.. حدد الفورم بالفأرة وسجل التالي :

- خاصية (Caption = آلة حاسبة)..
- خاصية (RightToLeft) << اجعلها (True)..
- خاصية (Icon) << اختر منها رابط أيقونة لبرنامج الآلة..
- خاصية (BorderStyle) << اجعلها (Fixed Single)..

# حدد أداة الـ (Text1) وسجل التالي :

- خاصية (aligment) << اجعلها (Right justify)..
- خاصية (Text) << امسحها واجعلها فارغة..

وبالأخير افتح نافذة الكود وامسح كل ما هو موجود بها وضع هذا الكود :

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

Private Sub Command2_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command3_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command4_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub 

# شرح الكود :

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub 

هذا زر القسمة.. وفيه قلنا للبرنامج أن الـ Text3 تساوي الـ Text1 تقسيم الـ Text2..
وجئنا بالدالة (val) على الأداتين الأولى والثانية.. لكي تحول أي قيمة نصية أو غير عددية يكتبها المستخدم إلى العدد (صفر).. وذلك تلافياً لأخطاء البرنامج..

وهذا الكود مكرر في زر الضرب والجمع والطرح.. مع تغيير العملية إلى العملية الموجودة في الزر..

Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub 

هنا كود الزر (DEL).. وفيه إفراغ أدوات الـ Text.. لتهيئتها إلى عملية حسابية أخرى..

شغل البرنامج واكتب الأعداد في المستطيل الأول والثاني.. واضغط على زر العملية الحسابية لتظهر النتيجة في المستطيل الثالث..


تحميل المشروع مع البرنامج.. على الرابط التالي :

http://www.gulfup.com/?c2ikwP