مشروع عمل فورم لدوال الاكسل - شاهد هذا العمل خطوة خطوة -

[عبدالله باقشير]

السلام عليكم

شاهدوا هذا العمل

خطوة خطوة

لو كانت عند احدكم صورة للاحرف على شكل صف بتساوي المسافات فيما بينها

حيكون افضل

وسيتم اختصار الكود

Private Sub LabelABC_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim Lft!, i%

i = Int(X / 14)

Me.LabelABCD.Caption = Chr(i + 65)

Lft = (i * 14) + Me.LabelABC.Left

Select Case i: Case 10 To 12, 19 To 22: Lft = Lft - 2: End Select

Me.LabelABCD.Left = Lft

End Sub

Dim Lft!, i%

تعريف المتغيرات باختصار

%=Integer

!=Single

x هو موقع الفارة من اليسار الى اليمين على العنصر

وهي قيمة جاهزة من متغيرات الكود

سؤال : الرقم 14 ؟

x / 14

اي هو الرقم 14

وليه نقسم الاكس في هذا الرقم

منتظر الاجابة

بحث بالاحرف.rar

[عبدالله المجرب]

بصراحة

احترت ما اقول

ففي حروف اللغة لم استطع ان اجمع كلمات تدل على الاعجاب او الدهشة او الحيرة او المدح

لا اقول الا بارك الله في علمك ونفع به

ابواحمد

[الجزيرة]

مبدع أخي عبد الله

بإنتظار إكتمال العمل : )

[abouelhassan]

ابهار واحتراف وروائع الروائع من عميد الروائع

استاذننا خبور خير

اتمنى لك كل الخير

بارك الله لك وبك

احترام شديد من اخيك

[ريان أحمد]

[saad abed]

اخى ابا على خبور خير

جزاك الله خيرا واسال الله لك السلامه لك ولاخوتنا فى اليمن الشقيق

تعلمنا منك الكثير بدون شرح منك

فما بالنا لو حاورتنا وشرحت لنا

رجاء ان تشرح لنا لنعلم الية صنع الاكواد بطريقة ابوعلى

ما هى وظيفة INT فى الكود

اخوك فى الله

سعد عابد

[معتصم محمد]

عمل جميل جداً استاذ / عبدالله

بعد إذنك سأاحاول الإجابة

يعتمد هذا الفورم في عمله على بعض المعطيات التي قمت حضرتك بتعيينها منها عرض الفورم والذي يمثل مساحة 26 حرف باللغة الإنجليزية (A-Z) وقبل الأحرف توجد مسافة وبعد الأحرف توجد مسافة، إذن يوجد لدينا 28 حرف أو وحدة نصية.

لا يعمل الكود الا في حالة اضغط على الLable باللون الرمادي والذي يوجد به ال 26 حرف

يوجد Label ثاني يمثل حرف باللون الأصفر ويتغير موضعه وفقاً لضغطة الماوس

فكرة العمل حسبما فهمت ان الكود يقوم بتحديد موضع الضغط على label الرمادي (26 حرف) ويتم إسنادها للمتغير X وهي بذلك تمثل المحور الأفقي وعليه فإن المتغير Y يمثل المحور الرأسي

بعد تحديد موضع ضغطة الماوس يتم تقريب هذه القيمة X لأقرب رقم صحيح بواسطة الدالة INT ويتم إسناد هذا الرقم الصحيح للمتغير i

يتم تغيير قيمة ال label الخاص بالنص باللون الأصفر من خلال إضافة قيمة المتغير i (والتي ستتراواح ما بين 1-26) مع القيمة 65 والتي تكون داخل الدالة Chr وبذلك سيكون لدينا سلسلة نصية بحروف كبيرة CAPITAL تتغير بتغير موضع ضغطة الماوس

هذا ما فهمته من الكود، اتمنى ان يكون فهمي صحيح أو انني استطعت إيصال ما فهمته

بارك الله بك مرة اخرى استاذنا الفاضل وحفظك الله من كل مكروه

[الخالدي]

السلام عليكم ورحمةالله وبركاته

ما شاء الله استاذنا الفاضل خبور عمل ممتاز ودقيق

واعتقد ان اجابة السؤال

الرقم (14) يمثل عرض الحرف (width) في LabelABC

ويحتسب = LabelABC.width / عدد الاحرف في LabelABC

364 / 26 = 14

ثم يتم قسمة موقع الفارة(x) على عرض الحرف (14) لنحصل على موقع الحرف المؤشر عليه بالفارة في LabelABC

في امان الله

[عبدالله باقشير]

السلام عليكم

اخي الحبيب عبدالله المجرب ------------حفظه الله

اولا شكرا على هذا الثناء والمديح

وايضا انت من له ثمرة تقديم هذا الشرح حسب كلامك معايا

بارك الله فيك وجزاك الله خيرا

اخي الحبيب الجزيرة ------------حفظه الله

شكرا جزيلا على الكلام الطيب

بارك الله فيك وجزاك الله خيرا

تقبل تحياتي وشكري

اخي الحبيب ابو الحسن------------حفظه الله

شكرا جزيلا على الكلام الطيب

جزاك الله خيرا

وبارك الله فيك وعليك وبيك ولك

تقبل تحياتي وشكري

اخي الحبيب طاهر------------حفظه الله

بارك الله فيك وجزاك الله خيرا

تقبل تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

اخي الحبيب سعد عابد ------------حفظه الله

الله يسلمك في الدنيا والآخرة

شكرا جزيلا على الكلام الطيب

بارك الله فيك وجزاك الله خيرا

بالنسبة لوظيفة INT

