منتدى جزيرة الرياضيات

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)
-   منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)
-   -   الدرس السادس : دالة اضهار المسج msgbox (http://www.hesab.net/vb/showthread.php?t=2987)

الاستاذ خليل 07-13-2007 03:14 PM

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

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



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

refathafez 07-13-2007 04:35 PM

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

refathafez 07-13-2007 04:51 PM

احاول مرة اخري ان ارفعة
 
D:\Documents and Settings\Administrator.CYRIX\Desktop\الصف الثاني\home work\refat الواجب.pps

الاستاذ خليل 07-13-2007 05:22 PM

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

refathafez 07-14-2007 03:06 AM

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

الاستاذ خليل 07-14-2007 08:43 AM

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

عملك ممتاز

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

كود:

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

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

كود:

Val(TextBox1.Text) = "60"
او بامكانك تغييره الى التالي :

كود:

TextBox1.Text = "60"
و كلهم تعطي نفس النتيجة لكن ستظهر مشكلة ساخبركم بها لاحقا

fadi9 07-14-2007 09:15 PM

السلام عليكم

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

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

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

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

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

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

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

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

أحمد عبد الغني 07-14-2007 10:18 PM

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

الاستاذ خليل 07-14-2007 10:45 PM

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

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


اقتباس:

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


اقتباس:

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


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

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

zine pef 07-15-2007 04:25 AM

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

refathafez 07-15-2007 06:53 PM

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

refathafez 07-15-2007 08:57 PM

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

الاستاذ خليل 07-15-2007 11:37 PM

1 مرفق
السلام عليكم

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

Amel2005 07-16-2007 12:37 AM

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

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

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

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

zine pef 07-16-2007 02:50 AM

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

zine pef 07-16-2007 03:02 AM

اقتباس:

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

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

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

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

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

الاستاذ خليل 07-16-2007 04:11 AM

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

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

الاستاذ خليل

Amel2005 07-16-2007 11:29 AM

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

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

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

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

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

الاستاذ خليل 07-16-2007 02:38 PM

اخت Amel2005

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

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

zine pef 07-16-2007 06:26 PM

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

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


الساعة الآن 04:10 PM

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir