منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
شرح عمل برنامج الاله حاسبة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : شرح عمل برنامج الاله حاسبة (/showthread.php?tid=9780)

شرح عمل برنامج الاله حاسبة - ودالثورة - 25-07-13

[COLOR="#0000CD"]
[COLOR="#0000CD"]السلام عليكم
الى الخبراء
اطلب منكم
شرح عمل الاله الحاسبة
ولقد بحثت فى المنتديات واليوتيوب على شرح البرنامج ماوجدت
وهذه صورة البرنامج الاله الحاسبة
صورة البرنامج بالمرفقات
ارجو المساعده ضرورى[/COLOR]
[/COLOR]

شرح عمل برنامج الاله حاسبة - samee119485r - 25-07-13

السلام عليكم
اخي الكريم هاذا مثال تقدر تعدلة حسب رغبتك

تفضل

شرح عمل برنامج الاله حاسبة - AGASHE - 25-07-13

تفضل اخي هذا كتاب كنت صنعته عن صنع الالة الحاسبة

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

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

شرح عمل برنامج الاله حاسبة - ودالثورة - 25-07-13

مشكوري على المساعده ياساتذه

شرح عمل برنامج الاله حاسبة - ودالثورة - 01-08-13

حاولت قراءة البرنامج والاكواد فى شى فهمت وفى شى مافهتمو
ممكن المساعده على الاسكابى او الماسنجر
وشكرا

شرح عمل برنامج الاله حاسبة - ودالثورة - 02-08-13

ارجو الرد ضرورى

شرح عمل برنامج الاله حاسبة - ودالثورة - 19-08-13

[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]

شرح عمل برنامج الاله حاسبة - samee119485r - 19-08-13

السلام عليكم

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

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



وتحياتي لك

شرح عمل برنامج الاله حاسبة - سيف الورد - 21-08-13

شكرا لكم جميعا