تعلم كيف تصنع ألة حاسبة بالفيجوال
صفحة 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 9:16 am من طرف jana khaleed
» شركه نقل عفش غرب الرياض بخصم 25 %|
اليوم في 9:09 am من طرف jana khaleed
» ارقام شركات نقل العفش بالرياض بخصم 25 %|
اليوم في 9:07 am من طرف jana khaleed
» ونيت نقل عفش بالرياض بخصم 25 % | 0550606388 |0559096181
اليوم في 9:06 am من طرف jana khaleed
» شركة نقل عفش شرق الرياض بخصم 25 % | 0550606388 |0559096181
اليوم في 9:05 am من طرف jana khaleed
» برجولات جدة.. تمتع بأجواء خارجية رائعة مع مع أفضل أشكال البرجولات .. اتصل الان
اليوم في 9:02 am من طرف jana khaleed
» سواتر جدة بخصومات رائعة وحصرية| اتصل الأن
اليوم في 9:00 am من طرف jana khaleed
» اسعار جي ار سي G R C
اليوم في 12:25 am من طرف marketingonlin903
» مظلات للاسطح جدة ستجد أفضل الخصومات الهائلة | اتصل الآن
أمس في 4:57 pm من طرف jana khaleed
» مقاول مظلات قرميد |افضل اشكال مظلات قرميد بجدة بأسعار مميزة اتصل الأن
أمس في 4:55 pm من طرف jana khaleed