الدرس السادس : دالة اضهار المسج msgbox

[الاستاذ خليل]

السلام عليكم

بهذا الدرس بدأنا بإختبار اجابات التلاميذ بعمل درس عملي ليكون التعلم ذاتيا للطلاب باستعمال دالة المسج
نحتاج لصفحة او جزء من صفحات الكتاب المدرسي الذي تدرسه بطباعتها بالسكانرو ادخالها للحاسوب ثم تابع الدرس التالي (http://hesab.net/PowerPoint/msgbox.exe) بالصوت و الصورة و التطبق العملي.



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

[refathafez]

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

[refathafez]

D:\Documents and Settings\Administrator.CYRIX\Desktop\الصف الثاني\home work\refat الواجب.pps (http://http://www.m5zn.com /هذا هو الواجب refat)

[الاستاذ خليل]

الرابط لا يعمل ارفعه مرة اخرى

[refathafez]

هنا واجب الدرس السادس
لو كانت الاسئلة مختلفة واختر الاجابة الصحيحة من الاجابات وغيرها من الاسئلة
الاختيار من متعدد د
جزيئة اخري اذا كانت الاجابة صحيحة تظهر رسالة البرنامج وان كانت خطا لاتظهر
الواجب في المرفق التالي

[الاستاذ خليل]

سيتم شرحها بعون الله

عملك ممتاز

بس تقدر تعدل الكود استاذ حافظ كالتالي :

If Val(TextBox1.Text) = 60 Then
'MsgBox ("اجابة صحيحة")
s = MsgBox("اجابة صحيحة", vbOKOnly, "الرياضيات ")
Else
MsgBox ("اجابة خاطئه ")
End If

حيث قمنا بحذف اقواس التنصيص مثل هذا

Val(TextBox1.Text) = "60"

او بامكانك تغييره الى التالي :

TextBox1.Text = "60"

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

[fadi9]

السلام عليكم

شكرا للاستاذ خليل على هذه الدورس المفيدة

في الواقع فكرة جميلة جدا عمل دروس تعليمية تفاعلية

هذا هو الواجب عن درس المسج

http://www.m5zn.com/Download-7.php?name=e1ccb59a29.ppt

عندي بعض الملاحظات :

هناك مشكلة في تحريك العناصر وفي اخفائها واضهارها

ايضا لايوجد في بور بوينت ما يوازي form load في لغة vb
فعندما يكتب المستخدم في textbox تبقى المعلومات محفوظة للاستخدام اللاحق حيث من المفترض ان تكون خالية عند الاستعمال

فهل هناك قصور في برنامج بور بوينت ام يوجد تعليمات لانزال نجهلها تحل هذه المشاكل

[أحمد عبد الغني]

ارجو معرفة شفرة تحويل الكسر لعدد كسري والعكس
وشكرا شكرا على هذه المعلومات المفيدة

[الاستاذ خليل]

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


ايضا لايوجد في بور بوينت ما يوازي form load في لغة vb
نعم في حل بس مو عملي سآتيكم به


فهل هناك قصور في برنامج بور بوينت ام يوجد تعليمات لانزال نجهلها تحل هذه المشاكل
اتوقع نعم


اخي احمد عبد الغني تقوم بقسمة الرقمين و تستخدم int فينتج لك الرقم هو العدد الصحيح المقام نفس مقام الكسر الذي مقامه اصغر من بسطه
بالنسبة للبسط تضرب العدد الذي نتج في المقام و ثم تطرحه من بسط الكسر بينتجلك البسط

قم بتصميم ما تريد و سنساعدك و ارسله

[zine pef]

شكرا للأستاذ على الدرس القيم و انشاء الله تكون فيه الفائدة و جزائك عند الله ويكون عملك هذا صدقة جارية...
الواجب في الرابط التالي...http://www.m5zn.com/Download-7.php?name=ae19c73aad.ppt

[refathafez]

السلام عليكم ورجمة الله وبركاتة
اكواد الدرس السادس عملتها علي الارقام ورفعتها
وحاليا اطبقها برموز عربية ولا تستجيب مش عارف اغير فيها ايه
ارجو المساعدة ؟
رفعت حافظ

[refathafez]

اذا كان المثلث هو أ ب جـ وكتب بغير ذلك الترتيب فإن الاجابة تكون خطأ
واليك هذا العمل أرجو المساعدة

[الاستاذ خليل]

السلام عليكم

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

[Amel2005]

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

التطبيق على الرابط
http://www.m5zn.com/Download-7.php?name=404c72a5e2.zip

وقد استخدمت فيها فكرة msgbox بطريقة تختلف قليلا عن الشرح المعروض لأننى لا أملك اسكنر .
وفكرتى اعتمدت على option box
ولكن ظهرت لى مشكلة الأرقام والتى ظهرت بصورة عربية وليست هندية...
فهل يمكن التغلب على ذلك... أم أن لغة الـ VBA لا تتعرف إلا على هذه الأرقام.
أتمنى أن أكون قد وفقت فى تطبيق فكرة الدرس.
نفع الله بك المسلمين أستاذنا الكريم.

احترامى وتقديرى .

[zine pef]

الأخوى الأفاضل في مثال شبه المنحرف لم تنتيهوا الى أ ب// ب ج و الأصح هو أ د// ب ج
.... و معدرى اخواني ||||

[zine pef]

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

التطبيق على الرابط
http://www.m5zn.com/Download-7.php?name=404c72a5e2.zip

وقد استخدمت فيها فكرة msgbox بطريقة تختلف قليلا عن الشرح المعروض لأننى لا أملك اسكنر .
وفكرتى اعتمدت على option box
ولكن ظهرت لى مشكلة الأرقام والتى ظهرت بصورة عربية وليست هندية...
فهل يمكن التغلب على ذلك... أم أن لغة الـ VBA لا تتعرف إلا على هذه الأرقام.
أتمنى أن أكون قد وفقت فى تطبيق فكرة الدرس.
نفع الله بك المسلمين أستاذنا الكريم.

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

[الاستاذ خليل]

AMEUL2005 عمل رائع لكن تستطيعي وضع الكود في شفرة الادات option box باستعمال حدث الضغط و بيكون كذا استغنيتي عن الازرار جميعها .

سيتم شرح الاداة option box لانها مهمة اصبر قليلا zine pef مع انك تقدر تفتحه اول تشغله عادي ثم تغلقه بعدين تروح للباور بوينت تلاقي اخر ملف فتحته تفتحه تجد الكود

الاستاذ خليل

[Amel2005]

السلام عليكم ورحمة الله وبركاته
أهلا بأخى الفاضل / zine pef
الملف غير مغلق :eek: ... ويمكن فتح مثل هذه الملفات :rolleyes: من خلال فتح ملف باور بوينت موجود أو فتح البرنامج
ثم اختيار
ملف --- > فتح --- > واستعراض الملف بهذه الطريقة.
وهى الطريقة التى أستخدمها .... لأستفيد من الملفات المعروضة على النت.

طبعا كلنا نتعلم من الأستاذ بارك الله فيه وفى جهده ونفع المسلمين به
ولا أنكر أنى أيضا أتعلم من ملفاتكم المرفقة ... فأشعر هنا وكأنى فى مركز تبادل خبرات يرأسه المعلم الفاضل / الأستاذ خليل :cool: .

أعتذر عن الإزعاج الذى تسبب لك دون قصد لأن الملف غير مغلق :)
أعدت رفع التطبيق على الرابط
http://www.m5zn.com/Download-7.php?name=3ac650c750.zip

أستاذى الفاضل / الأستاذ خليل ...
أشكرك على هذه المعلومة ... جزاك الله خيرا .
ولكن
هل هناك لحل مشكلة الأرقام التى ذكرتها فى مشاركتى السابقة
بارك الله فيك.

تحياتى للجميع
أختكم Amel2005

[الاستاذ خليل]

اخت Amel2005

الارقام تظهر بشكل صحيح لدي مثل ما تريدين هندية

كيف ضهرت المشكلة غيري اللغة الى العربية و ثم شغليه سيضهر بالارقام الهندية.لانكي كنت مشغلته على اللغة الانجليزية فظهرت الارقام بالعربية .
من لوحة التحكم لا بد ان تكون خيارات الارقام موضعية (كونتكس).

[zine pef]

*** شكرا الأستاذ الفاضل على الفكرة....

*** الأخت Amel2005 لكي مني الف شكر على الشرح القيم وصلت الرسالة...
1) ملف --- > فتح --- > واستعراض الملف بهذه الطريقة.{{هذه الجملة مفهومة}}
2) وهى الطريقة التى أستخدمها .... لأستفيد من الملفات المعروضة على النت{{و هذه غير مفهومة}}
ان ممكن اختاه تشرحلي اكثر حتى استعمل هذه الطريقة ولك مني أأأأأأأأأللللللللللففففففففف شكر..... ;)

