اعتقد ان المطلوب كالتالي:
لو اعتبرنا ان لكل حرف قيمته المعروفه بحسب الترتيب الابجدي بمعنى حرف الالف = 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