منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

رجاء ... اريد كود عمل برنامج حساب الجمل للاحرف  , واكون شاكر لكم .

و عليكم السلام و رحمة الله و بركاته

اذا كان المطلوب معرفة عدد الأحرف في نص استخدم Len

(17-06-20, 12:45 AM)Mohamad Anan كتب : [ -> ]و عليكم السلام و رحمة الله و بركاته

اذا كان المطلوب معرفة عدد الأحرف في نص استخدم Len

كود :

MsgBox Len("YourText")

اخى محمد لك جزيل الشكر على الرد والتفاعل , لكنى اقصد قيم الحروف على سبيل المثال اكتب فى تيكست احمد فيخرج فى تكست اخر قيم الحروف ا= 1  , ح = 8 , م = 40 , د = 4  فاحصل على ناتج تلك القيم مجموعة 53 فى التكست الاخر .

اذا كنت تقصد مجموع قيم الأحرف في جدول ASCII

وعليكم السلام ورحمة الله وبركاته

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

-  بالتوفيق .

(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 


-  بالتوفيق .

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