[COLOR="#0000CD"][COLOR="#0000CD"]السلام عليكم
الى الخبراء
اطلب منكم
شرح عمل الاله الحاسبة
ولقد بحثت فى المنتديات واليوتيوب على شرح البرنامج ماوجدت
وهذه صورة البرنامج الاله الحاسبة
صورة البرنامج بالمرفقات
ارجو المساعده ضرورى[/COLOR]
[/COLOR]
السلام عليكم
اخي الكريم هاذا مثال تقدر تعدلة حسب رغبتك
تفضل
مشكوري على المساعده ياساتذه
حاولت قراءة البرنامج والاكواد فى شى فهمت وفى شى مافهتمو
ممكن المساعده على الاسكابى او الماسنجر
وشكرا
[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]
السلام عليكم
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
ليس لها وجود في الكود قم بحذفها اي ليس لها داعي ...............................................
وتحياتي لك