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

[arabwit]

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

الخطوات/ افتح فورم جديد
اختار الادوات التالية/ 2مربع نص
ليبل اي مربع عنوان 3
اربعة ازارير كوماند
رتب الادوات لتكون على الفورم بهذا الشكل
[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]

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

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

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

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

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

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

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

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

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

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

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

END


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