[الاستاذ خليل]

لقد عملت لك شرح تجده بالموقع قم بتحميله
http://www.msa7ty.com/download-ae7a48ebb6.exe.html

هذه المرة حمل ملفات هنا بهذا الموقع تجده سهل انشاء الله
http://www.msa7ty.com

[refathafez]

شكر علي الرد والاجابة لكن عندي شئ آخر
هو اذا كان البرنامج لايدعم المسافات وايضا يكون أ ب لاتساوي ب أ يعني اكمل او " أ ب "
أ," ب أ" ، او ........
ا لي جميع الاحتمالات الممكنة للإجابة فما رايك
ايضا علي الرابط السابق عند تحميلة وجدت جزء من الواجب الخاص بي
سعدت جدا جدا جدا ان يكون هذا الجزء من واجبي ارجو ان يحوز اعجابك
وشكر وتقدير لسيادتكم رفعت حافظ

[zine pef]

شكرا استاذي على هذا الشرح المصور لكن هذه النقطة فهمتها من الأخت امال2005 لكن اني ابحث عن عكسها معناه هذا الملف كيف اقوم بصنعه كما في الصورة
http://www.msa7ty.com/uploads/f3865b9d0b.jpg (http://www.msa7ty.com)

[Amel2005]

السلام عليكم ورحمة الله وبركاته
خالص شكرى أستاذى الفاضل / الأستاذ خليل
يبدو أن مشكلة الأرقام خاصة بجهازى
شكر الله لك مجهودك معنا ...

