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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هل من طريقة لحساب الحروف بهذه الطريقة (/showthread.php?tid=33056)

هل من طريقة لحساب الحروف بهذه الطريقة - seif mohamed - 20-01-20

السلام عليكم ورحمة الله وبركاته 
هل من كود يحسب الحروف بطريقة خاصة بمعني 
لو افترضنا ان حرف أ = 7 في اول الجملة و= 14 فى الموقع الثانى و= 21 فى الموقع الثالث و= 28 فى الموقع الرابع 
لكن يكون التكست بوكس لايذيد عن 4 احرف واذا زاد ينزل الى سطر اخر تحته مثال الله اكبر  
ا ل ل ه 
ا ك ب ر 
وطبعا كل حرف له قيمة معينة 

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

RE: هل من طريقة لحساب الحروف بهذه الطريقة - seif mohamed - 21-01-20

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

RE: هل من طريقة لحساب الحروف بهذه الطريقة - seif mohamed - 27-01-20

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

RE: هل من طريقة لحساب الحروف بهذه الطريقة - seif mohamed - 01-02-20

الله المستعان

RE: هل من طريقة لحساب الحروف بهذه الطريقة - معاند الحظ - 01-02-20

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

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

وان شاء الله تلقى الاجابة سريعا

RE: هل من طريقة لحساب الحروف بهذه الطريقة - محمد كريّم - 01-02-20

(01-02-20, 03:21 PM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته اخوي
بالنسبة لسؤالك وبالنسبة لعدم وجود رد عليه حتى الان هو بسبب نقص التوضيح
وهذا موجود في اغلب اسئلة الاعضاء فالسؤال واضح بالنسبة لهم ولكنه للاخرين غامض ولو قليلا

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

وان شاء الله تلقى الاجابة سريعا

الأخ لم يبذل جهد في تعديل الكود في الموضوع القديم
http://vb4arb.com/vb/showthread.php?tid=32937

RE: هل من طريقة لحساب الحروف بهذه الطريقة - معاند الحظ - 01-02-20

اعتقد ان المطلوب كالتالي:
لو اعتبرنا ان لكل حرف قيمته المعروفه بحسب الترتيب الابجدي بمعنى حرف الالف = 1 والياء = 28
طبعا بحسب ماتريد فان قيمة الحرف تتضاعف بحسب موقعه من الكلمة
فلفظ الجلالة يبدا بالالف وهنا قيمته = 1 
 حرف اللام وهو في الترتيب الثاني فتكون قيمته 23*2=46 
 حرف اللام ايضا وله قيمة 23*3=69
واخيرا حرف الهاء = 62*4=248
الان نجمع نواتج الحروف كالتالي:
1+46+69+248=364

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

كود :
   Dim mychar() As Char = {"ا", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "و", "ي"}

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       ' (Array.IndexOf(mychar, c(2)) + 1)  gives the index of the char in alphabet
       ' (Array.IndexOf(c, c(2)) + 1)  gives the index of the char in alphabet

       ' (Array.IndexOf(mychar, c(2)) + 1)  يعطي رقم يمثل ترتيب الحرف ضمن الابجدية
       ' (Array.IndexOf(c, c(2)) + 1)  يعطي رقم عبارة عن موقع الحرف في الكلمة

       Dim c As Char() = TextBox1.Text.ToCharArray

       Label1.Text = (Array.IndexOf(mychar, c(0)) + 1) * (Array.IndexOf(c, c(0)) + 1)

       For a As Integer = 0 To c.Count - 1

           Label1.Text += (Array.IndexOf(mychar, c(a)) + 1) * (Array.IndexOf(c, c(a)) + 1)
       Next

   End Sub


RE: هل من طريقة لحساب الحروف بهذه الطريقة - seif mohamed - 02-02-20

اخى الفاضل الاستاذ محمد كريم
انا لازلت مبتدا فى البرمجة اعذر اخاك
واعتذر لكم لكثرة طلباتى
تسلم ايدك اخى الحبيب معاند الحظ تستاهل التقييم
وان شاء الله ابلغك بالنتيجة
نعم اخي معاند الحظ
اذا كان قيمة حرف الالف مثلا 7 فى اول الجملة = 7
اذا كان فى الثانى يكون 14 لكن المجموع = 21
بحيث 7 + 14 = 21
مثال لحرف الالف
امال
حرف الالف = 7 لانه فى اول الكلمة او الجمله
وتكرر فى الثالث يعنى قيمته = 3 × 7 = 21
قيمة حرفين الالف = 28 فى الاول = 7 وفى الموضع الثالث = 21
فيكون المجموع = 28