منتدى جزيرة الرياضيات
صفحة 1 من 2 1 2
عرض 40 مشاركات من هذا الموضوع لكل صفحة

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)
-   منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)
-   -   الدرس الخامس: الشفرة و كيفية كتابتها و الدوال و الاحداث و دالة if (http://www.hesab.net/vb/showthread.php?t=2963)

الاستاذ خليل 07-03-2007 03:45 PM
الدرس الخامس: الشفرة و كيفية كتابتها و الدوال و الاحداث و دالة if
 
السلام عليكم

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

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

و هنا ملفات تطبيقية على المواضيع المشروحة (صوت و صورة)
يرجى زيادة الصوت لانه سجل ضعيفا
عن ادراج الشفرة ملف ثاني

ربط السلاسل النصية

شرح بعض الدوال الجزء الاول

شرح بعض الدوال الجزء الثاني

العمليات الجمع و الطرح و الضرب و القسمة

اضافة الارقام

دالة الشرط if

المتغيرات الجزء الاول

المتغيرات الجزء الثاني



يرجى قراءة و محاولة التطبيق جيدا

الدروس التاالية سنطبق عملي انتاج دروس تفاعلية يرجى ادراج الواجب كرابط

الاستاذ خليل

ابتسام 07-03-2007 08:29 PM
الدوال
 
:) مشكور استاذ خليل ..................... مع المزيد من العطاء

الاستاذ خليل 07-03-2007 10:14 PM
اختي لا شكر على واجب و انتظر الواجب منكم

zine pef 07-03-2007 10:24 PM
استفسار عن الرابط
 
استاذي الفاضل خليل ابراهيم( معدرى و عفوا ادا نديت استادي باسمه) لأن الأستاذ هو سيدي عندنا...
السؤال ::::الدروس التاالية سنطبق عملي انتاج دروس تفاعلية يرجى ادراج الواجب كرابط::::
انا اعرف ارسال الملف بالأرفاق لكن كرابط لا اعرف القيام بهذا العمل ..استاذي هل ممكن تفسر لي كيفية القيام برابط و الف شكر..

الاستاذ خليل 07-03-2007 10:30 PM
ارسله كمرفق بس قم بضغطه اولا

عاشة 07-03-2007 10:47 PM
رائع يا استاذ خليل

دائما تتحفنا بابداعاتك

التطور 07-04-2007 12:41 AM
السلام عليكم ورحمة الله وبركاته
 
أ / خليل
اهدي لك دعوة خالص لوجه الله مع باقة ورد لمجهودك الرائع
http://www.nqbn.net/uploads/93226a0932.gif

الاستاذ خليل 07-05-2007 08:57 AM
انتضر التطبيقات ؟

و شكرا لكم

infinity 07-05-2007 04:01 PM
استاذي الكريم : خليل

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

في البداية اشكرك على مجهودك العظيم .

اما عن الواجب فقد أديته ....ولكن واجهت بعض المشاكل :

1- في سؤال تحريك الصورة !! :<

2-كود الجذر التربيعي!! :(

3-كود المسح!! :(

الاستاذ خليل 07-05-2007 07:43 PM
للمسح تجعل خاصية التسمية فاضية اي ""

لمسح التسمية من زر هكذا

كود:
CommandButton1.Caption = ""
في سؤال تحريك الصورة !! :<
تغير في خاصية lift تجمعها على القيم السابقة مثل
Image1.Left = Image1.Left + 100

اما عن تربيع العدد فيمكن ان نضع الجواب في ليبل مربع تسمية و نأخذ قيمة مربع النص و نضربه مرتين
كود:
label1.Caption = Val(TextBox1.Text) * Val(TextBox1.Text)
أما اذا أردنا الجذر التربيعي او اي جذر آخر يكون ههكذا

كود:
label1.Caption = Val(TextBox1.Text) ^ (0.5)
حيث وضعنا القيمة في ليبل حيث ياخذ قيمة مربع النص و يحولها الى رقم ثم يجعله اسه نصف اي الجذر التربيعي

khaled_0aly 07-06-2007 02:27 AM
شكرا جزيلا أستاذى الجليل

أرجو منكم مشكورين

إعادة إرسال الواجب

ولكم جزيل الشكر

refathafez 07-06-2007 03:21 AM
القسمة
 
استاذنا الفاضل جزاك الله كل خير
عند إجراء عملية القسمة (مثل 12 ÷ 4 , 15 ÷ 3 ) يظهر لها نواتج صحيحة
ولكن عند اجراء قسمة عدد لايقبل علي اخر(8 ÷5) مثلا يكون الناتج فيها عموما كسور فالنواتج تظهر غير صحيحة
ساعدني جزاك الله خيرا

الاستاذ خليل 07-06-2007 08:44 AM
كبري الذي فيه الجواب و اعطي خاصية التحجيم التلقائي اوتو سايز فورس اي عدم التحجيم التلقائي المشكلة اتوقع من خاصية التحجيم التلقائي و اذا ما نفع ضع الملف

fadi9 07-06-2007 03:47 PM
للتمكن من قسمة عددين ناتجها عدد عشري يجب وضع المتحولات من النمط single (عدد عشري)
وليس integer ( عدد صحيح )

zine pef 07-07-2007 09:16 PM
استفسار عن تحريك صورة
 
استاذي الفاضل تحريك الصورة لم تنجح عندي و ضعت الكود الازم لهذا الأمر لكن الصورة لم تتحرك لا اعرف ما هو السبب او ينقص timer مثل VB-6 ارجو الأفادة و شكرا..

refathafez 07-07-2007 10:25 PM
استاذنا الفاضل
 
السلام عليكم ورحمة الله وبركاتة
اخي الفاضل / استاذ خليل
عند قسمة 5 ÷ 3 يكون الناتج = 1 ولايوجد كسورعشرية
وسؤال آخر كيف انهي البرنامج ( الكود)

refathafez 07-08-2007 01:43 AM
شكرو تقدير
 
استاذنا / الفاضل أ / خليل ابراهيم
اقسم بالله انه لأول مرة استخدم فيها الفجول بيسك
ولم اعرف هذا البرنامج من قبل حتي هذه الدورة اتمني ان اكون عملت حاجة

وهذا هو الواجب وسوف يتم رفعه علي الرابط السابق

010010 07-08-2007 02:14 AM
الف شكر على الموضوع المتميز
وبارك الله فيكم
اميييييييييييييييييييييييييييييييييييييييييين

refathafez 07-08-2007 04:23 AM
شكرا
 
السلام عليكم ورحمة الله وبركاتة
تقصد حضرتك تقول( كبر ) مربع النص واليبلول 1 وليس ((كبري) عفوا استاذ خليل
رفعت حافظ / مدرس رياضيات

abdelrahman193 07-08-2007 10:48 AM
علم ينتفع به
 
السلام عليكم ورحمة الله وبركاته
أستاذى الجليل / خليل
قال خير البرية ومعلم البشرية (صلى الله عليه وسلم)
إذا مات بن آدم انقطع عمله إلا من ثلاث صدقة جارية وعلم ينتفع به وولد صالح يدعو له.

fadi9 07-09-2007 12:25 AM
اخي العزيز زين...
ارسل المشروع فقد اتمكن من مساعدتك
او على الاقل ارسل صورة عن الشروع تظهر فيها الكود

zine pef 07-09-2007 01:24 AM
الواجب الأول
 
الأسناذ الفاضل جزاك الله كل الخير على الدروس..و اشكر الأخ فاضي على اهتمام بالسؤال و اليكم الواجب الأول و فيه خطأ الصورة لا تتحرك لا اعرف ما هو السبب...الواجب اضغط هنا

abdelrahman193 07-09-2007 10:27 AM
حل التدريبات
 
شكرا جزيلاً أستاذ / خليل
شاهدت وسمعت دروس الشرح وقرأت قليلاً ولم أكمل بعد مذكرة الشرح
ولكن وفقنى الله الى حل التدريبات ارجو ان تحوز اعجابكم وهى موجودة على الرابط التالى ولها كلمة سر هى:
ckjc8
والرابط هو:
http://www.m5zn.com/Download-7.php?name=6dcd501965.rar
وشكرا على هذا المجهود الرائع وهل هناك بقية ام انتهينا الى هذا الحد؟ ؟؟

الاستاذ خليل 07-09-2007 12:36 PM
اهلا بيك اخي العزيز abdelrahman193

عملك ممتاز لكن لي تعليق بامكانك كتابة الشفرة هكذا

كود:
Image1.Top = Image1.Top - 20
بدل من هكذا

كود:
Image1.Top = Val(Image1.Top - 20)
السبب ان قيمة Image1.Top هي رقمية و لا داعي لتحويلها لرقمية
و بالمثل الباقي


لم تكتمل الدورة انتظر تطبيقات الاعضاء الامور التالية ستكون مشوقة اكثر

الاستاذ خليل 07-09-2007 01:07 PM
اسف اخ رفعت مجرد اشتباه
على العموم قالك الاخ فادي غير المنتغير الى سنجل

او قم بعدم وضعه كمتغير الجواب يضهر مباشرة في الليبل

مثل هذا الكود
كود:
Label1=RND

بالنسبة للذي لم يعرف التحريك (zine pef) تم التعديل على ملفه بالرابط
http://upload2.net/page/download/kZS...5e20b.ppt.html
او شاهد الكود

كود:
Private Sub CommandButton1_Click()
TextBox1.Text = "اهلا و سهلا بيكم اخي الفاضل"
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
End Sub

Private Sub CommandButton3_Click()
Label1.Left = Label1.Left + 10
End Sub

Private Sub CommandButton4_Click()
Label1.Left = Label1.Left - 10

End Sub



Private Sub CommandButton5_Click()
Label1.Top = Label1.Top - 10
End Sub

Private Sub CommandButton6_Click()
Label1.Top = Label1.Top + 10
End Sub

Private Sub Label1_Click()
Label1.Left = Label1.Left + 10
End Sub

zine pef 07-09-2007 02:31 PM
توضيح
 
اقتباس:
المشاركة الأصلية كتبت بواسطة zine pef
الأسناذ الفاضل جزاك الله كل الخير على الدروس..و اشكر الأخ فاضي على اهتمام بالسؤال و اليكم الواجب الأول و فيه خطأ الصورة لا تتحرك لا اعرف ما هو السبب...الواجب اضغط هنا
شكرا يا استاذ على التوضيح ....لكن الأكواد التي وضعتهم هما معروفين عندي و انا وضعت كود تحرك الى اليمين و تركت الباقي ...و الشىء التي كنت افكر فيه و وجدت فيه مشكلة عند ضغط على زر تحريك الى اليمين تبدأ الصورة تتحرك وحدها مثل فيجوال بزيك ....و معدرى استاذي

Amel2005 07-09-2007 08:50 PM
السلام عليكم ورحمة الله وبركاته...
رائع ... رائع ... رائع
ما نراه فى هذا المندى الكريم.
فيض من العطاء ... ونور من العلم ...
جزاك الله عنا جميعا خيرا وأكرمك ورزقك من حيث لا تحتسب.

تطبيقى
http://www.m5zn.com/Download-7.php?name=cbd48bd6fe.zip

أرجو أن ينال إعجابك ...
وألف شكر لمجهودك وجهدك معنا .
جعل الله عملك نورا يبيض وجهك يوم تسود الوجوه .

خالص امتنانى وتقديرى .

الاستاذ خليل 07-09-2007 09:08 PM
zine pef هذي ملاحظة لاحظتها في الباور بوينت لم اجد لها حل إلا حلا متقدم لم اشرحه للان انتضر ريثما نصل إليه.

Amel2005 عمل رائع


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

zine pef 07-09-2007 11:43 PM
شكرا يا استاذ على الملاحظة...المزيد من الدروس من فضلك..
ايها المشاركون اين انتم:::كماقال الأستاذ::(((الاعضاء انشاء الله لا تطوون علينا بالاعمال)) )

إيمان على 07-10-2007 12:01 AM
أرجو منك أستاذ خليل
أن تشرح كيفية تشغيل هذه الدروس لأن بعد تحميلها لا تريد أن تشتغل وعملت read only
لكن أيضاً لا تشتغل إلا شرح الواجهة فقط
ولكم جزيل الشكر

إيمان على 07-10-2007 12:07 AM
أحترت والله
 
:confused: الأستاذ الفاضل : الأستاذ خليل
أرجو من حضرتك أن تشرح لى لماذا لا تريد الدروس أن تشتغل بعد تحميلها إلا درس شرح واجهة الفيجوال فقط تم تشغيلها ولكم جزيل الشكر

الاستاذ خليل 07-10-2007 01:23 AM
السلام عليكم
 
ماذا يحدث لديك بالضبط بعد التحميل؟

اذا ممكن تستعملي هذا البرنامج و هو يسجل ما تقومين به و ثم ترسليه لاحد مواقع التحميل و تضعي الرابط هنا ممكن نعرف وين الخطأ
البرنامج اي الشرح المفروض يعمل بكل الحواسيب لانه برنامج تنفيذي يعمل بكل مكان
او قومي بتنزيل هذا البرنامج فهو البرنامج الذي صنعت به الدروس
http://www.hesab.net/vb/showthread.php?t=1544

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

refathafez 07-10-2007 04:38 PM
شكر وتقدير
 
شكر يا استاذنا الفاضل كان ذلك لعدم البس وشكر
اما الواجب ارسلته عن طريق البريد الكتروني ارجو ان توضح لنا كيف نرفع هذه الاعمال من خلال رابط
ورفعته علي الرابط الموجود بالمنتدي سابقا

zine pef 07-11-2007 02:24 AM
توضيح كيفية وضع في رابط
 
السلام عليكم الأخوى الأعزاء وبعد ادنك يا استاد خليل عن هذا التوضيح..
الأخ REFATHAFEZ بعد تصممك للملف .. تدهب الى مركز التحميل:WWW.M5ZN.COM وتقوم تحميل ملفك فيه و منه تأخد الرابط COPY ومنه الى اضافة رد و اكتب الرد على كيفك.ثم..
[IMG]http://www.m5zn.com/uploads/1f0023b1ee.jpg[/IMG]

refathafez 07-11-2007 06:09 PM
الواجب
 
1 مرفق
اخي العزيز واستاذنا الفاضل الواجب
علي هذا الرابط Folder\home work.rar

refathafez 07-11-2007 06:15 PM
السلام عليكم ورحمة الله الواجب هلي هذا الرابط
[ home/m5zncom/public_html/UploadFiles.php on line 111

infinity 07-12-2007 11:03 AM
الواجب على هذا الرابط
http://www.m5zn.com/Download-7.php?name=11630c6871.ppt

الاستاذ خليل 07-13-2007 11:49 AM
السلام عليكم

عمل رائع انفنتي و الاستاذ رفعت حافظ

لي ملاحظة للاستاذ حافظ رفعت

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

كود:
Private Sub CommandButton2_Click()
TextBox3.Text = Val(TextBox2.Text) * 2 + 5
End Sub
قريبا سانجز درسكم

refathafez 07-13-2007 05:13 PM
شكرا
 
شكرا لك الف شكر
اتمني ان اكون فهمت حاجة من الموضوعات المشروحة باستفاضة وممتاز
الف شكرا وجزاك الله خيرا

infinity 07-14-2007 03:37 PM
شكراً أستاذ خليل

هذا العمل لم اكن ان انجزه لولاجهودك الرائعة وتوجيهاتك لنا

:d :) :d


الساعة الآن 12:39 AM
صفحة 1 من 2 1 2
عرض 40 مشاركات من هذا الموضوع لكل صفحة

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