[احمد تيم]

وعليكم السلام ,, 

الله يوفقك يا اخي وتنجح في دراستك ان شاء الله ,, 

تفضل شرح عمل الالة الحاسبة , وان شاء الله تستفيد

اول شيء افتح الفيجوال بيسك وانشىء مشروع جديد كما في الصورة

\

هذا مكان العمل 

وهذه هي الادوات

وهذا لاستعراص مكان البرنامج على الشاشة 

وهذه هي شاشات البرنامج

اذا اي مكون ناقص عندك بتقدر تضيفه من هذه القائمة 

الان ندخل بالمفيد , ضيف كلمة اضافة الرقم الاول نفس اللي بالصورة من خلال الضغط على حرف A الكبير على اليسار , وبعدين غير القيمة من اليمين على كلمة caption 

الان ضيف text box وهذا لادخال الرقم

كرر الخطوة 

الان ضيف هذه الازرار 

وهذه 

الان طبق الصورة التالية للدخول الى صفحة الكود 

اختار المفاتيح التي تريدها 

اضف Dim a, b, r as Integer

 في البداية

الان اضف هذا الكود عند الزر الاول 

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

r = a + b

Text3.Text = r

End Sub

وهذا في الثاني 

Private Sub Command2_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

r = a - b

Text3.Text = r

End Sub

وهذا 

Private Sub Command3_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

r = a * b

Text3.Text = r

End Sub

Private Sub Command4_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

r = a / b

Text3.Text = r

End Sub

الان اضغط على هذه الشكل لتشغيل برمجيتك 

ويمكنك اختبارها 

الان تبقى عليك انشاء نسخة تنفيذية منه من خلال الخطوات التالية :

اتمنى ان يكون الشرح خفيف وغير معقد ,, 

علماً ان هذا شرح انشاء الة حاسبة جاهزة لان الوقت الذي تملكه لا يكفي لشرح كل النقاط والاكواد التي تم العمل بها

قمت بارفاق مثال على الة حاسبة اتمنى ان تستفيد منه

وانا هنا جاهز للاجابة على استفساراتك في اي وقت