أبو عادل

اخي الكريم جزاك الله كل خير على الملاحظات وهي :

الخطأ الأول : في عبارة "الجذر التربيعي الصحيح الموجب"

هنا سقطت كلمة للعدد لتصبح العبارة ( الجذر التربيعي للعدد الصحيح الموجب ) والحق معك لأن هذا خطأ علمي أشكرك جزيل الشكر لأنها سقطت سهواً

والملاحظة الثانية وهي عندما قلت

الخطأ الثاني: (مندرج من الأول) وهو في عبارة "ليس له جذر تربيعي" المستعملة في الكود لأن أي عدد حقيقي موجب يقبل جذرا تربيعيا وحيدا. يمكن استبدال هذه العبارة "جذره التربيعي ليس تاما" أو "ليس طبيعيا"...

أخي الكريم بما أنني أستخدم الأعداد التي تنتمي إلى المجموعة ط ( وهي مجموعة الأعداد الطبيعية ) فلا ضرر من كتابة ليس له جذر تربيعي والمقصود ضمناً في المجموعة ط لأن الخلية صغيرة لاأريد

أن اكبر تلك الخلية

ولاحظ أنني قلت

ويظهر العبارة التالية ( ليس له جذر تربيعي ) في حال ان ناتج الضرب ليس مربعاً كاملاً

والمقصود بناتج الضرب هنا أي ضمن هذا الجدول هو بعض عناصر من المجموعة ط لأن معلومك أن حاصل ضرب عدد طبيعي في عدد طبيعي فإن الناتج ينتمي إلى ط

وعندما يكون ناتج الضرب لعدد طبيعي في نفسه يمثل مربع كامل وبالتالي له جذر تربيعي في ط .

والجدول هنا ليخدم فئة من الطلاب لم تتعرف على مجموعة الأعداد الحقيقية ( ح )

وأخيراً هل تعتقد أنه لايمكن إيجاد الجذر التربيعي بإستخدام الجدول السابق لأي عدد ؟؟ نعم يمكن ذلك لأن الكود يوجد الجذر التربيعي لأي عدد ضمن هذا الجدول

فمثلا 4 × 6 = 24 ويلاحظ أن الأعداد 4 و 6 و 24 أعداد تنتمي إلى ط وأن العدد 24 ليس مربعاً كاملاً وبالتالي جذره التربيعي = 4.8989794 قيمة تقريبية وهو عدد غير طبيعي (حقيقي) ففي هذه الحالة كيف

تريد أن تكون الإجابة لطالب لم يتعرف على مجموعة الأعداد الحقيقية ( أعداد نسبية وأعداد غير نسبية ) ؟ لذلك كتبنا العبارة ( ليس له جذر تربيعي )

لاأريد أن يطول الموضوع حتى لايفقد البرنامج قيمته

هذا والله أعلم

أشكرك مرة أخرى

إنظر المرفق

____________________________.rar

يأخي أبو تامر والله إنك أستاذ بكل معنى الكلمة

جزاك الله عنا كل خير وبارك الله فيك وبعملك وزادك من رزقه

السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي الكرام

بالحقيقة تم طرح هذا الموضوع من قبل أستاذنا أبو أسامة وهو ضرب عددين ضمن حدود جدول الضرب

