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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة من طرف 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
avatar
Coptic_Vb
مدير المنتدى
مدير المنتدى

المساهمات : 70
تاريخ التسجيل : 29/10/2008
الموقع : http://copticvb.ace.st/

معاينة صفحة البيانات الشخصي للعضو http://copticvb.ace.st/

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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