[سعيد حامد]

(17-06-20, 04:01 AM)Mohamad Anan كتب : اذا كنت تقصد مجموع قيم الأحرف في جدول ASCII

كود :

Private Sub Form_Load()
   Dim I As Integer
   Dim L As Integer
   Dim S As String
   Dim SS As String
   Dim A As Integer
   Dim T As Integer
   
   S = "احمد"
   L = Len(S)
   For I = 1 To L
       SS = Mid(S, I, 1)
       A = Asc(SS)
       T = T + A
   Next
       MsgBox T
End Sub

اخى العزيز لك جزيل الشكر وأدعو الله أن يزيدك علما .

---

(17-06-20, 08:00 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , وهذا أيضا كود آخر :

PHP كود :

Dim Total As Long
Dim I As Long

For I = 1 To Len(Text1.Text)
    
    Select Case Mid$(Text1.Text, I, 1)
       
           Case "ا": Total = Total + 1
           Case "ح": Total = Total + 8
           Case "م": Total = Total + 40
           Case "د": Total = Total + 4
           
    End Select
    
Next

Text2.Text = Total 


-  بالتوفيق .

شكرا اخى احمد بارك الله فيك .