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