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

منتدى جزيرة الرياضيات (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) وهى الطريقة التى أستخدمها .... لأستفيد من الملفات المعروضة على النت{{و هذه غير مفهومة}}
ان ممكن اختاه تشرحلي اكثر حتى استعمل هذه الطريقة ولك مني أأأأأأأأأللللللللللففففففففف شكر..... ;)

الاستاذ خليل 07-16-2007 08:00 PM

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

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

refathafez 07-17-2007 01:04 AM

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

zine pef 07-17-2007 02:18 AM

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

Amel2005 07-17-2007 02:36 AM

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

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


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


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

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

zine pef 07-17-2007 10:55 AM

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

fadi9 07-17-2007 10:40 PM

السلام عليكم

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

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

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

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

refathafez 07-18-2007 01:16 AM

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

refathafez 07-18-2007 02:39 AM

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

الاستاذ خليل 07-18-2007 03:13 AM

تفاعلكم مشجع

بالنسبة للسؤال الذي فيه اكثر من احتمال للحل نستخدم فيه ادات الربط 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 07-18-2007 09:09 PM

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

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

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

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

الاستاذ خليل 07-19-2007 03:00 PM

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

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

الاستاذ خليل

Amel2005 07-19-2007 06:49 PM

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

اقتباس:

المشاركة الأصلية كتبت بواسطة fadi9
السلام عليكم

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

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

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

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

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

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

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

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

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


كود:

ActivePresentation.Slides(1).Shapes.Item(1).Visible = msoFalse
وللحفاظ على المعلومات محفوظة دون تغيير ... يمكن جعل الملف للقراءة فقط ....
مما يجبر المستخدم على عدم التعديل فى الملف الأصلى ...
إلا إذا قام بتغيير هذه الخاصية .

والله أعلم .

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

الاستاذ خليل 07-19-2007 10:50 PM

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

Amel2005 07-20-2007 08:04 PM

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

تحياتى.

الاستاذ خليل 07-20-2007 08:35 PM

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

Amel2005 07-20-2007 10:48 PM

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

fadi9 07-21-2007 05:08 PM

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

zine pef 07-26-2007 07:07 PM

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


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

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