تعلم كيف تصنع ألة حاسبة بالفيجوال
صفحة 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 12:47 am من طرف marketingonlin903
» جهاز كشف الذهب الخام و الكنوز
أمس في 10:09 pm من طرف marketingonlin903
» برجولات جدة.. تمتع بأجواء خارجية رائعة مع مع أفضل أشكال البرجولات .. اتصل الان
أمس في 1:45 pm من طرف zizi yosef
» سواتر جدة بخصومات رائعة وحصرية| اتصل الأن
أمس في 1:44 pm من طرف zizi yosef
» مظلات للاسطح جدة ستجد أفضل الخصومات الهائلة | اتصل الآن
أمس في 1:42 pm من طرف zizi yosef
» مقاول مظلات قرميد |افضل اشكال مظلات قرميد بجدة بأسعار مميزة اتصل الأن
أمس في 1:41 pm من طرف zizi yosef
» مظلات سيارات جدة..حماية سيارتك من الشمس والأمطار خارجية|داخلية بافضل الاسعار
أمس في 1:39 pm من طرف zizi yosef
» تركيب مظلات مسابح بجدة بأشكال جديده وتصاميم حديثه بأفضل الاسعار|اتصل الان
أمس في 1:38 pm من طرف zizi yosef
» مظلاتك وسواتر منزلك بأفضل جودة وأقل سعر مع شركة مظلات وسواتر بجدة
أمس في 1:37 pm من طرف zizi yosef
» شركة المظلات الحديثة | اتصل الان
أمس في 12:02 pm من طرف zizi yosef