من 1 إلى 12 وكان العمل رائعاً جداً .وكان الكود كما يلي :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Or Target.Column = 1 Or Target.Row > 13 Or Target.Column > 13 Or Target.Cells.Count > 1 Then Exit Sub
With Range("data")
.ClearContents
.Cells.Interior.ColorIndex = xlNone
End With
Range(Cells(2, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44
Range(Cells(Target.Row, 2), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44
Target.Value = Cells(1, Target.Column) * Cells(Target.Row, 1)
Target.Interior.ColorIndex = 6
MyZoom = ActiveWindow.Zoom
ActiveWindow.Zoom = 120
Application.Wait (Now() + TimeValue("00:00:02"))
ActiveWindow.Zoom = MyZoom
End Sub

أحببت أن أزيد في مجال الأعداد وكان التحديد من 1 إلى 20 ثم خطر على بالي الإستفادة من جدول الضرب وخاصة عند ضرب 1×1 و2×2 و3×3 .......وناتجها هو مربع كامل لتلك الأعدد حيث من الممكن إيجاد الجذر التربيعي الصحيح الموجب لتلك الأعداد فقمت بإضافة عمود في نهاية الجدول يظهر الجذر التربيعي للعدد ويظهر العبارة التالية ( ليس له جذر تربيعي ) في حال ان ناتج الضرب ليس مربعاً كاملاً . طلبت من الأستاذ ابو أسامة كود يظهر العبارة المطلوبة السابقة فقام مشكوراً برفع الكود التالي :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Or Target.Column = 1 Or Target.Row > 21 Or Target.Column > 21 Or Target.Cells.Count > 1 Then Exit Sub
With Range("data")
.ClearContents
.Cells.Interior.ColorIndex = xlNone
End With
Range("sqrng").ClearContents
Range(Cells(2, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44
Range(Cells(Target.Row, 2), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 44
Target.Value = Cells(1, Target.Column) * Cells(Target.Row, 1)
Cells(Target.Row, 22) = Target ^ 0.5
        If Cells(Target.Row, 22) - Int(Cells(Target.Row, 22)) <> 0 Then
        Cells(Target.Row, 22) = "ليس له جذر تربيعي"
        Else
        Cells(Target.Row, 22) = Target ^ 0.5
        End If
Target.Interior.ColorIndex = 6
MyZoom = ActiveWindow.Zoom
ActiveWindow.Zoom = 120
Application.Wait (Now() + TimeValue("00:00:01"))
ActiveWindow.Zoom = MyZoom
End Sub

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

العدد الأكبر من إخواننا وأخواتنا و فائدة لأولادنا

لاتنسوا الدعاء لأخينا وأستاذنا أبو أسامة /

وتقبلوا مني خالص التحية

أبو عادل

حمل الملف من هنا

بارك الله فيك اخي ابو اسامة

والله إنك أستاذ بكل معنى الكلمة

متستاهل ان يطلق عليك إسم عبقري

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

اخي ابو أسامة العزيز

يرجى مراجعة المشاركة 21

مع الشكر

أخي زياد

اسأل الله تعالى أن يجزيك خير جزاء وأن يجعل لك في كل خطوة تحط خطيئة وترفع درجة

الأخ ahmedhafez

الرجاء الإنتباه إلى الكتابة لأن تغيير أو نقصان أي حرف يغير من المعنى

السلام عليكم الهم صلى على محمد وعلى الى محمد رابط رائع اخى زياد

أسأل الله تعالى أن يبعد عنك وعنا الهم آآآآآمين

جزاك الله كل خير أخي أبو أسامة

تم عمل اللازم%100

أخي أبو أسامة

قمت بعمل بعض التعديلات البسيطة بحيث المدى أصبح من 1 إلى 20

وقمت بإضافة عمود يمثل الجذر التربيعي للعدد الصحيح الموجب

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

وجزاك الله كل خير أستاذنا الكريم

الملف بالمرفقات

1.rar

الأخ أبو أسامة المحترم

ارجو مراجعة المشاركة 8 مع وافر الشكر

أخي الكريم أبو أسامة

جزاك الله كل خير على الفكرة الرائعة لأنها تفيد جيل كبير من الأطفال

اسأل الله أن تكون في ميزان حسناتك

أخوك أبو عادل

جربت عمل جدول لوحدي لكن ظهر لي خطأ أرجو المساعدة

الملف بالمرفقات

1.rar

بارك الله فيك مهندس صالح

تسلم يديك اخي زياد وبارك الله فيك

أخي زياد علي المحترم

يأخي أنا لم أرد على مشاركة الأخ أيسم هذا أولاً

وثانيا الرد كان على الأخ goda509129

الرجاء منك قراءة المشاركة جيداً

مع جزيل الشكر أخي الحبيب

أخي زياد

أشكرك حبيب قلبي لكن أين السؤال الذي وجهته لأخي أيسم ؟؟؟

أخي زياد أكرمك الله على هذه الأداة

أشكرك أخي أحمد عبد العزيز على المعلومة

أخي العزيز goda509129

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

الرجاء عند الكتابة بالمشاركة أن تراجع ماكتبته !!!!!!!!!!

إقرأ ماكتبته في العبارة السابقة

انا لاأقصد التجريح بقدر الإهتمام بكتابتنا ولغتنا حتى نستطيع الفهم والتفاعل

بالنسبة لرفع أي صورة يمكنك عن طريق عدة مواقع لعرض الصورة التي تريد عرضها هنا على الأعضاء

إليك أحد المواقع والتي تسجل فيها وتتبع مايلي:

بعد التسجيل بالموقع :

1) ترفع الصورة المطلوبة في هذا الموقع من جهازك

2) بعد إنتهاء رفع الصورة يأتيك رابط الصورة فقم بنسخه

3) في شريط الأدوات هنا بالمنتدى توجد أيقونة تحت إسم أضف صورة وعند فتحها إلصق رابط الصورة الذي نسخته من موقع رفع الصور ثم وافق

إليك رابط موقع رفع الصور إسمه العملاق

http://www.0zz0.com/index.php?pz=41404

أخوك أبو عادل

ملاحظة : إذا ماوضحت الطريقة سأشرح لك بالصور

السلام عليكم ورحمة الله وبركاته

أخي العزيز زياد

الف مبروك لهذه الترقية وأسأل الله تعالي أن تفيد إخوانك وتستفاد لنفسك

في هذا المنتده الراقي ومنها للأعلى

أخوك أبو عادل

السلام عليكم ورحمة الله وبركاته

أخي الكريم أهلاً وسهلاً بك أخ عزيز بين إخوانك

أولاً الرجاء توضيح التالي

[حدد الخلايا خلف كل صورة واعطى لها اسم insert ------- Nme ---------- Define

اختار مجموعة خلف ادى الصور وحددها ثم اضغط على الاداة الجديدة Camera

إذهب الى الصفحة الاخرى التى تريد بها اظهار الصور وحدد المكان الذى تريد ان تظهر الصورة به

ستظهر لك صورة ديناميكية اذا غيرت الصورة فى المكان السابق ستتغير تلقائيا

اما اذا اردت ان تربطها بمعادلة

وكيف يتم إظهار الصورة في الصفحة الثانية ؟؟؟

مع جزيل الشكر

مجموعة من الشباب المتفاعل

ما شاء الله لاقوة إلا بالله

بارك الله فيك استاذ يحيى بإنتظار الشرح

اخي m_127899

جزاك الله كل خير ورزقك الجنة ... أميييييييييييييييين

الأخ هشام

بارك الله فيك على البرنامج القيم وفي ميزان حسناتك بإذن الله

دامت المحبة والأخوة بين شباب المنتدى

السلام عليكم أخي أبو تامر

انا زعلان منك يعني انت حبيبي وصديقي بتسوي اكل وطبخ وحلويات وبتنسى أحبابك بدون دعوة

الله يسامحك

جزاك الله كل خير وماهو بغريب عن أستاذ فاضل من الكرم والجود

الإخوان

ziad ali

يوسف عطا

new4a

الله يسامحكم مثل ما يقول المثل من شاف أحبابه نسي أصحابه

عليكم بالعافية صحيح انا وصلت متأخراً لكن ولا يهمكم أخذت نصيبي من مطبخ الشيف ابو تامر

جزاكم الله كل خير على هذا التفاعل الرائع

أبو عادل

الإخوة الأعزاء

بارك الله فيكم أجمعين إخوة متحابين في الله

الأخ زياد والله إنك كريم وجزاك الله كل خير على الروح الرياضية الطيبة

الأخ الكريم عبد العزيز سوء التفاهم يقع بين الإخوة والمسامح كريم

اسأل الله تعالى أن يغفر لنا ذنوبنا ويكفر عنا سيئاتنا ويدخلنا جنته مع الأنبياء والصالحين والصديقين

آآآآآآآآآآآآمين يارب العالمين

أخوكم أبو عادل

السلام عليكم

الإخوة

سالم الشيباني

طارق

بوش

يحيى

يوسف عطا

m - 127899

جزاكم الله كل خير على الردود

تم رفع البرنامج على الرابط الذي وضعه الأخ يوسف مشكوراً

والشرح موجود داخل الملف قام به الأخ خالد مخلوف جزاه الله عنا كل خير

رابط التحميل هنا

أخي أحمد

جزاك الله كل خير على المعلومة وأنا عن نفسي لاأعلمها

أخي زياد : ليس من الداعي الإحراج لأخيك أحمد وكلنا نتعلم والتمس لأخيك عذراً

هدانا الله لما فيه مرضاته