طريقة برمجة الة حاسبة بالفيجوال بيسيك 6

البرنامج معك يمكنك اخبارنا بذلك في صفحة المشاركة والاستفسار في الصفحة الرئيسية
البرنامج يعمل تحت بيئة وندوز جميع الاصدارات
البرنامج هو الة حاسبة اكترونية مواصفات خاصة
الخطوات/ افتح فورم جديد
اختار الادوات التالية/ 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