منتدى جزيرة الرياضيات - الدرس الخامس: الشفرة و كيفية كتابتها و الدوال و الاحداث و دالة if

صفحة 2 من 3

منتدى جزيرة الرياضيات (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)

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

الساعة الآن 07:01 AM

صفحة 2 من 3

عرض 40 مشاركات من هذا الموضوع لكل صفحة