تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شرح عمل برنامج الاله حاسبة
#1
[COLOR="#0000CD"]
[COLOR="#0000CD"]السلام عليكم
الى الخبراء
اطلب منكم
شرح عمل الاله الحاسبة
ولقد بحثت فى المنتديات واليوتيوب على شرح البرنامج ماوجدت
وهذه صورة البرنامج الاله الحاسبة
صورة البرنامج بالمرفقات
ارجو المساعده ضرورى[/COLOR]
[/COLOR]


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
اخي الكريم هاذا مثال تقدر تعدلة حسب رغبتك

تفضل


الملفات المرفقة
.rar   اله حاسبة.rar (الحجم : 9.05 ك ب / التحميلات : 45)
الرد }}}}
تم الشكر بواسطة:
#3
تفضل اخي هذا كتاب كنت صنعته عن صنع الالة الحاسبة

http://www.kutub.info/library/book/11263

و كل عام و انتم بخير

العاب من برمجتي  

Smile
الرد }}}}
تم الشكر بواسطة:
#4
مشكوري على المساعده ياساتذه
الرد }}}}
تم الشكر بواسطة:
#5
حاولت قراءة البرنامج والاكواد فى شى فهمت وفى شى مافهتمو
ممكن المساعده على الاسكابى او الماسنجر
وشكرا
الرد }}}}
تم الشكر بواسطة:
#6
ارجو الرد ضرورى
الرد }}}}
تم الشكر بواسطة:
#7
[COLOR="#000080"]سلام علىكيم
رجو شرح هذا الكودين
الكود الاول
Private Sub Command1_Click()
If j = 1 Then
j = 0
TEXT1.Text = ""
End If

TEXT1.Text = TEXT1.Text + "1"
End Sub

