طلب مني بعض الأخوان عندما عرضت بالمنتدى الآلة الحاسبة التي صممتها أن أشرح لهم الطريقة
وهذا الشرح هو تجاوباً لطلباتهـــم
((يجب أن يكون لديك برنامج الفيجوال بيسك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
........
في حالة وجود أخطاء في الشرح أو الأكواد أو أي صعوبات أرجوا تبليغي
حفظ الله الجميع.