أخى الفاضل / zine pef
قصدت بجملة "لأستفيد من الملفات المعروضة على النت" هو أن معظم الملفات تكون معروضة بهذه الطريقة والتى تجعل ملف مصنوع بواسطة برنامج الباوربوينت... يعمل تلقائيا بمجرد الضغط عليه ....
ولعمل مثل هذا النوع من الملفات :
1- افتح الملف الذي تريد كالمعتاد ..
2- اذهب الى قائمة ملف واختر الامر " حفظ بإسم "
3- من مربع الحوار الظاهر اختر نوع الملف من قائمة النوع " PowerPoint Show "


http://www.msa7ty.com/uploads/d887604e4b.gif


4- احفظ الملف بالإسم الذي تريد في المكان الذي تريد
سينتج عن هذه العملية ملف جديد ( نسخه من الملف السابق ) يختلف عن الأول في النوع فقط ... والرمز وعند النقر عليه نقرا مزدوجا... يتم فتح العرض مباشرة ..

تحياتى للجميع.

[zine pef]

شكرً ا جزيلاًََ اختاهamel2005

[fadi9]

السلام عليكم

بالنسبة لسؤال للاخ refathafez عن الفراغات في بداية ونهاية النص

يمكن استعمال الدالة trim التي تقوم بمسح الفراغات من بداية ونهاية نص ما

مثال : ( " العلم نور ") trim تعطي "العلم نور"
بدون فراغات في البداية والنهاية

وبذلك يمكن تقليل عدد الاحتمالات الى احتمالين في كل فراغ , اي "أ ب" او " ب أ"

[refathafez]

السلام عليكم استاذنا الفاضل أ / خليل
وشكر للأخ / fadi9 يأخي العزير المسافات في نهاية الجملة وبدايتها نعم
نسبق الكود trim , ولكن انت عارف رموز الرياضيات مثلا (المثلث أ ب جـ )
هو نفس المثلث (ب أ جـ) هونفسة .........وممكن يكون ( اب جـ)
وشكر لاستاذنا / الاستاذ خليل
مع ان حضرتك عملت الكود الاول لم استطع تعميمة علي الباقي مع تغير في
TextBox1.Text غيرت الي TextBox2.Text ,وغيرت الكل
ولكن عملت حاجة تانية سوف ارفعها عندما تكمل بمشئة الله
رفعت حافظ

[refathafez]

السلام عليكم
نعم فية خطأ في العبارة أ د // ب جـ وليس كما كانت معروضة
وشكرا للأخ zine pef
ولكن الهدف كود // نفسة لم تعمل لذلك رفعته للأستاذ خليل
وقد تم دارك الخطا وشكر أ

