تقييم الموضوع :
  • 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
شكرا لكم جميعا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج مواقيت الصلاة لشهر رمضان لولاية بسكرة عبد الرحمان البسكري 4 136 09-05-17, 09:45 PM
آخر رد: Ratchinko
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 55 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  السؤال عن برنامج تسطيب عبد الرحمان البسكري 1 45 03-05-17, 12:17 AM
آخر رد: Ahmed_Mansoor
  برنامج مكافح الفيرس يعترض ملف exe عند بداية تشغيله عبد الرحمن على 8 153 26-04-17, 10:27 PM
آخر رد: عبد الرحمن على
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 197 15-04-17, 04:13 AM
آخر رد: sendbad100
  [vb6.0] طلب برنامج عرض اجهزة الشبكه f16 1 255 21-01-17, 06:35 PM
آخر رد: Ashraf Elafify
  اعادة نشر برنامج لتصفح المصحف الكريم مفتوح المصدر a_senan 4 853 07-01-17, 09:06 PM
آخر رد: Ashraf Elafify
  برنامج لخدمة مراكز اصلاح وصيانة الأجهزة الألكترونية salaheldin 9 1,472 25-12-16, 09:26 AM
آخر رد: Famo15385
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 789 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 2,046 25-11-16, 12:23 AM
آخر رد: fkwinna

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


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