[ناجي إبراهيم]

السلام عليكم...

1. ضع على الـ Form 3 مربعات نص (Text1 و Text2 و Text3) و زر أمر (Command1).
2. انسخ الكود التالي:

كود :

Private ArabLetters As String
Private Hamzat As String

Private Sub Command1_Click()
    Dim Idx As Long
    Dim MyText As String
    Dim ALetter As String
    Dim APos As Long
    Dim AResult As String
    Dim ASum As Long
    
    Text2.Text = ""
    Text3.Text = "0"
    AResult = ""
    ASum = 0
    
    MyText = Trim(Text1.Text)
    If MyText = "" Then Exit Sub
    
    For Idx = 1 To Len(MyText)
        ALetter = Mid$(MyText, Idx, 1)
        APos = InStr(Hamzat, ALetter)
        If APos = 0 Then
            If AResult <> "" Then AResult = AResult & " - "
            APos = InStr(ArabLetters, ALetter)
            If APos = 0 Then
                AResult = AResult & "¿"
            Else
                AResult = AResult & CStr(APos)
                ASum = ASum + APos
            End If
        Else
            If AResult <> "" Then AResult = AResult & " - "
            AResult = AResult & "1"
            ASum = ASum + 1
        End If
    Next Idx
    
    Text2.Text = AResult
    Text3.Text = CStr(ASum)
End Sub

Private Sub Form_Load()
    Hamzat = "ءاأإؤئ"
    ArabLetters = "أبجدهوزحطيكلمنسعفصقرشتثخذضظغ"
End Sub

3. شغل البرنامج و اكتب الكلمة في Text1 ثم انقر الزر. ستظهر الأرقام المقابلة للحروف في Text2 و مجموع قيمها في Text3.

* الكود يستعمل الترتيب الأبجدي (أبجد هوز حطي... إلخ.) و ليس الترتيب الألفبائي (أ.ب.ت.ث. ... إلخ)، و طبعاً يمكنك تغيير ذلك.
* الكود يتجاهل أي رمز آخر غير الحروف العربية، بما في ذلك الفراغات، و يضع بدل قيمتها علامة استفهام.
* الكود يعتبر الألف و جميع أشكال الهمزة حرفاً واحداً (نفس القيمة = 1).

4. نرجو الاستفادة و السلام.