تقريب رقم لأسفل إلى أقرب عدد صحيح.

انا استخدمتها هنا لاقطع الرقم العشري بتاتا

ولكن قد يطرح هذا السؤال

لماذا تستخدم INT مادمت انك قد عرفت ان المتغير i هو رقم صحيح ؟؟

اقول ان الرقم الصحيح الناتج سيكون مقرب الى الاعلى في حالة وصل الرقم العشري الى 50%

وانا اريد اقتصاص الرقم العشري من اصله.

وهذا مثال بالكود :

Sub kkkk()

Const x As Integer = 23.5

MsgBox x

End Sub

النتيجة حتكون 24 وما اريده 23

تقبل تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

اخي الحبيب معتصم محمد ------------حفظه الله

شكرا جزيلا وجزاك الله خيرا

وبارك الله فيك على هذا الشرح المفصل وحقيقة فرحت كثيرا لاستيعابكم العمل وتقديمه بهذا الشرح الوافي

اود ان اضيف شيئا بسيطا

ان عرض الفورم ليس له علاقة باي شي ما دام انه يحتوي LabelABC بجميع عرضه وطوله

المهم عندنا ضبط عرض LabelABC مع عدد الحروف مضروبه في العرض المخصص لهذا الحرف

عرض LabelABC=عدد الحروف x عرض مساحة الحرف

ان عملية الكتابة في LabelABC قد لا تضبط عرض مساحة الحرف

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

شكرا جزيلا مرة اخرى

تقبل تحياتي وتقديري

[عبدالله باقشير]

السلام عليكم

اخي الحبيب/ الخالدي --------------حفظه الله

بارك الله فيك وجزاك الله خيرا

واعتقد ان اجابة السؤال

الرقم (14) يمثل عرض الحرف (width) في LabelABC

ويحتسب = LabelABC.width / عدد الاحرف في LabelABC

364 / 26 = 14

ثم يتم قسمة موقع الفارة(x) على عرض الحرف (14) لنحصل على موقع الحرف المؤشر عليه بالفارة في LabelABC

ليس اعتقاد وانما هو ماقلته بيانا صحيحا 100%

افرحكم الله مثل ما افرحتموني

تقبلوا تحياتي وشكري وتقديري

[عبدالله باقشير]

السلام عليكم

في المرفق

استخدمت صورة للاحرف ,, وذلك لضبط مساحة الحرف بشكل ادق

وجعلت نصيبا للغة العربية

اضفنا فورم آخر للاحرف بالعربي

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

المهم ان نستوعب هذه المراحل والخطوات

عمل تطبيقي:

تغيير الصورة للفورم الانجليزي بخط آخر وتكبير مساحة الحرف

الاكواد في هذا المرفق سهله جدا

وممكن تغيير عرض مساحة الحرف في بداية الكود

عمل صورة بسيط جدا من نفس الشيت ورقة 2 سترى الخلايا التي عملت فيها صورة للاحرف العربية

تعمل مثلها ولكن انجليزي

تعمل نسخ للخلايا وتضعها في الرسام وتحفظها

ثم تستبلها بالصورة السابقة في ImageChEng

منتظر كم

ودمتم في حفظ الله

بحث بالاحرف.rar

[الـعيدروس]

السلام عليكم

جزاك الله خير استاذ عبدالله درر مكنونه

زادك الله من علمة وفضله

[مجدى يونس]

الاستاذ الفاضل خبور خير

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

[عبدالله المجرب]

الاستاذ الفاضل خبور خير

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

السلام عليكم

اخي مجدي انا جربت هذا الكود

Application.Speech.Speak ch

وضعته في نهاية هذا الحدث

ImageChEng_MouseDown

في الفورم الانجليزي

[abouelhassan]

للروائع رجال

استاذنا خبور خير

الله يحفظك

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

الله يحفظك

[مجدى يونس]

الاخ عبدالله

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

مرسل فيديو اين الخطأ

1.rar

[عبدالله باقشير]

السلام عليكم

الشكر واصل لجميع المشاركين

بارك الله فيهم

هذا ما اردناه من المشروع

فورم لشرح دوال الاكسل

متبقي الخطوة النهائية

تفضلوا المرفق

فورم لدوال الاكسل.rar

[الـعيدروس]

السلام عليكم

استاذ عبدالله (خبور خير) حفظك الله

حقيقة عمل اساتذه كبار

لاادري ماذا اسمية قمة الروعة ذو فائده قيمة

عمل من العيار الثقيل

جعله الله في موازين حسناتك ان شاء الله

تقبل مروري

[احمد حمور-ابوعبدالله]

استاذنا الكبير خيور

والله انك كبير واعمالك كبيره مثلك

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

بارك الله فيك

وفرج الله كرب اخوتنا في اليمن السعيد والحبيب

[محمد السيد الشاطر]

أخى خبور جزاك الله خيرا على المجهود الرائع

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

[الشهابي]

استاذنا الكبير عبد الله باقشير ( خبور خير )

بارك الله فيك وزادك علماً ورفعةً

باللهجة التريمية ( بغيناك تمخش ) من هذه الأكواد المفيدة وتشرحها لنا

جزاك الله خير يا خبور خير وفرج الله عنك كل هم وضير

[saad abed]

اخى خبور

مكتبة برامج خبور لا غنى عنها يضاف اليها اليوم فورم دوال الاكسيل

جزاك الله خيرا

شكرا لك

سعد عابد

[عبدالله المجرب]

الاخ عبدالله

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

مرسل فيديو اين الخطأ

خي مجدي الكود الذي انا اضفته يسبب لخبطة

انا اسف لم استطع تعديل الخطاء