تصميم الالة الحاسبة - الفيجوال بيسك- كود الآلة الحاسبة

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

ماهو الفيجوال بيسك :

الفيجوال بيسك هو نظام انشاءته ميكروسوفت يسمح للمطورين بإنشاء برامج (تطبيقات) والتي تعرض بواجهة نوافذ مايكروسوفت ذات الاستخدام الواسع ؛الحزم تقوم بعمل كبير خلال إنشاء النوافذ وصناديق الرسائل والقوائم وكذلك للكشف عن نقرة الماوس كمثال لاستخدام الفيجوال بيسك 

بناء الآلة الحاسبة 

الخطوات 

الخطوة الأولى : تصميم واجهة المستخدم باستخدام صندوق الادوات فجوال بيسك تزود بصندوق أدوات يدعم تصميم واجهة عملية تستخدم القـوائم 

والماوس، يقوم المبرمج باختيار زر مثلا من قائمة الأدوات ويقوم بإسقاطه فـي مكـان 

مناسب خلال النافذة والوظيفة المطلوبة يمكن إنجازها بكتابة كود للتفاعل بـالنقر علـى 

ذلك الزر ، في فجوال بيسك فإن أي إجراء تتم مناداته تلقائيا لأي حدث ممكن يقع فـي واجهة المستخدم 

واجهة المستخدم.

 كود الآلة الحاسبة بلغة فيجول بيسك

 Dim newNumber As Boolean

Dim first As Boolean

Dim ans As Integer

Dim op As String

وهذا يحتاج إلى إسناد قيمة عند بدء البرنامج بالعمل، والإجراء المسـمى Load_Form

(إذا كان مزودا من قبل المبرمج) تتم مناداته عندما تبدأ النافذة بالتحميـل ، عمومـا فـي 

فجوال الإجراء دائما يكون مسبوقا بكلمة Sub.

Sub Form_Load( )
newNumber = True
First = True
op = "="
ans = 0
End Sub
الآن قمنا بكتابة إجراء تتم مناداته عند النقر على أي زر من أزرار الأرقام في الحاسبة 
Sub zero_button_Click
setDigit (0)
End Sub
Sub one _button_Click
setDigit (1)
End Sub
Sub two_button_Click
setDigit (2)
End Sub
وهكذا لأي زر من أزرار الأرقام، وهذا ينادي الإجراء
Sub setDigit(digit As Integer)
if newNumber Then
display = digit
Else
display = display & digit
End If
newNumber = False

irst = False
End Sub
الآن نقوم بكتابة الكود الذي تتم مناداته عند النقر على أحد أزرار العمليات الحسابية
Sub add_Click( )
calculate
op = "+"
End Sub
Sub subtract_Click( )
If first Then
display = "-"
first = False
Else
calculate
op = "-"
End If
End Sub
Sub equal_Click( )
calculate
op = "="
End Sub
وأخيرا الإجراء الذي ينفذ على الآلة الحاسبة
Sub calculate( )
If op = "+" Then ans = ans + display
If op = "-" Then ans = ans – display
If op = "=" Then ans = display
display = ans
newNumber = True
End Sub
 بهذا نكمل الكود الخاص بالآلة الحاسبة والقاري يمكنه التخيل أن هناك وراثـات 
بسيطة فقط لتمثيل زر المسح وزر الإضافة لجعل الآلة تؤدي عملية الضـرب والقسـمة