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


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

تفضل


الملفات المرفقة
.rar   اله حاسبة.rar (الحجم : 9.05 ك ب / التحميلات : 74)
الرد }}}
تم الشكر بواسطة:
#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
شكرا لكم جميعا
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة فى برنامج الاجازات aboezzat84 1 683 26-03-23, 03:56 PM
آخر رد: sanyor77
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 16 12,130 31-10-22, 11:50 PM
آخر رد: Ibrahimxp
  برنامج تعبئة الرصيد للثلاث متعاملين في الجزائر AHMED213 3 2,980 04-10-22, 10:11 PM
آخر رد: Taha Okla
  تحويل برنامج تم تصميمه بلغة الفيجوال بيسك الى مايكروسوفت اكسيس shabrawy 3 865 07-09-22, 10:05 PM
آخر رد: Taha Okla
  برنامج مترجم قوقل مفتوح المصدر samee119485r 23 11,219 20-12-21, 12:44 AM
آخر رد: marmarmar
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
  برنامج جديد benali17 2 1,662 27-01-21, 11:27 PM
آخر رد: benali17
Wink [مشروع] اريد برنامج فيجوال بيسك 2010 عن حساب سعر السلعة بعد الخصم Aiosh15 0 1,617 10-12-20, 04:43 PM
آخر رد: Aiosh15
  عاجل هل يوجد اي برنامج ينفع مشروع تخرج جاهز مثال ابو عمر الشهري 1 1,635 24-11-20, 03:17 AM
آخر رد: Amir_Alzubidy

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


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