تحديث الصفحة تعلم كيف تصنع ألة حاسبة بالفيجوال..

السلام عليكم ورحمة الله وبركاته...
طلب مني بعض الأخوان عندما عرضت بالمنتدى الآلة الحاسبة التي صممتها أن
أشرح لهم الطريقة.....وهذا الشرح هو تجاوباً لطلباتهـــم........بسم
الله...((يجب أن يكون لديك برنامج الفيجوال بيسك6))

-أفتح فورم جديد.......

يجب أن أوضح بهذه الصورة قبل الشرح عن ثلاث أشياء...

((المحدد باللون الأبيض هو lebale)) ((المحدد باللون الأحمر هوtext)) ((المحدد باللون الأزرق هوcommand))
أرجوا حفظ وظائف الأزرار هذه....
....................
-أختر lebale وأجعله في أعلى الفورم

وأمسح أي كلمة موجودة من خاصية caption

وأكتب في lebale 1((ألة حاسبة)) عن طريق caption
-أختر2text ((مربع نص)) وأجعلهما متقاربان

..وأجعــلهما فارغين وأمسح أي كلمة موجودة من خاصية text

.............................................
-أختر4أزارير command

وأكتب فيها هذه((الجمع--الطرح--القسمة--الضرب)) وقم بتغيير أسماء الأزارير من خاصية caption
-أنشيء label2 وأجعله فارغا وأمسح أي كلمة موجوده من خاصية caption وأجعله في وسط الأزارير الأربعه...
----------------------------------------
أذهب إلى lebale2 ,انقر عليه مرتين ثم أكتب هذا الكود...
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
...........
مع مراعاة أن زر الجمع يمثل command_1 وزر الطرح يمثل command_2 وزر القسمة يمثل command_3 وزر الضرب يمثل command_4
..........
والأن أضغط F5 وشاهد الألة الحاسبــــة
.........
يمكنك أضافة زر خروج ..بإتباع نفس طريقة الأزرارcommand والضغط عليه مرتين وكتابة هذا الأمر End
........
...تحياتي للجميع وهذا الشرح أهداء خاص للأخ/فالح العجمي وأهداء عام للجميع
---------
منقول منedu.arabsgate
حفظ الله الجميع.