كيف تعرف عدد حروف كلمة أو مقال (( دعوة لأبو هادي))

السلام عليكم

شكرا أخي فهد

برنامج كنت أبحث عنه من زماااااان

الله يوفقك

اختك المدينة الجميلة(f)

اي مبتدأ ماشاء الله عليك

كل يوم جديد ومفيد

جزاك الله خير

السلام عليكم

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

تحياتي .

fahad_b.zip

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

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

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

(( أشكر للجميع تفاعلهم مع الموضوع ))

اخي فهد :::

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

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

مع تحياتي (f)(f)

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

الأساتذه / فهد الدوسري وأبو هادي

وفقكم الله وزادكم إيمانا ورزقاً وبارك لكم في ذريتكم وأنتفع المسلمين بعلمكم . (f)

ماشاء الله تبارك الله

اقتباس

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

(clock)(clock)(clock)(clock)(clock)(clock)(clock)

السلام عليكم

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

مع ملاحظة أخي فهد أني قد أقدم على عمل مشروع منذ البداية أسهل وأخف علي من الشرح والتعليق على بعض الكود ، وتستطيع أن تلمس ذلك في مساهماتي حيث لن ترى (رائحة للشرح) هناك .

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

تحياتي .

أشكر لك كرمك المعهود منك يا أستاذنا

اقتباس

يمكن لأن ثقافتي انجليزية

:oهذي هي عقدتي في الأكسس أني لا أجيد اللغة الإنجليزية:o

السلام عليكم

أخي فهد .. حين علقت وقلت أن ثقافتي انجليزية فقد كن أمزح :) فانجليزيتي متواضعة جدا .

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

الأخوة جميعا .. آمل من يستطيع شرح الكود بشكل علمي وبالمصطلحات والتعابير السليمة أن يتفضل ويتكرم بشرحه ، وأنا أعلم أنه يوجد الكثير ممن يستطيعون عمل ذلك .

بالنسبة لدالة عد الحروف فأنا فقط غيرت فيها شيء بسيط وهو بدل تمرير الحرف نفسه استبدلته بقيمة الآسكي له وذلك لتجنب مشكلة الخلط للفجوال بين "ل" و "ء" وقد يكون هناك حروف أخرى لم أنتبه لها .

أخي فهد .. عملية عد حرفي "ة" و "ت" هل هو مقصود كميزة أو هو مشكلة في الكود ؟ .

شرح مبسط للتكرار آمل أن يكون كافيا :

  For Each ctl In Me.Controls

    '-- تكرار لعرض جميع كائنات النموذج

    With ctl

      If .ControlType = acTextBox Then

        '-- تحديد صناديق النص فقط من كائنات النموذج

        If Len(ctl.Value) = 1 Then

        '-- تحديد صناديق النص التي طولها حرف واحد فقط

          If IsArabicChar(ctl.Value) Then

          '-- تحديد قيمة صناديق النص التي تحتوي على حرف عربي

            Me("[" & ctl.Name & "1]").Value = CntChars(Me.text1, Asc(ctl.Value))

            '-- تعيين قيمة الصناديق بعدد الحروف التي يحتويه النص

            Me("[" & ctl.Name & "1]").BackColor = IIf(Me("[" & ctl.Name & "1]").Value > 0, 255, 16777215)

            '-- تبديل لون الصناديق إلى الأحمر في حالة قيمتها أكبر من صفر

            TCnt = TCnt + Me("[" & ctl.Name & "1]").Value

            '-- عداد لجمع كل الحروف العربية التي تم تعيينها

          End If

        End If

      End If

    End With

  Next ctl

تحياتي .

الأخ فهد

دائماً تأخذ الجهل ستاراً تختفي خلفه حاملاً في جعبتك العلم الغزير0

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

بارك الله فيك وزادك علماً وأجزل الك المثوبة 0

الأخ: ابو هادي

لم أراك تشارك في أي موضوع إلا وتزيده لذة وذوق 0

لقد شرحة شرحاً واضحاً وموجزاً لا لبس فيه ولو تلاحظ أن الجميع دائماً يطالبون بشرح أي كود يضعه أحد الأعضاء وهذا من وجهت نضري ((((( وهذا محصور عليّ فقط )))) أن الشرح مفيد جداً فعندما أفهم الكود كلمة كلمة أو جملة جملة أستطيع أن استخرج منه أوامر أخرى بعكس أنني أكتبه ولا أعرف ما هو عملة سوى أنه على بعضه ينفذ أمر معين0

شكراً لك أنت والأخ فهد فقد تطرقتما لموضوع مفيد جداً جعله الله في موازين حسناتكما0

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

الشرح وافي كافي وأي شيئ منك فهو مقبول بالنسبة لي

لو كانت برامجك بهذه الطريقة في الشرح لتخرجت على يديك بامتياز (واحد طماع):P;)

استاذ مصلح صدقني أنني لا زلت مبتدئ وما تراه من برامج فهو عبارة عن ثلاثة أشياء:-

1- نسخ

2- لصق

3- تعديل

والتعديل يقضي الزيادة أو الحذف من الكود فقط لا غير وبعض الحركات الصبيانية فيخرج العمل كما ترى:cool:

اقتباس

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

أؤيد هذا الكلام بشدة

اخوانى الاعزاء

لماذا لا يتم اضافة هذه الوظيفة الهامة الى برنامج القرآن الكريم مثل عدد حروف سورة او ......

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

(لكل إنسان وجود وأثر، ووجوده لا يغني عن أثره، ولكن أثره يدل على قيمة وجوده)

النمل تبني قراها في تماسكها

والنحل يجني رحيق الشهد أعوانا

السلام عليكم

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

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

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

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

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

الأخ الأستاذ/ فهد الدوسري

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

إذا كنت ترى نفسك من المبتدئين فما نكون نحن؟ أنا أقول لك : نحن لم نبدأ بعد !!!! :D . يعجبني تواضعك كما تعجبني أعمالك وبرامجك التي تقدمها ، صدقني كنت أحب الآكسس أما الآن أصبحت أحب أعضاء هذا المنتدى لتكاتفهم وتعاونهم مع بعضهم البعض وتسارعهم لمساعدة الأخرين فنحن الأعضاء الجدد الذين لم نبدأ بعد قريباً نكون مبتدئين في المستقبل. شكراً من كل قلبي وعذراً إن كنت أطلت عليكم.

أخوتي الفضلاء

لم تبقوا لي ما أقوله في مشاركة الأستاذ فهد... لكن أقول:

تشبهوا بالكرام إن لم تكونوا مثلهم... إن التشبه بالكرام فلاح

أوصيكم بالتواضع في طلب العلم، ولا يزال الرجل عالما ما ما اتهم نفسه بالجهل، ولا يزال جاهلا ما وصف نفسه بالعلم. هكذا قال أهل العلم.!!

أرفق لكم مشاركة ( مثال قريب من مشاركة الأستاذ فهد ) وجدها في خزانة الأنترنت.

لكل من دخل وشارك أو دخل وقرأ ولم يشارك له مني الشكر الجزيل فهذه الكلمات منكم تعطيني دافع قوي لبذل الجهد لإرضاؤكم جميعاً

الأخ فهد

أثناء تصفح الموضوع خطرت لي فكرة لا أدري هل هي معقولة أم هو الخيال يسيطر على العقول أحيانا0

عندما أكتب نصاً يظهر عدد الحروف التي كتبتها تحت كل حرف عدد تكراره في النص وتبقى حروف فارغة أي لم ترد ضمن النص 0

في نظري لو تم إخفاء جميع مربعات الأحرف والقيم الخاصه بها وعند النقر على زر الأمر تظهر الحروف الواردة ضمن النص وعددها فقط وتختفي مربعات الحروف الفارغة0