اقتباس[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.
اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.
اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب
[/وسط]
اخي الكريم hema212006
لقد نظرت الى الملف المرفق فوجدت نموذجا فيه مربعي نص وزر
وقرأت سؤالك الموجود على سطح النموذج
هل تبحث عن جواب جاهز أم انك ترغب في زيادة معرفتك
اذا كنت ترغب في زيادة معرفتك فستجد في هذا المنتدى الكثير الكثير من المعرفة والتجارب الرائعة الناجحة والخبراء بل المحترفين وأصحاب العلم أيضا ،
وبما انني مجرد مبتدىء وأهدف في النهاية الى زيادة معرفتي حسب ظروفي ووقتي فانني سأحاول مساعدتك او على الاقل
وضع الفكرة ثم حاول ان تطبق فكرتك في تنفيذ الحل وعندها اعتقد ان الاخرين سيساعدوك
حسب سؤالك
فالحل ستجده في قسم منتدى الفيجوال بيسيك حيث هناك الكثير من التجارب الرائعة اذا بحثت قليلا !
ولكن بما انك وضعت السؤال هنا في منتدى الاكسس فحتما هناك حل
ابدا اخي بالمحاولة وسترى الاخرين سيساعدونك في الوصول الى الحل
ومع ذلك ساحاول وضع تسلسل الخوارزمية المطلوبة
اخي الكريم hema212006
لقد نظرت الى الملف المرفق فوجدت نموذجا فيه مربعي نص وزر
وقرأت سؤالك الموجود على سطح النموذج
هل تبحث عن جواب جاهز أم انك ترغب في زيادة معرفتك
اذا كنت ترغب في زيادة معرفتك فستجد في هذا المنتدى الكثير الكثير من المعرفة والتجارب الرائعة الناجحة والخبراء بل المحترفين وأصحاب العلم أيضا ،
وبما انني مجرد مبتدىء وأهدف في النهاية الى زيادة معرفتي حسب ظروفي ووقتي فانني سأحاول مساعدتك او على الاقل
وضع الفكرة ثم حاول ان تطبق فكرتك في تنفيذ الحل وعندها اعتقد ان الاخرين سيساعدوك
حسب سؤالك
فالحل ستجده في قسم منتدى الفيجوال بيسيك حيث هناك الكثير من التجارب الرائعة اذا بحثت قليلا !
ولكن بما انك وضعت السؤال هنا في منتدى الاكسس فحتما هناك حل
ابدا اخي بالمحاولة وسترى الاخرين سيساعدونك في الوصول الى الحل
ومع ذلك ساحاول وضع تسلسل الخوارزمية المطلوبة
ونحاول ان تطبقها وعندها سننطلق في عالم الارقام والاحرف
قم بانشاء جدول وضع فيه الحقول التالية
حقل letter وفي هذا الحقل تكتب الاحرف الابجدية من الالف الى الياء (خاصية الحقل بدون تكرار)
حقل value وفي هذا الحقل تكتب فيه قيمة كل حرف من الاحرف الابجدية (خاصية الحقل بدون تكرار)
حقل ترقيم تلقائي ( اختياري يمكن ان تعتبره كمفاتح اساسي ) مع العلم اننا لن نحتاج ان نكتب في الجدول سوى الاحرف الابجدية وقيمها يعني 28 سجل
الا اذا اردت ان تضع الاحرف التي فيها همزات و الخ ....
طبعا في البداية يجب ان نقوم بالتصريح عن بعض من المتغيرات التي قد نحتاجها داخل الاجراء الذي ستكتبه في حدث النقر على الزر
لنتخيل العملية عند النقر على الزر
سنقوم بقراءة النص المدخل في مربع النص
ثم نقوم بمعرفة طول هذا النص( لماذا ؟ ) لاننا سنحتاجه في تنفيذ حلقة تكرارية عدد دوراتها هي طول النص المكنوب في مربع النص
اذا نصرح عن متغير مثلا A
A=len(me.txt1)
لماذا الحلقة التكرارية ؟
حتى تقوم بقراءة كل حرف من الاحرف المكتوبة في مربع النص txt1
نحتاج الى متغير وليكن b لاستخدامه في الحلقة
فتصبح
for b= 1 to A
نضع هنا الاجراء الذي سيتم تنفيذه داخل الحلقة والذي سنحاول كتابته لاحقا
next
ونستخدم هنا التعليمة
mid
التي هدفها قراءة حرف من احرف مربع النص txt1 حسب قيمة المتغير b
فتصبح
mid(txt1,b,1)
حيث قيمة b هنا ليخبر التعليمة mid من اين حرف من حروف txt1 تبدا بالقراءة
والرقم 1 هو كم حرف تقرأ التعليمة mid
وهنا نعطي قيمة mid لمتغير وليكن c
c=mid(txt1,b,1)
الان نحتاج الى مقارنة قيمة c باحد القيم الموجودة في الجدول الذي انشأناه وتحديدا في الحقلletter
هنا نصرح عن متغير وليكن d
فتصبح قيمة d هي
d=dlookup("[letter]","a","[letter]='" & c & "'")الان ماذا نحتاج؟
طيب يا صديقي من خلال الحلقة التكرارية
سيتم ايجاد قيمة d
في كل دورة من الحلقة
طيب اين يضع قيمة d
التي وجدها في كل دورة
لاننا نحتاج هذه القيم كلها
اذن ما الحل
هنا سنضطر الى استخدام المصفوفات
ولا ادري اذا كان لديك فكرة عنها
ونصرح عن مصفوفة نعطهيها الاسم الذي تريده
ونجعل عدد عناصرها هو القيمة
b
وكل عنصر في المصفوفة تساوي قيمته قيمة
d
اذن الان اصبح لدينا داخل المصفوفة كل قيم
d
التي نحتاجها
الان ماذا نفعل
لابد من حلقة تكرارية ثانية تبدا مثلا من الواحد وحتى قيمة المتغير
A
مثلا
for g= 1 to A
next
وهنا نستخدم مصفوفة اخرى خاصية عناصرها عدد صحيح
وعدد عناصرها هي القيمة
g
وكل عنصر من هذه المصفوفة
يساوي قيمة احد القيم الموجودة في الجدول
a
بحيث ان حرف تلك القيمة يساوي
احد عناصر المصفوفة الاولى التي تم فيها حفظ الاحرف !
الان الخطوة الاخيرة
نضع ناتج الحلقة الاخيرة في مربع النص الثاني
txt2
بحيث انه في كل مرة يجمع قيمة
txt2
السابقة مع النتجة التالية لاحد عناصر المصفوفة ضمن الحلقة التكرارية
واخيرا
وصلنا الى النتيجة المطلوبة
طبعا بانشائنا الجدول يفيدنا في حال اردنا ان نضع القيم الرقمية التي نرغب بها لكل حرف بالجدول وهذا يعود لرغبتك
والحمد لله رب العالمين
ارجو ان تحاول ان تطبق تلك الخوارزمية
وتخبرني بالنتيجة
وستنجح معك ان شاء الله
الاخ حسن عبيد ...
اشكرك كثيرا علىمرورك واهتمامك بالموضوع
واعتذر منك على تاخري بالرد حيث كنت مشغولا قليلا
واريد ابلاغك انك وضعتني على الطريق الصحيح وانا الان بصدد اخذ شروحاتك وتطبيقها عمليا وان تم اللازم سارفع الملف لتراه
وانا عاجز عن شكرك
وجعلها الله في ميزان حسناتك
اقتباس[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.
اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.
اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب
[/وسط]