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

[أبو ربيع]

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

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

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

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



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

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

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

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

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

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

Private Sub Command1_Click()
If Option1 = True Then
Text1 = Text1 & 1
Else
Text2 = Text2 & 1
End If
End Sub

Private Sub Command10_Click()
If Option1 = True Then
Text1 = Text1 & 10
Else
Text2 = Text2 & 10
End If
End Sub

Private Sub Command11_Click()
If Option1 = True Then
Text1 = Text1 & "00"
Else
Text2 = Text2 & "00"
End If
End Sub

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

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

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

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

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

Private Sub Command17_Click()
If Option1 = True Then
Text1 = Text1 & "."
Else
Text2 = Text2 & "."
End If
End Sub

Private Sub Command2_Click()
If Option1 = True Then
Text1 = Text1 & 2
Else
Text2 = Text2 & 2
End If
End Sub

Private Sub Command3_Click()
If Option1 = True Then
Text1 = Text1 & 3
Else
Text2 = Text2 & 3
End If
End Sub

Private Sub Command4_Click()
If Option1 = True Then
Text1 = Text1 & 4
Else
Text2 = Text2 & 4
End If
End Sub

Private Sub Command5_Click()
If Option1 = True Then
Text1 = Text1 & 5
Else
Text2 = Text2 & 5
End If
End Sub

Private Sub Command6_Click()
If Option1 = True Then
Text1 = Text1 & 6
Else
Text2 = Text2 & 6
End If
End Sub

Private Sub Command7_Click()
If Option1 = True Then
Text1 = Text1 & 7
Else
Text2 = Text2 & 7
End If
End Sub

Private Sub Command8_Click()
If Option1 = True Then
Text1 = Text1 & 8
Else
Text2 = Text2 & 8
End If
End Sub

Private Sub Command9_Click()
If Option1 = True Then
Text1 = Text1 & 9
Else
Text2 = Text2 & 9
End If
End Sub

Private Sub Form_Load()
Option1 = True
End Sub 

# شرح الكود :

Private Sub Form_Load()
Option1 = True
End Sub 

هنا وضعنا الخيار على الأداة (Option1).. لكي تكون مفعلة تلقائياً عند فتح البرنامج.. ولما يضغط المستخدم على أي رقم يتم كتابته في الـ Text1..

Private Sub Command1_Click()
If Option1 = True Then
Text1 = Text1 & 1
Else
Text2 = Text2 & 1
End If
End Sub 

هذا الكود في الزر رقم واحد.. وفيه قلنا للبرنامج.. إذا كان الخيار (Option1) هو المفعل فاكتب رقم (1) في الـ Text1.. وإذا لم يكن هو المفعل فاكتب رقم (1) في الـ Text2..

ولاحظ أن هذا الكود مكرر في أزرار باقي الأرقام من (00) إلى (9).. وكذلك مكرر في نقطة الفاصلة (.).. طبعاً مع تغيير الرقم (1).. إلى الرقم المكتوب في الزر..

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

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

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

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

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

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

http://www.gulfup.com/?9tPeyE