[الاستاذ خليل]

تفاعلكم مشجع

بالنسبة للسؤال الذي فيه اكثر من احتمال للحل نستخدم فيه ادات الربط OR و ترجمتها( أو ) و تفيد في تحقق احد الشروط يعطيك العبارة صحيحة . مثلا لو تريد تختبر ان اذا كتب المستخدم أ ب أو حتى ب أ تقوم بربطهم هكذا
مثلا
Private Sub CommandButton1_Click()
If TextBox1.Text = "ب أ" Or TextBox1.Text = "أ ب" Then
MsgBox "الاجابة صحيحة", vbOKOnly, "رسالة البرنامج"
End If

End Sub

و ممكن ان تختبر اكثر من شرطين حيث تكمل في الجملة كالكود التالي
Private Sub CommandButton1_Click()
If TextBox1.Text = "ب أ" Or TextBox1.Text = "أ ب" Or TextBox1.Text = "أب" Then
MsgBox "الاجابة صحيحة", vbOKOnly, "رسالة البرنامج"
End If

End Sub

[fadi9]

الاحت العزيزة amel2005

بالنسبة لمشكلة الارقام عندك يمكن حلها بالشكل التالي :

من لوحة التحكم - نختار خيارات اقليمية وخيارات اللغة - ثم تخصيص - ثم استبدال الارقام :ونحتار منها - وطني- ثم نضغط موافق في كل من النافذتين المفتوحتين

وهكذا تصبح الارقام دائما هندية

[الاستاذ خليل]

الاخت امل و هذا شرح يضا ان كان الوندوزانجليزي
http://www.msa7ty.com/download-ccf4cfd772.exe.html

و شكرا لكم fadi9 على الرد و المساعدة

الاستاذ خليل

[Amel2005]

السلام عليكم جميعا ورحمة الله وبركاته
أشكر لكم مجهودكم ... شكر الله لكم
وجزاكم عنى خيراً.

السلام عليكم

شكرا للاستاذ خليل على هذه الدورس المفيدة

في الواقع فكرة جميلة جدا عمل دروس تعليمية تفاعلية

هذا هو الواجب عن درس المسج

http://www.m5zn.com/Download-7.php?name=e1ccb59a29.ppt

عندي بعض الملاحظات :

هناك مشكلة في تحريك العناصر وفي اخفائها واضهارها

ايضا لايوجد في بور بوينت ما يوازي form load في لغة vb
فعندما يكتب المستخدم في textbox تبقى المعلومات محفوظة للاستخدام اللاحق حيث من المفترض ان تكون خالية عند الاستعمال

فهل هناك قصور في برنامج بور بوينت ام يوجد تعليمات لانزال نجهلها تحل هذه المشاكل
بعد إذن الفاضل / الأستاذ خليل ...
بحثت فى النت عن كود إخفاء ولإظهار العناصر المرسومة على العرض التقديمى... فوجدت هذا الكود


ActivePresentation.Slides(1).Shapes.Item(1).Visibl e = msoFalse

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

والله أعلم .

أكرر شكرى للجميع .
تحياتى.

[الاستاذ خليل]

لكن كيف سنعرف رقم الشكل مثلا لنعطيه هذه الخاصية الامر يتطلب مثال ان امكن شكرا لتفاعلكم

[Amel2005]

وعليكم السلام ورحمة الله وبركاته...
جزاك الله خيرا أستاذنا الكريم ....
هذا رابط به شرح اجتهادى
أتمنى أن يكون واضحا..
http://la.joreyat.org/download.php?id=1ec023a7a6e6c24443f7fe03cee1a7c6

تحياتى.

[الاستاذ خليل]

شكرا جزيلا شرح ممتاز مفيد جدا كانت غائبة عني

[Amel2005]

أشكر كلماتك وتشجيعك ... وتواضعك .
رفع الله قدرك ... وزادك علما .

[fadi9]

السلام عليكم
شكرا للاستاذ خليل
شكرا للاخت amel2005 معلومات قيمة فعلا
هكذا تصبح الدورة ممتعة ومفيدة بتعاون الجميع

[zine pef]

شكرا للأستاذة Amel2005 حتى اذا كان الرد متأخر شرح ممتاز و ايضا انت استاذة في الفلاش