الكود الثانى
Private Sub Command22_Click()
mem = mem + Val(TEXT1.Text)
TEXT1.Text = ""
TEXT1.SetFocus
Text2.Text = "M"
Text2.Visible = True
End Sub[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم

Private Sub Command1_Click()


If j = 1 Then
j = 0
TEXT1.Text = ""
End If

TEXT1.Text = TEXT1.Text + "1"
End Sub

اخي العزيز في الحدث لل Command1_Click وضعنا داله if الشريطيه وقلنا للداله اذ اكان المتغير j يساوي 1 نفذي التالي


جعل قيمه المتغير j تساوي صفر

وا مسح محتويات TEXT1.Text

وا نهايه الشرط End If



ولان دعنا نعرف عمل المتغير j ولماذا وضعنا له داله شريطيه لتحقق من قيمته

وكما تذكر في الاعلى اننا قلنا اذا كان المتغير j يساوي 1 ان نجعل قيمته 0


لماذا نجعل قمته المتغير j = 0 صفر وما الفائده من ذلك ؟


اولا قبل الجواب على هاذا السؤال يجب ان تعرف المواضع (اي الاحداث) التي ستخدمنا فيها المتغير وما نوعه


المتغير j من نوع Integer

وستخدمناه في الحدث لل Command12_Click اي في زر عرض الناتج ولو لاحظت في زر Command12 في اخر شئ ينفذه الحدث

وهوه وضع قيمه 1 للمتغير j


الان والحمد لله تبين لنا ما الفائده من هاذا المتغير...........


دعنا نرجع قليلا الا الداله الشريطيه التي في الاعلى



If j = 1 Then
j = 0

TEXT1.Text = ""

End If

طبعا هاذا تم شرحه

ولاكن الان سوف وبين ما الفائده من الداله if والمتغير j

يا اخي الكريم


عند ستخدامك للاله الحاسبه وتقوم بجمع رقمين مثال

2+2

ونقوم بضغط على زر يساوي طبعا راح يتم عمليه الجمع وعرض الناتج في text1




وقمنا ايضا بجمع رقمين في نفس الحظه واليكن

5+5 وهنا ياتي فائده المتغير j وهوه مسح TEXT1.Text للتهيه الى تنفيذ عمليه جديده............



TEXT1.Text = TEXT1.Text + "1"

وهنا قلنا ان تكست واحد تساوي تكست واحد زائد (+) 1

وهنا نتبه يعني زائد واحد ليس جمع بل أضافه على قيمه التكست




###############################################################




Private Sub Command22_Click()
mem = mem + Val(TEXT1.Text)
TEXT1.Text = ""
TEXT1.SetFocus
Text2.Text = "M"
Text2.Visible = True
End Sub


وهنا قلنا ان المتغير mem يساوي mem اي يساوي نفسه + Val(TEXT1.Text

وهنا ايضا نتبه تعني + اي أضافه ليس جمع
وستخدمنا ايضا اداله

Val وهاذه الداله تحول السلاسل النصية إلى قيمة رقمية

اي تحول ما بداخل text1 الى قيمه رقمبه ليتم تخزينه في المتغير mem

دعنا الان نعرف ما هوه المتغير mem ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟


المتغير mem هوه متغير من نوع Double

Double وهاذا المتغير عدد حقيقي كبير نسبيا (يحتوي علي علامة عشرية عائمة) ــ حجمه 8 Byte ــ مداه رقم هائل


والفائده من هاذا المتغير mem للتخزين وستدعاء قيمته من زر

Private Sub Command25_Click()
TEXT1.Text = mem
End Sub

إنتها شرح هاذا المتغير


TEXT1.Text = ""

وهاذه معروفه لمسح TEXT1 بعد ما قمنا بتخزين محتوياتها في المتغير mem


TEXT1.SetFocus


وهنا ستخدمنا الاجراء SetFocus الذي يخص اداه TEXT1


والفائده منه هيه نقل مؤشر الماوس الى اداه التكست



واهاذه يا اخي

Text2.Text = "M"
Text2.Visible = True

ليس لها وجود في الكود قم بحذفها اي ليس لها داعي ...............................................



وتحياتي لك


لا تأسفن على غدر الزمان لطالما...رقصت على جثث الأسود كلاب
لا تحسبن برقصها تعلو على أسيادها...تبقى الأسود أسودا والكلاب كلاب
تبقى الأسود مخيفة في أسرها...حتى وإن نبحت عليها كلاب
تموت الأسد في الغابات جوعا... ولحم الضأن تأكله الكــلاب
وعبد قد ينام على حريـــر...وذو نسب مفارشه التــراب
الرد }}}}
تم الشكر بواسطة:
#9
شكرا لكم جميعا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 194 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 1,576 25-11-16, 12:23 AM
آخر رد: fkwinna
  ربط الفيجوال بأى برنامج رسم هندسي اسلام الكبابى 11 2,037 21-11-16, 11:48 PM
آخر رد: اسلام الكبابى
  [سؤال] برنامج الفراهيدي الاصيله 1 82 11-11-16, 12:29 AM
آخر رد: أبو عمر
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 12 2,115 27-08-16, 07:18 PM
آخر رد: عمور2016
  [سؤال] بشأن برنامج كنترول نتائج الطلاب abomna 0 139 24-07-16, 11:58 PM
آخر رد: abomna
  برنامج لخدمة مراكز اصلاح وصيانة الأجهزة الألكترونية salaheldin 8 1,075 30-06-16, 08:08 PM
آخر رد: GHTAHA
  اعادة نشر برنامج لتصفح المصحف الكريم مفتوح المصدر a_senan 2 513 26-06-16, 09:39 PM
آخر رد: GHTAHA
  برنامج تلفزيون المباشر من النت مفتوح السورس . algroob 7 568 26-06-16, 01:08 PM
آخر رد: abulayth
Smile [كود] برنامج تحليل ملامح الشخصية mohd_sader 6 883 06-05-16, 11:51 AM
آخر رد: elhusseny

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم