تعلم كيف تصنع ألة حاسبة بالفيجوال
صفحة 1 من اصل 1 • شاطر
طلب مني بعض الأخوان عندما عرضت بالمنتدى الآلة الحاسبة التي صممتها أن أشرح لهم الطريقة
وهذا الشرح هو تجاوباً لطلباتهـــم
((يجب أن يكون لديك برنامج الفيجوال بيسك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
........
في حالة وجود أخطاء في الشرح أو الأكواد أو أي صعوبات أرجوا تبليغي
حفظ الله الجميع.
وهذا الشرح هو تجاوباً لطلباتهـــم
((يجب أن يكون لديك برنامج الفيجوال بيسك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
........
في حالة وجود أخطاء في الشرح أو الأكواد أو أي صعوبات أرجوا تبليغي
حفظ الله الجميع.
مواضيع مماثلة
للمشاركة انت بحاجه الى تسجيل الدخول او التسجيل
يجب ان تعرف نفسك بتسجيل الدخول او بالاشتراك معنا للمشاركة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 11:47 am من طرف marketingonlin903
» نسب أسرة بن سعيد
أمس في 8:52 pm من طرف marketingonlin903
» كيف تحقق أكثر من 1000 دولار بالشهر بسعر وجبة عشاء
أمس في 12:36 am من طرف طلعت النحلاوي
» "تطبيق لومي للاطارات"
الخميس مايو 09, 2024 9:02 pm من طرف marketingonlin903
» من هو الشيخ عبدالرحمن بن سعيد ؟
الخميس مايو 09, 2024 7:17 pm من طرف marketingonlin903
» سباك بالمدينة المنورة بخصم25% |
الخميس مايو 09, 2024 9:30 am من طرف jana khaleed
» شركة عزل اسطح بالمدينة المنورة بخصم 25%
الخميس مايو 09, 2024 9:26 am من طرف jana khaleed
» شركة تنظيف خزانات بالمدينة المنورة خصم 35%|
الخميس مايو 09, 2024 9:23 am من طرف jana khaleed
» شركة عزل الخزانات بالمدينة المنورة 25 %|
الخميس مايو 09, 2024 9:20 am من طرف jana khaleed
» شركة كشف تسربات المياة بالمدينة المنورة بخصم 25 %|0506083803 معتمدون لدي مصلحة المياة
الخميس مايو 09, 2024 9:17 am من طرف jana khaleed