درس عمل الالة حاسبة بالفيجوال بيسيك

[المفكر العربي]

االسلام عليكم ورحمة الله وبركاته
الدرس سهل جدا ما فيه صعوبه من وجهة نظري الشخصية

الخطوات/ افتح فورم جديد
اختار الادوات التالية/ 2مربع نص
ليبل اي مربع عنوان 3
اربعة ازارير كوماند
رتب الادوات لتكون على الفورم بهذا الشكل


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

كود PHP:

Private Sub Label2_Click()
Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub 


الان انقر مرتين على زر الزائد والصق الكود التالي

كود PHP:

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


انقر على زر الطرح واكتب او الصق الكود التالي

كود PHP:

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


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

كود PHP:

Private Sub Command3_Click()
Label2.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub 


الاخير زر الظرب انقر مرتين لتخرج صفحة الكود والصق مايلي

كود PHP:

Private Sub Command4_Click()
MuValue = Val(Text1.Text) * Val(Text2.Text)
Label2.Caption = "" + Str(MuValue)
End Sub 


الان نفذ البرنامج واكتب اي رقمين في التكست وبالماوس اختر العملية الحسابية لترى النتائج بنفسك
عزيزي يمكنك اضافة زر خامس واكتب عليه خروج من البرنامج ثم انقر عليه مرتين واكتب فقط كلمة

كود PHP:

END 


منقول للفائدة

[traanim]

بارك الله بك

نقل مميز ومفيد

لك محبتي واحترامي

[wlafe alro7]

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

تبق والله رحتني يا باشا
اشكرك