تعلم البرمجة بالفيجوال بيسك ( صناعة آلة حاسبة )

 من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة آلة حاسبة )

اتبع الخطوة :

1- افتح برنامج الفيجوال بيسك واختر مشروع جديد

-----------
2- اضف :

Textbox 2
4 Commandbutton
1 Label

وغير حجم الفورم ليناسب الادوات التي وضعناها فيها
كما في الصورة



-----------
3- الآن وقت تغيير الخصائص

~~~~~~~~~
خصائص Form

الآلة الحاسبة = Form1.Caption
لجعل اسم البرنامج (الآلة الحاسبة)

Form1.BorderStyle = Fixed Dialog
لظهور ايطار بزر (اغلاق) فقط 

~~~~~~~~~
خصائص ال Textbox و Label

Label.Alignment = Center
Text1.Alignment = Center
Text2.Alignment = Center
لجعل الكتابة في الوسط

فارغ = Text1.Text
فارغ = Text2.Text
فارغ = Label.Caption
لافراغ النصوص

~~~~~~~~~
خصائص ال Commandbutton

جمع = Command1.Caption
طرح = Command2.Caption
قسمة = Command3.Caption
ضرب = Command4.Caption

لتصبح كما في الصورة



-----------
4- الآن نكتب الأكواد

كود الجمع

Private Sub Command1_Click()
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 + القيمة التي في Text2

~~~~~~~~~

كود الطرح

Private Sub Command2_Click()
Label1.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 - القيمة التي في Text2

~~~~~~~~~

كود القسمة

Private Sub Command3_Click()
Label1.Caption = Val(Text1.Text) \ Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 \ القيمة التي في Text2

~~~~~~~~~

كود الضرب

Private Sub Command4_Click()
Label1.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 * القيمة التي في Text2

~~~~~~~~~

اخيرا تكون الاكواد كما في الصورة



-----------

انتهينا