منتديات المبرمجون الاقباط
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

شرح برنامج الة حاسبة بسيطة

اذهب الى الأسفل

شرح برنامج الة حاسبة بسيطة Empty شرح برنامج الة حاسبة بسيطة

مُساهمة من طرف Coptic_Vb الأربعاء أكتوبر 29, 2008 6:14 pm

هذا البرنامج هام جدا لانه يفيدك في معرفة التراكيب البرمجية ارجوا منك تنفيذ البرنامج معي خطوة بخطوة للاستفادة معي في حالة عدم عمل البرنامج معك از فى حالة وجود تساؤلات يمكنك اخبارنا بذلك في الردود .
البرنامج يعمل تحت بيئة وندوز جميع الاصدارات
البرنامج هو الة حاسبة اكترونية مواصفات خاصة

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

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

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
Coptic_Vb
Coptic_Vb
مدير المنتدى
مدير المنتدى

المساهمات : 70
تاريخ التسجيل : 29/10/2008
الموقع : https://copticvb.yoo7.com/

https://copticvb.yoo7.com/

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى