طريقة ربط الاحرف بالارقام

واضح جدا أنت تريد وضع برنامج لحساب الجمّل ( بتشديد الميم) وهذا النوع من الحساب يستعمل في الغالب للشعوذه والتكهن في الغيبيات الماضية أو المستقبلة

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

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

ابراهيم ابن أحلام

ابراهيم : 1+2+10+800+1000+600

ابن = 1+2+700

أحلام = 10+6+500+600

المجموع الكلي = 4232

ثم : 4232 ÷ 12 =352

الباقي = 66

ومعلوم أن الإنسان ينسب لأبيه وليس لأمه ، بخلاف الحيوانات فإنها تنسب لأمهاتها ، وهذه أول دلائل الشعوذة بهذا الحساب

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

نعود لكود البرنامج :

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

وإليك الآن الجزء الأساسي منه وهو تحديد قيم الحروف

Option Explicit

Private Sub Form_Load()
Dim a As Integer, b As Integer, c As String
c = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي"
For a = 1 To Len(c)
b = a
If a > 10 Then b = (a - 9) * 10
If a > 19 Then b = (a - 18) * 100
MsgBox b, , Mid(c, a, 1)
Next
End SubSub

لكن الذي أعرفه أن ترتيب الحروف يكون حسب ترتيب حروف أباجاد وليس على الترتيب الهجائي المتعارف عليه ، يمكنك ترتيب الحروف في قيمة المتغير ( c ) إلى ترتيب أبجدهوز

اولا شكرا على المحاظرة القيمة والمفيدة والمحترمة

ثانيا يبدو من كلامك عندك فكرة عن امور الشعوذة من وضع برنامج لحساب الجمّل ( بتشديد الميم) وهذا النوع من الحساب يستعمل في الغالب للشعوذه والتكهن في الغيبيات الماضية أو المستقبلة

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

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

على سبيل المثال انت طويل اوقصير او بخيل ..............الخ

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

على رايك وفي يوم القيامة ايضا لان الا نسان ينادة باسم امه فهذه ايضا شعوذة برايك

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

سادسا كيف نتج معك ناتج القسمة اذاكان المقسوم عليه 12 فكيف اصبح الباقي 66

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

الموضوع

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

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

ويكون له نصيب من اسمه

وشكرا

rami800 كتب:

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

←

آسف يا عزيزي ! ! ! إذا حبيت مساعدة في موضوعك فأنا مستعد ، وما يلزمك تقول شكرا !

بخصوص الباقي فهو 8 وليس 66 فأنا نسيت وضربت الكسر العشري في 100 والمفروض يضرب في 12

ياحزرك ليش انا حاط الموضوع لو مابدي مساعدة

بلا شكرا