العودة   مركز بوابة العرب التعليمي > منتديات البرامج والانترنت > منتدى البرامج المشروحة

 
 
أدوات الموضوع
  #1  
قديم 20-08-2001, 06:56 AM
أبـوضاري أبـوضاري غير متواجد حالياً
مشــرف ســابق
 
تاريخ التسجيل: Mar 2001
المشاركات: 491
افتراضي تعلم كيف تصنع ألة حاسبة بالفيجوال..




السلام عليكم ورحمة الله وبركاته...
طلب مني بعض الأخوان عندما عرضت بالمنتدى الآلة الحاسبة التي صممتها أن أشرح لهم الطريقة.....وهذا الشرح هو تجاوباً لطلباتهـــم........بسم الله...((يجب أن يكون لديك برنامج الفيجوال بيسك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
........
...تحياتي للجميع وهذا الشرح أهداء خاص للأخ/فالح العجمي وأهداء عام للجميع
---------
في حالة وجود أخطاء في الشرح أو الأكواد أو أي صعوبات أرجوا تبليغي
حفظ الله الجميع.
  #2  
قديم 20-08-2001, 07:05 AM
فالح العجمي فالح العجمي غير متواجد حالياً
 
تاريخ التسجيل: Mar 2001
المشاركات: 580
افتراضي

ألف ومليون وعشرين مليار شكرررررررررر 0000لك يا بوضاري000على الشرح الرائع00
وصراحة إنك رجل بمعنى الكلمة وأوفيت بوعدك لنا بشرح الالة الحاسبة 000

مرة أخري تسلم يا وائل وكثر الله من أمثالك0000
  #3  
قديم 20-08-2001, 07:09 AM
كوكتيل كوكتيل غير متواجد حالياً
 
تاريخ التسجيل: Aug 2001
المشاركات: 1
افتراضي

هلا والله ابو ضاري مشكور على الشرح بس عندي طلب..............اتمنى القا الجواب عندك........ابي صفحة الموقع يشررح كيفة صنع الة التحويل بين التاريخ الهجري والميلادي بالفيجوال 6 ومشكور مرة ثانية ::2::
  #4  
قديم 20-08-2001, 07:17 AM
أبـوضاري أبـوضاري غير متواجد حالياً
مشــرف ســابق
 
تاريخ التسجيل: Mar 2001
المشاركات: 491
افتراضي

تستاهل أخوي فالح الله يخليك لنا
  #5  
قديم 20-08-2001, 07:18 AM
أبـوضاري أبـوضاري غير متواجد حالياً
مشــرف ســابق
 
تاريخ التسجيل: Mar 2001
المشاركات: 491
افتراضي

لا شكر على واجب أخوي كوكتيل
أتمنى أنه يفيدك الرابط هذا...
http://www.elzohry.50megs.com/index.htm
  #6  
قديم 20-08-2001, 07:55 AM
الدوسـ7ـري الدوسـ7ـري غير متواجد حالياً
مشــرف ســابق
 
تاريخ التسجيل: Mar 2001
المشاركات: 277
افتراضي

السلام عليكم

بارك الله فيك يا اخي ابو ضاري علي هذا الشرح الطيب

بالتوفيق
__________________

  #7  
قديم 20-08-2001, 09:12 AM
ahmdzd ahmdzd غير متواجد حالياً
 
تاريخ التسجيل: Jun 2001
المشاركات: 39
افتراضي

مشكور
  #8  
قديم 20-08-2001, 11:26 AM
الصورة الرمزية القوي بالله
القوي بالله القوي بالله غير متواجد حالياً
مشــرف ســابق
 
تاريخ التسجيل: Aug 2001
المشاركات: 752
افتراضي

مشكور على الحلاوة
  #9  
قديم 20-08-2001, 11:37 PM
أبـوضاري أبـوضاري غير متواجد حالياً
مشــرف ســابق
 
تاريخ التسجيل: Mar 2001
المشاركات: 491
افتراضي

لا شكر على واجب ياأخوان تستاهلون أكثر....::2:: ::2:: ::2::

تحياتي
  #10  
قديم 28-08-2001, 09:23 AM
السكيبي السكيبي غير متواجد حالياً
 
تاريخ التسجيل: Jan 2001
المشاركات: 232
افتراضي

الله يعطيك العافية

بالفعل خطوات جميلة منك اخوي بوضاري
 

أدوات الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


الساعة الآن 06:50 AM.


جميع الحقوق محفوظة لشبكة بوابة العرب
New Page 4
 
 
Copyright © 2000-2017 ArabsGate. All rights reserved
To report any abuse on this website please contact abuse@arabsgate.com