منتديات نبع الفرات

تمت ارشفة منتديات نبع الفرات

المشاركات من الموضوع الرياضيات والبرمجة ( عمل برنامج لحساب مساحة ومحيط المربع )

  1. بواسطة spyman

    السلام عليكم :


    يرجى عند النقل ذكر المصدر


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

    ومن خلالها نتمكن من حساب المساحات والحجوم والمحيطات للاشكال الهندسية المختلفة

    كالمربع المستطيل والدائرة والمثلث والمعين والمتوازي المستطيلات وغيرها من الاشكال

    بدأت باسهل شيء وهو المربع .. سهل للغاية .. لاحظ الكود جيداً وبالتالي سوف تفهمه

    اول شيء عليك ان تعرف كيفية حساب الاشكال الهندسية ولديك معلومة حول هذا الشيء

    حتى تستطيع ان تترجمه الى كود ....

    نأتي الى موضوع اليوم :

    المربع من الاشكال الهندسية البسيطة التي يتم احتسابه من خلال معرفة طول الضلع

    فقط .. واذا اردنا احتساب مســــــــاحة المربع علينا ان نــــــطبق المعـــــــادلة ادناه :


    مساحة المربع = طول الضلع * نفسه



    بينما يتم احتساب محيط المربع كالتالي :

    محيط المربع = طول الضلع * 4


    هذا الشيء اذا كان على الورقة اما اذا كان في لغات البرمجة .. عليك ان تعرف

    طول الضلع وتعطيه حرف يمثله ... مثلاً انا ساقوم بتعرف طول الضلع على انه

    حرف ( s ) ويتم تعرفيه كما بالكود ادناه : ( يتم ادخال الاكواد ادناه في بوتون )

    Dim s

    كود بسيط وسهل للغاية كما تلاحظون .. مجرد تعريف بالمتغير ( طول الضلع )


    بعد ان عرفنا المتغير ( s ) يجب ان نعرف مكان ادخاله .. اي .. اين يتم ادخاله ؟

    بالتاكيد سوف ندخله في text1 .. فيجب ان نخبر البرنامج بأن text1 خاص بالمتغير s

    كما بالكود ادناه :



    s = Val(Text1)


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

    بالتأكيد نحتاج الى text2 لاظهار النتيجة فيها .. ثم ندرج معه العملية الحسابية

    الخاصة في اظهار مساحة المربع او محيطه ..ادناه سنستخرج المساحة للمربع

    Text2 = s * s


    احنة ذكرنا في بداية الموضوع ان مساحة المربع طول الضلع في نفسه

    وعرفنا الحرف s على انه طول الضلع اذا يجب ان نضربه في نفسه


    والنتيجة سوف تظهر في التيكست 2

    كل الاكواد اعلاه في زر الامر المسمى ( حساب المساحة )


    اما الاكواد ادناه فهي لحساب المحيط :

    ادرج بوتون ثاني وغير اسمه الى ( حساب المحيط )

    وادخل الكود التالي :

    Dim s

    s = Val(Text1)

    Text2 = s * 4




    السطر الاول تعرف للمتغير ( طول الضلع s )

    السطر الثاني تخصيص التيكست بوكس 1 لطول الضلع

    السطر الثالث تخصيص التيكست الثاني للنتيجة

    وكتبنا فيه معادلة حساب المحيط للمربع
  2. بواسطة Ali-Alwasiti

    عاشت ايدك عالموضوع الحصري
    تقييم
  3. بواسطة spyman

    حياك الله علي
  4. بواسطة Hazim M

    عاشت ايدك سبايمان
    تقييمي الك

    [صورة]
  5. بواسطة spyman

    اهلا وسهلا عزيزي حازم :)
  6. بواسطة Abo Al-hassan

    شكرا جزيلا اخي اسأل الله ان يوفقك ويجعلك معطاءاً لعمل الخير
  7. بواسطة spyman

    عفوا اخي الغالي

    منورالموضوع