المدير
المدير
 عدد الرسائل : 583
تاريخ التسجيل : 26/10/2007
 | موضوع: تصميم برنامج صغير مهم جدا  15/4/2008, 12:40 | |
| | تصميم برنامج صغيرون مهم جدا |
هذا البرنامج هام جدا لانه يفيدك في معرفة التراكيب البرمجية ارجوا منك تنفيذ البرنامج معي خطوة بخطوة للاستفادة معي في حالة عدم عمل البرنامج معك يمكنك اخبارنا بذلك في صفحة المشاركة والاستفسار في الصفحة الرئيسية البرنامج يعمل تحت بيئة وندوز جميع الاصدارات | البرنامج هو الة حاسبة اكترونية مواصفات خاصة | | الخطوات/ افتح فورم جديد | | اختار الادوات التالية/ 2مربع نص | | ليبل اي مربع عنوان 3 | | اربعة ازارير كوماند | | رتب الادوات لتكون على الفورم بهذا الشكل |
| [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] | <table width="100%" border=1><tr><td width="100%" bgColor=#a7bebb> الليبل الاول اكتب فيه العنوان (الة حاسبة) </TD></TR>
<tr><td width="100%" bgColor=#a7bebb>مربعي النص الاثنين اتركهما فارغين وامسح اي كلام من الخصائص دعها فارغةtext من خاصية </TD></TR></TABLE>
<table width="100%" border=1><tr><td width="100%" bgColor=#a7bebb>caption ضع علامات الحساب من الخاصية </TD></TR></TABLE>
<table width="100%" border=1><tr><td width="100%" bgColor=#a7bebb>ضع على كل ازرار علامات الحساب وهي الجمع القسمة الطرح الضرب </TD></TR></TABLE>
<table width="100%" border=1><tr><td width="100%" bgColor=#a7bebb>الليبل الثاني اتركه فارغا لتظهر فيه نتائج العمليات </TD></TR></TABLE>
<table width="100%" border=1><tr><td width="100%" bgColor=#a7bebb>الليبل الثالث اكتب فيه اسمك من الخاصية كابشن </TD></TR></TABLE>
<table width="100%" border=1><tr><td width="100%" bgColor=#a7bebb>يجب ان تجل مربعي النص متلاصقين انظر النموذج </TD></TR></TABLE> |
| الان اضف كتابة الكود التالي | اذهب للفورم وانقر مرتين على ليبل اثنين والصق الكود التالي | 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 |
| |
|
