شرح برنامج الة حاسبة بسيطة
صفحة 1 من اصل 1
شرح برنامج الة حاسبة بسيطة
هذا البرنامج هام جدا لانه يفيدك في معرفة التراكيب البرمجية ارجوا منك تنفيذ البرنامج معي خطوة بخطوة للاستفادة معي في حالة عدم عمل البرنامج معك از فى حالة وجود تساؤلات يمكنك اخبارنا بذلك في الردود .
البرنامج يعمل تحت بيئة وندوز جميع الاصدارات
البرنامج هو الة حاسبة اكترونية مواصفات خاصة
الخطوات/ افتح فورم جديد
اختار الادوات التالية/ 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
البرنامج يعمل تحت بيئة وندوز جميع الاصدارات
البرنامج هو الة حاسبة اكترونية مواصفات خاصة
الخطوات/ افتح فورم جديد
اختار الادوات التالية/ 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
مواضيع مماثلة
» برنامج للطرد والتنقيط السريع لبرنامج البالتوك اصدار 9
» للدخول بثلاثة أسماء أو أكثر فى غرفة واحدة فى برنامج البالتوك
» درس كود برنامج فتح واغلاق السى دى روم
» برنامج الكتاب المقدس e-Sword))
» برنامج مخطوطة القرآن العثمانى
» للدخول بثلاثة أسماء أو أكثر فى غرفة واحدة فى برنامج البالتوك
» درس كود برنامج فتح واغلاق السى دى روم
» برنامج الكتاب المقدس e-Sword))
» برنامج مخطوطة القرآن العثمانى
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى